R语言 ggplot2 多箱图 多个箱线图 分组箱线图 多个箱线图

ggplot2 多箱图 多个箱线图 分组箱线图

使用本地数据 鸢尾花（yuān wěi huā）做示例

结果输出如下面的图

data(iris)  #用本地数据 鸢尾花（yuān wěi huā）做示例
data <- iris
table(data$Species)
data <- data[data$Species==c ("setosa", "versicolor"),]
table(data$Species) #选取两种花为两个分组
#加载需要的包
library(simplevis)
library(ggplot2)
library(tidyverse)
#长宽数据转化，注意自己设置cols选择的变量对应的第几例
data_long <- pivot_longer(data, cols = 1:4, names_to ="index", 
                          values_to = "num")
#变量因子化
data_long$Species <- as.factor(data_long$Species)
data_long$index <- factor(data_long$index)
str(data_long)
#画箱线图
p=gg_boxplot_col(data=data_long,x_var = index,y_var = num,col_var = Species)
p1=p+theme(axis.text.x = element_text(angle = 90))  #X轴45度角
p1
p1+scale_fill_manual(values=c('#227700','#DC143C'))
zp1+scale_fill_manual(values=c('#227700','#DC143C'))+coord_flip() #颠倒