用ggplot实现双坐标轴图形

如何完成双坐标轴图（如下）

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.