修改x轴绘图顺序
通过设置x轴factor顺序实现：
用forcats包：fct_inorder 按照第一次出现的次序排列；fct_infreq 按照出现的频率排列。
data$Factor<-fct_inorder(data$Factor)
ggplot(data,aes(x=Factor,y=PSM,fill=Charge))+
scale_fill_manual("Charge",values=mycolors)+
geom_bar(stat="identity",width=0.9)
添加标题： theme(), labs()
quickcor(df, type = "upper") + geom_circle2() + geom_number(aes(num = r))
quickcor(df, cor.test = TRUE) +
geom_colour() +
geom_number(aes(num = r))+
ggtitle("Total search of Set 1-6") +
theme(plot.title = element_text(hjust = 0.5)) #设置标题居中
# labs(title = "I'm a title")
- 设置每个柱状图中柱宽不同
data<-data.frame(a=c("A","B","C"),b=c(34,54,15),d=c(0.32,0.99,0.18))
ggplot(data,aes(x=a,y=b,width=d))+
geom_bar(aes(fill=a),stat='identity')
#geom_col(aes(fill=a))
柱宽不等
geom_bar图中的统计变换
geom_bar(mapping = NULL, data = NULL, stat = "bin", position = "stack", ...)
1)mapping、data
2)stat="bin"（默认）：柱高为各个分类数目；
stat="identity"柱高分类所占比例。
3)position="stack"（默认）：图形元素堆叠；
position="fill"：图形元素堆叠且高度标准化为1；
position="dodge"：图形元素并列。
