ggplot2 多箱圖 多個(gè)箱線圖 分組箱線圖

使用本地?cái)?shù)據(jù) 鳶尾花（yuān wěi huā）做示例

結(jié)果輸出如下面的圖

在這里插入圖片描述

data(iris)  #用本地?cái)?shù)據(jù) 鳶尾花（yuān wěi hu?。┳鍪纠?data <- iris
table(data$Species)
data <- data[data$Species==c ("setosa", "versicolor"),]
table(data$Species) #選取兩種花為兩個(gè)分組
#加載需要的包
library(simplevis)
library(ggplot2)
library(tidyverse)
#長(zhǎng)寬數(shù)據(jù)轉(zhuǎn)化，注意自己設(shè)置cols選擇的變量對(duì)應(yīng)的第幾例
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)
#畫(huà)箱線圖
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() #顛倒