ggplot：使用箱线图显示组和时间交互 (2x2)

Question

我看过几个使用 ggplot2 和 reshapre 库的示例。但我的最终结果仍然覆盖了我的箱线图。我还没有看到任何关于 2x2 箱线图设计（组和时间交互）的简单示例。我只有一个数据框。

ggplot(aes(y = DV, x = "Group and Time", col = df$group), data = df) + 
  geom_boxplot(aes(y = df$y1, x=df$group, col="T1")) + 
  geom_boxplot(aes(y = df$y2, x=df$group, col="T2"))

T2 的颜色（蓝色）覆盖了 T1 的颜色（红色）。我的最小示例看起来像这样：

set.seed(1234)
x<- sample(c("exp", "con"), 100, replace = TRUE)
yT1<-rnorm(100)
yT2<-rnorm(100)
df<- (as.data.frame(cbind(x,yT1,yT2)))
head(df)

    x                yT1                  yT2
1 exp  0.405002805433516     1.94871306497599
2 exp   0.97580332180945    0.933816332207727
3 con -0.348876736539909     1.91305942169705
4 con  0.158625439491262 -0.00523405793193957
5 exp  -1.76325506654115   -0.152260048921635
6 exp  0.338596047099905   -0.509631657179118

ggplot(aes(y = DV, x = "group and time", col = df$x), data = df) + 
  geom_boxplot(aes(y = df$yT1, x=df$x, col="T1")) + 
  geom_boxplot(aes(y = df$yT2, x=df$x, col="T2"))

我知道我的最小示例缺少某种 class 转换（df 是因子，但应包含数字列）。我很抱歉，但我现在不知道如何解决这个问题。我希望你明白了。非常感谢

Answer 1

我不确定您的确切意思 - 我想是 exp/con 和 T1/T2 之间的互动？

也许这就是您正在寻找的情节（注意函数调用中的 interaction aes）：

library(ggplot2)
library(tidyr)

set.seed(1234)
x<- sample(c("exp", "con"), 100, replace = TRUE)
yT1<-rnorm(100)
yT2<-rnorm(100)
df1 <- as.data.frame(cbind(x,yT1,yT2))

df2 <- gather(df1, "grp", "val", yT1, yT2)
df2$val <- as.numeric(df2$val)

ggplot(df2, aes(x = grp, y = val, interaction = x, colour = grp)) + 
  geom_boxplot()

或者作为替代，给每个组一个自己的颜色：

df2$newx <- sprintf("%s.%s", as.character(df2$x), df2$grp)

ggplot(df2, aes(x = newx, y = val, colour = newx)) + 
  geom_boxplot()

ggplot：使用箱线图显示组和时间交互 (2x2)

ggplot: display group and time interaction (2x2) with boxplots

r

ggplot2

reshape

boxplot