cuckoo.csv

cuckoo.r

cuckoo = read.csv("/Users/davidcurran/Documents/cuckoo.csv")
head(cuckoo)

Year
<int>
Date
<fctr>
1	1916	20 April		
2	1917	1 May		
3	1918	8 April

library(lubridate)
begin <- cuckoo
begin$c <- paste(begin$Date,begin$Year)
head(begin)

Year
<int>
Date
<fctr>
c
<chr>
1	1916	20 April	20 April 1916	
2	1917	1 May	1 May 1917	
3	1918	8 April	8 April 1918

begin$new <- dmy(begin$c)
begin$e <- strftime(begin$new, format = "%j")
begin$e <- as.numeric(as.character(begin$e))

ggplot(begin, aes(Year, e)) +
  theme_update(plot.title = element_text(hjust = 0.5))+
  theme_tufte() +
  geom_point(color='black') +
  geom_smooth(color='darkred',method = 'loess')+
              ggtitle("First Cuckoo of Spring in England")+
  #theme(plot.title = element_text(hjust = 0.5)+
  ylab("Day of Year")+
  annotate("segment", x = 1915, xend = 1915, y = 85, yend = 90, colour = "wheat1", size=3) +
annotate("text", x = 1915, y = 87.5, label = "March", size = 3.0,angle = 90)+
    annotate("segment", x = 1915, xend = 1915, y = 90.2, yend = 120, colour = "wheat2", size=3) +
  annotate("text", x = 1915, y = 105.5, label = "April", size = 3.0,angle = 90)+
      annotate("segment", x = 1915, xend = 1915, y = 120.2, yend = 130, colour = "wheat3", size=3) +
  annotate("text", x = 1915, 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 = 1975, y = 85, label = "@iamreddave http://www.wbrc.org.uk/WORCRECD/Issue11/Cuckoo.htm", size = 3.0)
#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'
ggsave("cuckoo.png")