代码之家 › 专栏 › 技术社区 › Jeff238

在ggplot中绘制多个组的成对数据

ggplot2 r

Jeff238 · 技术社区 · 3 年前

set.seed(123)
sample <- data.frame(name = c(rep("Amy",4),rep("Bob",4),rep("Jack",4)),
                     status = rep(c("Before","After"),6),
                     test = rep(c("English","English","Math","Math"),3),
                     score = sample(60:100,12,replace=T))
sample %>% ggplot(aes(x=test,y=score,fill=status)) + 
  geom_boxplot() + geom_point(size = 2)

我们的想法是 test 在x轴和 score geom_point() 按 status 分组(以便在 after 组位于红色方框图所在的空间和 before 组位于蓝色箱线图所在的空间)中 geom_line() name . 谢谢

0 回复 | 直到 3 年前

huchzi 3 年前

最简单的方法是使“状态”成为x-美学,并使用镶嵌面包裹分离测试:

ggplot(sample, aes(x = status, y = score)) + 
geom_boxplot(aes(fill = status), alpha = .2) +
geom_line(aes(group = name)) + 
geom_point(size = 2) + 
facet_wrap(~ test)

ggplot(sample, aes(x = status, y = score, group = name)) + 
geom_line() + 
geom_point(size = 2, aes(color = status)) + 
facet_wrap(~ test, switch = "x") +
scale_x_discrete("") +
theme_minimal() +
theme(legend.position = "top", 
      panel.grid = element_blank(),
      axis.text.x = element_blank(),
      axis.line.y = element_line(size = .5))

推荐文章

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

Jeff238 · 为scale\u fill\u连续比例而不是离散比例制作图例

2 年前

jerH · 从ggplot bar plot中省略一些数据标签

2 年前

Stefan · 当facet\u wrap()中的比例设置为“free”时,如何增加ggplot中的默认y轴限制

2 年前

Honorato · 在图形图例中插入两列数据-ggplot2

2 年前

Naota Feykneme · 你能在R中分别控制散点图点的宽度和高度吗?[副本]

2 年前

Shawn Hemelstrand · 如何在ggplot中的许多回归线中为一条特定回归线上色以匹配注释?

2 年前

Jenny · 如何在ggplot2轴上重新排序类别

2 年前

Kirds · 在ggplot中将国家名称添加到地图中

2 年前

MadelineJC · group_by在R中按顺序排列数字

2 年前