如何在R中创建分组箱线图?
我想合并三个分组的数据集,得到一个只有两个框的图,一个框代表a,一个框代表B。你能建议如何得到它吗 我试着在R中创建一个分组箱线图。我有两个组:a和B,在每个组中我有3个子组,每个子组有5个测量值 以下是我构建箱线图的方法,但如果有人有更好、更短或更简单的方法,我将不胜感激如何在R中创建分组箱线图?,r,plot,customization,boxplot,R,Plot,Customization,Boxplot,我想合并三个分组的数据集,得到一个只有两个框的图,一个框代表a,一个框代表B。你能建议如何得到它吗 我试着在R中创建一个分组箱线图。我有两个组:a和B,在每个组中我有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)
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)
A1当数据格式很长或很宽时,这样对它们进行分组比较容易。从向量开始:
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)
您应该使用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")
使用base R,我认为@r2evans解决方案是最好的。但是,使用选项xaxt=“n”
更容易修复问题中的代码:
这增加了设置轴格式的灵活性。在您的第一种方法(箱线图)中,如何将轴加粗?它不加粗,至少我没有做任何明确的操作。它可能是不同的默认字体系列,或者与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")
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)