R语言ggplot2案例：双图表展示转化率对比 - 数据可视化

setwd("E:\数据可视化\R\R语言学习笔记\数据可视化\ggplot2\优秀R语言案例")\nCairoPNG(file="butterfly.png",width=1200,height=696)\nshowtext.begin()\ngrid.newpage()\npushViewport(viewport(layout=grid.layout(7,11)))\nvplayout<-function(x,y){viewport(layout.pos.row =x,layout.pos.col=y)}\nprint(p2,vp=vplayout(2:7,1:5))\nprint(p1,vp=vplayout(2:7,6:11))\ngrid.text(label="Opportunity-to-Deal\nConversion Rate",x=.80,y=.88,gp=gpar(col="black",fontsize=15,fontfamily="myfzhzh",draw=TRUE,just="centre"))\ngrid.text(label="Lead-to-Opportunity\nConversion Rate",x=.20,y=.88,gp=gpar(col="black",fontsize=15,fontfamily="myfzhzh",draw=TRUE,just="centre"))\ngrid.text(label="Webinars convert opportunities,but don't close",x=.50,y=.95,gp=gpar(col="black",fontsize=20,fontfamily="myfzhzh",draw=TRUE,just="centre"))\nshowtext.end()\ndev.off()