#长宽数据转换
############宽格式转化为长格式#################
#gather()函数将宽格式转化为长格式
#data为需要转的数据集名,S为原数据列名的新列名,OUT为值的新列名
#data_long<-gather(data, S, value, s1:s10)
############长格式转化为宽格式#################
#spread()函数将宽格式转化为长格式
#data_wide<-spread(data_long_g, S, value)
library(tidyr)
df
tg_long<-gather(df, {name}, {value}, col$1:col$n)
library(ggplot2)
library(ggpubr)
library(tidyverse)
library(hrbrthemes)
library(viridis)
#boxplot
df${name}<-factor(df${name}<-,levels = c('A','B','C') )
p<-df%>%
ggplot( aes(x={name}, y={value}, fill={name})) +#要改
geom_boxplot() +
scale_fill_viridis(discrete = TRUE, alpha=0.6) +
geom_jitter(color="black", size=0.4, alpha=0.9) +
theme_ipsum() +
theme(
legend.position="none",
plot.title = element_text(size=11)
) +
ggtitle("The name of the plot") +#要改
xlab("xxxx")#k可加上X轴名称
#加上p值
my_comparisons<-list(c("A","B"),c("B","C"),c("A","C"))
plot<-p+stat_compare_means(comparisons = my_comparisons)
boxplot通用作图
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- 之前的双连续变量交互作用作图，和分类变量与连续变量的交互都给大家写了，今天给大家写写，两个分类变量的交互，及简单斜...
- opencv4nodejs 安装安装opencv4nodejs仅需 ·安装cmake并配置环境变量cmake 安装...
