条形图代码

先放一张成品图

使用软件：Rstudio

setwd("D:\\R_base\\Rstudio_workfile") #设置工作路径

getwd() #查看工作路径

A <- read.delim("Shannon.txt", header = T) #导入数据，比较常用txt格式

#载入R包没有的话可安装 install. Packages("ggplot2")

library(ggplot2)

library(forcats)

A$condictions <- as.factor(A$condictions)

A$condictions <- fct_inorder(A$condictions)

A$group <- as.factor(A$group)

A$group <- fct_inorder(A$group)

ggplot(A, aes(fill=condictions, y=value, x=group))+

geom_bar(position=position_dodge(1),stat="summary",width=0.7,colour = "black", size=1)+

theme_classic(base_size = 12)+

geom_vline(aes(xintercept=as.numeric(as.factor(group))+0.5),linetype=2,cex=1.2)+

geom_rect(aes(xmin=as.numeric(as.factor(group))+0.5,

xmax=Inf, ymin=(-Inf),ymax=Inf),

fill='grey90',color='grey90')+

geom_vline(xintercept =A$condictions,linetype=2,cex=1.2)+

geom_bar(position=position_dodge(1),stat="summary",width=0.7,colour = "black",size=1)+

stat_summary(fun.data = 'mean_se', geom = "errorbar", colour = "black",

width = 0.2,position = position_dodge(1))+

theme(legend.direction = "horizontal", legend.position = "top")+

labs(title = "", y="Shannon", x = "")+

scale_y_continuous(limits = c(0,15),expand = c(0,0))+

theme(axis.text.x = element_text(size = 12))+

theme(axis.text.y = element_text(size = 12))+

theme(axis.title = element_text(size = 14))+

#添加数据点

geom_jitter(data = A, aes(y = value),size = 3, shape = 21,

stroke = 0.01, show.legend = FALSE,

position = position_jitterdodge(jitter.height=1,dodge.width = 1))+

#标记显著性

#geom_signif(y_position=c(5000,5000,5000,5500), xmin=c(0.6,1.1,1.6,1.9), xmax=c(0.8,1.3,1.8,2.3),

#annotation=c("**","**","****","****"), tip_length=0, size=0.8, textsize = 7,

#vjust = 0.3)+

scale_fill_manual(values = c('#6E7ACA','#f9cc52','#0d898a','#e18283')) #填充颜色

###导入文件格式如下