如何在R中创建分组箱线图？

xqkwcwgp 于 2023-09-27 发布在其他

关注(0)|答案(4)|浏览(88)

我想合并分组的三个数据集，并获得一个只有两个框的图，1个框用于A，1个框用于B。你能告诉我怎么弄到这个吗？
我正在尝试用R语言创建一个分组箱线图。我有两组：A和B，每组I有3个亚组，每个亚组5次测量。
以下是我构建箱线图的方法，但如果有人有更好，更短或更简单的方法，我会很感激

A1 <- c(1,2,9,6,4)
A2 <- c(5,1,9,2,3)
A3 <- c(1,2,3,4,5)
B1 <- c(2,4,6,8,10)
B2 <- c(0,3,6,9,12)
B3 <- c(1,1,2,8,7)

DF <- data.frame(A1, A2, A3, B1, B2, B3)

boxplot(DF, col = rainbow(3, s = 0.5))
axis(side = 1, at = c(2,5), labels = c("A","B"))
legend("topleft", fill = rainbow(3, s = 0.5), legend = c(1,2,3), horiz = T)

我怎样才能正确地分组（联合）在A和B的框，并固定轴标题简单的A和B，因为我tryed？
我想要像

来源：https://stackoverflow.com/questions/47479522/how-to-create-a-grouped-boxplot-in-r

4条答案

按热度按时间

wnrlj8wa1#

当数据是 * 长 * 格式而不是 * 宽 * 格式时，像这样对它们进行分组会更容易。从你的vectors开始：

DF2 <- data.frame(
  x = c(c(A1, A2, A3), c(B1, B2, B3)),
  y = rep(c("A", "B"), each = 15),
  z = rep(rep(1:3, each=5), 2),
  stringsAsFactors = FALSE
)
str(DF2)
# 'data.frame': 30 obs. of  3 variables:
#  $ x: num  1 2 9 6 4 5 1 9 2 3 ...
#  $ y: chr  "A" "A" "A" "A" ...
#  $ z: int  1 1 1 1 1 2 2 2 2 2 ...

cols <- rainbow(3, s = 0.5)
boxplot(x ~ z + y, data = DF2,
        at = c(1:3, 5:7), col = cols,
        names = c("", "A", "", "", "B", ""), xaxs = FALSE)
legend("topleft", fill = cols, legend = c(1,2,3), horiz = T)

使用at手动控制放置，因此“视觉分组”不是很健壮。（可以使用width和/或boxwex控制它们之间的间距。）

您也可以选择ggplot2：

library(ggplot2)
ggplot(DF2, aes(y, x, fill=factor(z))) +
  geom_boxplot()

赞(0）回复(0）举报 2023-09-27

tyg4sfes2#

您应该使用ggplot2

ggplot() + 
  geom_boxplot(data = df, mapping = aes(col_name, value, fill=index))  + 
  theme( axis.text.x = element_blank()) +
  geom_segment(data=hline1, mapping=aes(x=1, y=-0.5, xend=3, yend=-0.5), size=2) +
  annotate("text", x = 2, y = -1, label = "A") + 
  geom_segment(data=hline1, mapping=aes(x=4, y=-0.5, xend=6, yend=-0.5), size=2) +
  annotate("text", x = 5, y = -1, label = "B")

赞(0）回复(0）举报 2023-09-27

r8xiu3jd3#

使用base R，我认为@r2evans解决方案是最好的。但是，问题中代码的一个更简单的修复方法是使用选项xaxt="n"：

boxplot(DF, col = rainbow(3, s = 0.5), at = c(1:3,5:7), xaxt = "n")
axis(side = 1, at = c(2,6), labels = c("A","B"))
legend("topleft", fill = rainbow(3, s = 0.5), legend = c(1,2,3), horiz = T)

这在设置轴的格式时增加了更大的灵活性。

赞(0）回复(0）举报 2023-09-27

gwbalxhn4#

有人能告诉我如何添加一条线连接所有箱线图的平均值，包括跨组

赞(0）回复(0）举报 2023-09-27