r - ggplot2 每周箱线图

Question

此代码生成一个箱线图:

df <- data.frame(value = rnorm(62), my.date = seq(as.Date("2013-12-01"), as.Date("2014-01-31"), by="1 day"))

library(ggplot2)
ggplot(df, aes(as.Date(my.date), value)) + geom_boxplot() + scale_x_date(minor_breaks = "1 week", labels = date_format("%W\n%b"))

如何生成一个图，该图在 12 月 1 日至 1 月 31 日之间的每周都有单个箱线图？所以在单个图中，应该有大约 8 个箱线图。更喜欢使用 ggplot() 或 scale_x_date() 的解决方案。

Answer 1

一种选择是在使用 ggplot 之前转换您的日期

library(ggplot2)
df <- data.frame(value = rnorm(62), 
my.date = seq(as.Date("2013-12-01"), as.Date("2014-01-31"), by="1 day"))
weeks <- format(df$my.date, "%Y/%W")
weeks <- factor(weeks, levels = unique(weeks))

ggplot(df, aes(weeks, value)) +
    geom_boxplot()