#长宽数据转换
############宽格式转化为长格式#################
#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)