ggplot多图叠加_如何用ggplot2 作双坐标多维度折线图？

立flag，我保证我提供的第二种方法比目前为止答案区的任何答案都简洁。

如果觉得上方高级玩家们提供的分页作图方法复杂很难理解，

那就看看我的简单版吧。

ggplot画次坐标一般有2种方法实现。

一种是用annotate假装实现。图1

另一种是用sec.axis真正实现。图2

1.用annotate假装实现图1 用annotate假装有次坐标

直接上图了。

ggplot2这么强大的图层功能，硬要构建双坐标，用annotate便不在话下。然而繁琐，不过对完美主义者而言，还是很值得一试的。楼上那位被人质疑使用excel的，用的也是这个方法。

由于是假装成有次坐标，代码我就不贴了。只放3个关键句

theme(panel.border = element_blank())+#删除真图表的实际边框

annotate('text', x = 6.8, y = c(seq(0,100,10)) , label = paste(seq(0,100,10),"%",sep=""),size=4 ,family="B")+#设置伪右侧坐标轴的标签

annotate('segment', x=6.5, xend = 6.6,y = c(seq(0,100,10)),yend = c(seq(0,100,10)))+#设置伪右纵坐标轴的刻度

—————————————————————————————————————

2.用sec.axis真正实现(以双y轴为例，双x轴的各位看完自己思考)