ggplot2 箱线图按周答案

【问题标题】：ggplot2 boxplots by weekggplot2 箱线图按周
【发布时间】：2014-01-24 10:11:23
【问题描述】：

此代码生成单个箱线图：

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() 的解决方案。

【问题讨论】：

标签： r ggplot2

【解决方案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()

【讨论】：

在scale_x_date中没有办法做到这一点吗？
次要点：我可能会让格式同时采用年份和周数来处理多年场景并将其作为新列分配到 data.frame df$weeks <- format(df$my.date, "%Y/%W")
感谢大家的回复。但是，到目前为止，所有响应都删除了scale_x_date 的功能，例如minor_breaks。有没有人有不需要使用reorder、scale_x_discrete 或factor 的解决方案？

【解决方案2】：

library(ggplot2)    
ggplot(df, aes(format(as.Date(my.date), "%W\n%b"), value)) + geom_boxplot()

编辑：

要订购日期：

ggplot(df, aes(reorder(format(as.Date(my.date), "%W\n%b"), 
                       as.Date(my.date)), 
               value)) + 
  geom_boxplot()

【讨论】：

这可以通过df$week <- factor(format(as.Date(df$my.date), "%W\n%b"))和ggplot(df, aes(week, value)) + geom_boxplot() + scale_x_discrete(limits=unique(df$week))修复
您应该能够使用例如轻松更改订单reorder():ggplot(df, aes(reorder(format(as.Date(my.date), "%W\n%b"), as.Date(my.date)), value)) + geom_boxplot()

【解决方案3】：

这满足了@luciano 保留scale_x_date 功能的要求

library('scales')
library(ggplot2)
df <- data.frame(value = rnorm(62), my.date = seq(as.Date("2013-12-01"), as.Date("2014-01-31"), by="1 day"))
ggplot(df, aes(x=as.Date(my.date), y=value, group=format(as.Date(my.date),"%W-%b"))) + geom_boxplot() + scale_x_date(date_breaks = "1 week", date_labels="%Y-%b-%d")

或者，如果您不希望按周分组数据# - 这会给您在大多数新年期间的拆分 - 您可以按以下星期天结束的星期分组。从周日周末调整到周五，可以通过一些这样的代码来实现 ceiling_date(x, "week") + ifelse(weekdays(x) %in% c("Saturday", "Sunday"), 5, -2)

ggplot(df, aes(x=as.Date(my.date), y=value, group=ceiling_date(my.date, "week"))) + geom_boxplot() + scale_x_date(date_breaks = "1 week", date_labels="%Y-%b-%d")

【讨论】：