Month: February 2023

date <- seq.Date(as.Date("2013-06-01"), as.Date("2014-05-31"), "days")
set.seed(100)
x <- as.integer(abs(rnorm(365))*1000)
df <- data.frame(date, x)
boxplot(df$x ~ months(df$date), outline = FALSE,las=2)

library(ggplot2)

ggplot(df) +
  geom_boxplot(aes(reorder(format(date,'%B'),date),fill=format(date,'%Y'),x)) +
        xlab('Month') + guides(fill=guide_legend(title="Year")) +
        theme(axis.text.x = element_text(angle = 45))