Fechas con mes y día en diagrama de series de tiempo en ggplot2 con faceta durante años
Quiero tener ambosmonth yday en el eje x del diagrama de series de tiempo cuando se usafacet por años enggplot2. Mi MWE está abajo:
set.seed(12345)
Date <- seq(as.Date("2010/1/1"), as.Date("2014/1/1"), "week")
Y <- rnorm(n=length(Date), mean=100, sd=1)
df <- data.frame(Date, Y)
df$Year <- format(df$Date, "%Y")
df$Month <- format(df$Date, "%b")
df$Day <- format(df$Date, "%d")
df$MonthDay <- format(df$Date, "%d-%b")
p <- ggplot(data=df, mapping=aes(x=MonthDay, y=Y, shape=Year, color=Year)) + geom_point() +geom_line(aes(group = 1))
p <- p + facet_grid(facets = Year ~ ., margins = FALSE) + theme_bw()
print(p)
Traté de controlar las etiquetas del eje x con el siguiente comando
p + scale_y_continuous() + scale_x_date(labels = date_format("%d-%b"))
Pero arroja el siguiente mensaje de error.
Error: Invalid input: date_trans works with objects of class Date only