如何完成双坐标轴图(如下)
R代码
library(ggplot2)
library(gtable)
library(grid)
setwd("C:\\Users\\msy\\Documents\\work\\年度")
shuaxin<-read.csv("总体test.csv",stringsAsFactors = FALSE)
shuaxin
p1<-ggplot(shuaxin,aes(x=as.factor(month),cash))+geom_bar(stat="identity",fill="#BED742")+theme_bw()+
labs(x="",y="")+
coord_cartesian(ylim=c(0,1400000))+
ggtitle("Draw by 小酥饼maomao")+
geom_text(aes(label=round(cash/10000,1)),vjust=1.5,colour="white",size=4)+
theme_bw()+
theme(axis.title.x=element_blank(),
axis.title.y=element_blank(),
#axis.