Question

我想制作 2 个箱线图，y 是重量，x 是前后。所以会同时显示两个不同的箱线图。

`rats_before = data.frame(
  rat_num = paste0(rep("rat number",200),1:200),
  weight = rweibull(200,shape= 10,scale = 20))

rats_after = data.frame(
  rat_num = paste0(rep("rat number",200),1:200),
  weight = rweibull(200,shape= 9,scale = 21))

rats = merge(rats_before,rats_after, by = c("rat_num"))`

我知道下一部分还没有结束，但它会让你知道我想要做什么。

rat_boxplot = qplot(y = weight, x = (rats_after, rats_before), geom = "boxplot", data = rats)

Answer 1

您可以向每个 df 和 userbind 添加一列，这将绑定两个 df 的行，而不是您可以使用的 merge。然后你只需要使用 ggplot 的 aes。

rats_before$condition = "before"
rats_after$condition = "after"
rats = rbind(rats_before,rats_after)
ggplot(rats)+geom_boxplot(aes(condition,weight))

希望我理解你的问题。

汤姆

Answer 2

或者，如果您想在基础 R 中执行此操作 -

rats_before = data.frame(
  rat_num = paste0(rep("rat number",200),1:200),
  weight = rweibull(200,shape= 10,scale = 20))

rats_after = data.frame(
  rat_num = paste0(rep("rat number",200),1:200),
  weight = rweibull(200,shape= 9,scale = 21))

rats <- rbind(rats_before, rats_after)
rats$type <- c(rep("before", nrow(rats_before)), rep("after", nrow(rats_after))) 
rats$type <- factor(rats$type)
rats$type <- relevel(rats$type, ref = 2)

boxplot(weight ~ type, data = rats)

从 R 中的相同数据框制作 2 个箱线图

2 个答案: