其他
R可视化——ggplot2调整柱状图柱子宽度及间距
安装、加载包
1、设置工作目录
#设置工作环境rm(list=ls())setwd("D:\\桌面\\ggplot2调整柱状图柱子间距")2、安装、加载包
#安装包# install.packages("ggplot2")# install.packages("ggprism")#加载包library(ggplot2)library(ggprism)数据
这里使用编写数据，大家也可以导入自己的作图数据
#数据df<-data.frame( group=c('A','B','C'), value=c(3,5,7))基本绘图
p<-ggplot(df,aes(group,value,color=group,fill=group))+ labs(x="Samples",y=NULL)+ theme_prism(palette = "candy_bright", base_fontface = "plain", base_family = "serif", base_size = 16, base_line_size = 0.8, axis_text_angle = 45)+ scale_fill_prism(palette = "candy_bright")
p+geom_bar(stat="identity",position="dodge")调整柱子宽度
主要通过geom_bar函数中的width参数进行控制
#调整柱子宽度p+geom_bar(stat="summary",fun=mean,position="dodge",width =0.5)调整柱子间距
主要通过将X轴转变为连续变量并通过控制变量大小以改变柱间距离，我们先给原数据加一列连续变量：
df$x<-c(1,2,3)#添加连续变量#绘图p1<-ggplot(df,aes(x,value,color=group,fill=group))+ geom_bar(stat="identity",position="dodge",width = 0.5) + labs(x="Samples",y=NULL)+#标题 theme_prism(palette = "candy_bright", base_fontface = "plain", base_family = "serif", base_size = 16, base_line_size = 0.8, axis_text_angle = 45)+ scale_fill_prism(palette = "candy_bright")p1改变X轴及其标签
p1+scale_x_continuous(limits=c(0.5,3.5),breaks=c(1,2,3), labels = c('A','B','C'))增大某两个柱子间的距离
df$x<-c(1,2,4)#改变连续变量值ggplot(df,aes(x,value,color=group,fill=group))+ geom_bar(stat="identity",position="dodge",width = 0.5) + labs(x="Samples",y=NULL)+#标题 theme_prism(palette = "candy_bright", base_fontface = "plain", base_family = "serif", base_size = 16, base_line_size = 0.8, axis_text_angle = 45)+ scale_fill_prism(palette = "candy_bright")+scale_x_continuous(limits=c(0.5,4.5),breaks=c(1,2,3,4), labels = c('A','B','','C'))+#改变X轴 theme(axis.ticks.x = element_blank())#关闭X轴刻度爱我请给我好看!