About Me

This website was created using Blogdown. The posts will center around coding and learning to program with the R language. As such, most of my posts will include code chuncks to show off some of the coding I have done to produce the charts/visualizations. All the code for this website is hosted on my Github account. If you have any questions, please feel free to reach out to me. I am always happy to help!

WNY

I grew up in Western New York and can truely say I love it there and miss it there. Life has taken me elsewhere, but I always enjoy returning home.

library(leaflet)
m <- leaflet() %>%
  addProviderTiles(providers$CartoDB.Positron) %>%
  setView(lng=-78.1875, lat=42.9981, zoom = 7) %>% 
  addMarkers(lng=-78.1875, lat=42.9981, popup="Batavia, NY")
m

Family

The second child of four boys to Jim and MaryBeth Demmer, the best parents I could have asked for. Growing up with three brothers was awesome. We didn’t always get along as kids, but having these guys to turn to means so much to me.

family %>%
  ggplot(aes(reorder(Brother, Age), Age, fill = Brother)) +
  geom_bar(stat = "identity") +
  coord_flip() +
  labs(x = "Brother") +
  theme(legend.position = "none") +
  gghighlight::gghighlight(Brother == "Tom (ME)")

Amanda & Owen

Amanda and I started dating senior year of highschool. We quickly became best friends, and here we are many years later with our six month old baby, Owen! Life has taken us from NY to NH to MA and now to VA.

library(timelineS)
timelineS(amanda, main = "",
          labels = c("Born", "Met Amanda", "Married Amanda", "Owen Born"),
          label.direction = "up", label.length = c(0.2,0.4,0.8,1.2), 
          label.position = c(2, 2, 2, 2), label.cex = 1, line.color = "black", 
          label.color = c("steelblue"), point.color = "steelblue", pch = "^")

Latest Posts