cherry trees in kyoto graph

cherry.r

library(ggplot2)
mydata = read.csv("/Users/davidcurran/Documents/pythonText/course4_downloads/cleanCherry.csv")


ggplot(mydata, aes(Year, Day)) +
  theme_update(plot.title = element_text(hjust = 0.5))+
  theme_tufte() +
  geom_point(color='#d498a3') +
  geom_smooth(color='darkred')+
  ggtitle("When Cherry Blossoms Peak in Kyoto")+
  #theme(plot.title = element_text(hjust = 0.5)+
  ylab("Day of Year")+
  annotate("segment", x = 798, xend = 798, y = 85, yend = 90, colour = "wheat1", size=3) +
  annotate("text", x = 798, y = 87.5, label = "March", size = 3.0,angle = 90)+
    annotate("segment", x = 798, xend = 798, y = 90.2, yend = 120, colour = "wheat2", size=3) +
  annotate("text", x = 798, y = 105.5, label = "April", size = 3.0,angle = 90)+
      annotate("segment", x = 798, xend = 798, y = 120.2, yend = 130, colour = "wheat3", size=3) +
  annotate("text", x = 798, y = 125.5, label = "May", size = 3.0,angle = 90)+
  #annotate("segment", x = 800, xend = 820, y = 80, yend = 90, colour = "wheat4", size=.5) +
  annotate("text", x = 1800, y = 85, label = "@iamreddave data:kyotofullflower@public", size = 3.0)
#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'
ggsave("cherry2.png")

cleanCherry.csv