按日期子集箱线图，按月排列 x 轴

Question

我有跨越两个日历年的一年数据。我想按月为这些数据子集绘制箱线图。

这些图将始终按字母顺序（如果我使用月份名称）或数字（如果我使用月份数字）排序。都不符合我的目的。

在下面的示例中，我希望 x 轴上的月份从 6 月（2013 年）开始，到 5 月（2014 年）结束。

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)

我可能会按照我需要的顺序生成月份的向量（例如months <- months(seq.Date(as.Date("2013-06-01"), as.Date("2014-05-31"), "month"))）

有没有更优雅的方法来做到这一点？我错过了什么？

Answer 1

你在寻找这样的东西吗：

boxplot(df$x ~ reorder(format(df$date,'%b %y'),df$date), outline = FALSE) 

我正在使用reorder根据日期重新排序您的数据。我还格式化日期以跳过一天部分，因为它是您按月汇总箱线图。

编辑 ：

如果你想跳过年份部分（但为什么？我个人觉得这有点令人困惑）：

boxplot(df$x ~ reorder(format(df$date,'%B'),df$date), outline = FALSE)

EDIT2 ggplot2 解决方案：

由于您在营销领域并且正在学习ggplot2:)

library(ggplot2)

ggplot(df) +
  geom_boxplot(aes(y=x,
                   x=reorder(format(df$date,'%B'),df$date),
                   fill=format(df$date,'%Y'))) +
  xlab('Month') + guides(fill=guide_legend(title="Year")) +
  theme_bw()