今天就来分享一下如何用ggplot绘制带有误差棒的柱状图,强推ggplot,制图简单美观。
#加载包
library(ggplot2)
library(openxlsx)
#读取文件
df <- read.xlsx(“A.xlsx”,sheet=1)
#绘制图形
p <- ggplot(df)+geom_bar(aes(x=province,y=mean),stat=“identity”,fill=“blue”,alpha=0.7)
+geom_errorbar(aes(x=province,ymin=mean-SD,ymax=mean+SD))+xlab(“Name”)+ylab(“Youxiu”)+theme_bw()+theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())+theme(legend.position=‘none’)
#调整坐标标度为斜体
p+theme(axis.text.x = element_text(family = “myFont”, face = “bold”, vjust = 0.5, hjust = 0.5, angle = 45))
#排序
#柱状图有些时候需要有一定的顺序排列,但R语言中绘图时都是按因子(a b c 或者1 2 3) 排列的,此时就需要我们使用"levels"来改变因子顺序。
df$province<- factor(df $province,levels=c(“clothes”,“book”,“shoes”,“pizza”,“hotpot”,“lobster”,“shitang”,“travel”))
#再次运行
p <- ggplot(df)+geom_bar(aes(x=province,y=mean),stat = “identity”,fill=“blue”,alpha=0.7)+
geom_errorbar(aes(x=province,ymin=mean-SD,ymax=mean+SD))+xlab(“Name”)+ylab(“Youxiu”)+theme_bw()+theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())+theme(legend.position=‘none’)
p+theme(axis.text.x = element_text(family = “myFont”, face = “bold”, vjust = 0.5, hjust = 0.5, angle = 45))