如何按值拆分多列箱线图？

Question

尝试搜索但未找到我需要的内容。我将使用代码来演示我需要什么。

col1=c(4,5,6,4,3,4,5,5,6,9,2,1,0,3,6,7,9);
col2=c(4,2,3,4,3,3,5,6,6,9,2,1,0,3,6,7,1);
col3=c(1,2,3,4,3,4,5,5,6,9,2,1,0,3,6,7,9);
col4=c(4,5,2,4,3,4,2,5,6,5,2,3,0,3,3,7,8);
col5=c("Y","N","N","Y","N","N","Y","N","N","Y","N","N","Y","N","N","Y","N")
d=data.frame(col1,col2,col3,col4,col5)
boxplot(d[,3]~d$col5) # this works, and I got two box bars for col3 and one bar for value "N" in col5 and the other for "Y"
boxplot(d[,1:4]~d$col5) # this does not work. I want 8 bars in the order of col1 N, col1Y, col2 N, col2 Y, ...

如何获得我需要的东西？谢谢！

Answer 1

考虑这个选项。您可以重塑数据以长期保持 x-axis 所需的变量。然后，您可以将 facets 与 facet_wrap() 一起使用，以便按剩余变量进行拆分。这里的代码使用 ggplot2 和一些 tidyr 和 dplyr 函数：

library(ggplot2)
library(dplyr)
library(tidyr)
#Data
col1=c(4,5,6,4,3,4,5,5,6,9,2,1,0,3,6,7,9);
col2=c(4,2,3,4,3,3,5,6,6,9,2,1,0,3,6,7,1);
col3=c(1,2,3,4,3,4,5,5,6,9,2,1,0,3,6,7,9);
col4=c(4,5,2,4,3,4,2,5,6,5,2,3,0,3,3,7,8);
col5=c("Y","N","N","Y","N","N","Y","N","N","Y","N","N","Y","N","N","Y","N")
d=data.frame(col1,col2,col3,col4,col5)
#Plot
d %>% pivot_longer(-c(col5)) %>%
  ggplot(aes(x=col5,y=value))+
  geom_boxplot()+
  facet_wrap(.~name,nrow = 1,strip.position = 'bottom')+
  theme_bw()+
  theme(strip.placement = 'outside',strip.background = element_blank())

输出：

或者，如果您想要一些时尚情节，请尝试像这样添加 JAMA 颜色：

library(ggsci)
#Plot 2
d %>% pivot_longer(-c(col5)) %>%
  ggplot(aes(x=col5,y=value,fill=name))+
  geom_boxplot()+
  facet_wrap(.~name,nrow = 1,strip.position = 'bottom')+
  theme_bw()+
  labs(fill='Variable')+
  theme(strip.placement = 'outside',
        strip.background = element_blank(),
        axis.text = element_text(color='black',face='bold'),
        axis.title = element_text(color='black',face='bold'),
        legend.text = element_text(color='black',face='bold'),
        legend.title = element_text(color='black',face='bold'),
        strip.text = element_text(color='black',face='bold'))+
  scale_fill_jama()

输出：

Answer 2

在base R中，我们可以在一行中做到这一点

boxplot(values ~ Label:ind, data.frame(stack(d[-5]) , Label = d$col5))

-输出

或者 ggpubr 中 ggboxplot 的另一个选项，无需重塑原始数据集

library(ggpubr)
ggboxplot(d, x = "col5", y = c("col1", "col2", "col3", "col4"), 
 combine = TRUE, add = "jitter", color = "col5",
       palette = c("#00AFBB", "#E7B800", "#FC4E07", "#FA5D09"))

-输出

Answer 3

与 Duck 非常相似的解决方案将 Y 和 N 按颜色分开：

library(ggplot2)

d=data.frame(col1,col2,col3,col4,col5)
df = tidyr::pivot_longer(d, cols=1:4)

ggplot(df, aes(x=name, y=value, color=col5)) + geom_boxplot()

输出：

如何按值拆分多列箱线图？

How to split multiple-column boxplot by values?

split

r

multiple-columns

boxplot