R语言 ggplot2 添加双y轴（两个纵坐标）

lei_qi

已于 2022-05-24 14:34:39 修改

阅读量7.3k

点赞数 1

分类专栏： R绘图文章标签： r语言

于 2022-05-24 14:33:10 首次发布

本文链接：https://blog.csdn.net/lei_qi/article/details/124946137

版权

R绘图专栏收录该内容

1 篇文章 0 订阅

订阅专栏

没有双y轴

时的图片
在这里插入图片描述
有双y轴
输入的Fig3_C_RF_SOSA.xlsx数据类型是这样的

在这里插入图片描述


library(openxlsx)
library(reshape2)
library(ggplot2)

databar=reaRd.xlsx('D:/FDU/data/Fig3_C_RF_SOSA.xlsx')
df <- melt(databar)
colnames(df)[1] <- 'Methods'
df$Methods<- factor(df$Methods,levels =c("SOSA Model","RF Model"))
library(ggsci)

geom_bar(stat="identity",position=position_dodge(0.75))
q1<-ggplot(data=df, mapping=aes(x = variable, y = value,fill=Methods))+
geom_bar(colour="black",stat="identity",position=position_dodge(0.9)) +
  scale_fill_manual(values = c("#E41A1C", "#377EB8")) +
  theme_bw()+
  theme(panel.grid.major=element_blank(),
        panel.grid.minor=element_blank(),
        text=element_text(size = 18,face = 'bold'),
        axis.text.y= element_text(size=13,colour = 'black'), # 设置y轴的数字大小
        axis.text.x = element_text(size=13,angle = 45,hjust = 1,colour = 'black'))+labs(x='',y='Importance of SOSA Model features')+theme(text=element_text(size=18,  color ='black')) 

##### 只需增加下边这一行就行啦####
q1 <- q1 + scale_y_continuous(sec.axis = sec_axis(~. /20, name = "Importance of RF Model features"))
##########
ggsave(file='./fig3.png',width = 270,height= 150,units = 'mm')