Yo recomendaría trazado de cada evento por separado, utilizando un dotchart lo largo de los días del año.
Esta muestra inmediatamente que en el caso de que tengamos una fecha para que en ambos años ("Vencejos salir") ocurrió el mismo día en ambos años. Una vez que usted tiene un par de años el valor de los datos, se puede ver típico de la variabilidad o tendencias.
Se puede restringir el eje horizontal para cada parcela. No hay necesidad de mostrar de noviembre y diciembre para "Primer árbol de la flor", mientras que "la Primera procesional de las orugas" ya podría suceder en el año anterior.
Si usted está interesado en saber si los diferentes eventos flip órdenes, usted puede mostrar múltiples eventos en la misma parcela, utilizando diferentes colores para los diferentes eventos. Sólo no te excedas - si intenta mostrar todos los 18 eventos using18 colores, de colores y terminar con algo incomprensible. En lugar de ello, el grupo tal vez 3-5 eventos que están relacionados. Si lo hace, me gustaría escalonar vertical ligeramente por encima y por debajo de la "" año de las líneas.
R código de abajo:
dates <- data.frame("2017"=c(rep(NA,11),"2017-08-01","2017-09-01","2017-09-16","2017-09-18","2017-10-01","2017-10-17","2017-12-01"),
"2018"=c("2018-01-01","2018-02-23","2018-02-25","2018-02-27","2018-03-10","2018-04-05","2018-04-06","2018-04-08","2018-04-08","2018-04-21","2018-07-22","2018-08-01",rep(NA,6)),
stringsAsFactors=FALSE)
rownames(dates) <- c("First processional caterpillars", "First tree blossom",
"First bee", "Heavy dump", "House martens", "Swallows arrive",
"Swifts arrive", "First tic on Cilla", "First barbecue", "First poppy",
"No snow visible on the mountains", "Swifts leave", "Swallows leave",
"Can see snow on the mountains", "Cool enough to dry hair with a hairdyer ",
"Mushrooms abound", "Purple jumper on", "River Gavressa frozen")
Sys.setlocale(locale="US")
opar <- par(mfrow=c(6,3),mai=c(.5,.5,.5,.1))
for ( ii in 1:nrow(dates) ) {
plot(as.Date(c("2017-01-01","2017-12-31")),c(0.5,ncol(dates)+0.5),type="n",yaxt="n",main=rownames(dates)[ii],xlab="",ylab="")
axis(2,1:nrow(dates),2016+(1:nrow(dates)),las=1)
abline(h=1:nrow(dates),lty=2,col="lightgray")
index <- which(!is.na(dates[ii,]))
points(as.Date(paste0("2017",substr(dates[ii,index],5,10))),index,pch=19)
}
par(opar)