[英]How to draw dual axes in ggplot2?
我是新手。 我想画一个双坐标折线图,其中横坐标代表D,左纵坐标代表R,右纵坐标代表M和A。我的数据集和代码在下面,我想控制左纵轴坐标范围是(0.9-1.0),右边是(0.1-0.5),请问这个怎么办?
data<-data.frame(R=c(0.9649789,0.9700804,0.9632690,0.9523244,0.9339738),
M=c(0.2465927,0.2263204,0.2520991,0.2982259,0.3614747),
A=c(0.1427684,0.1428706,0.1642165,0.1937662,0.2353444),
D=c(20,15,10,5,2))
p2<-ggplot(data,
aes(x = D,y=R))+
geom_line(color="#6FB585")+
geom_point(size=3,color="#6FB585")+
scale_y_continuous(name = 'R',
sec.axis = sec_axis(~.*0.25, name = 'M and A'))+
geom_line(aes(y=M,x=D), color="#E8BF80")+
geom_point(aes(y=M, x=D),size=3,color="#E8BF80")+
geom_line(aes(y=A,x=D), color="#A8BF85")+
geom_point(aes(y=A, x=D),size=3,color="#A8BF85")
这可能是从以下内容开始的:
ggplot(data,
aes(x = D,y=R))+
geom_line(color="#6FB585")+
geom_point(size=3,color="#6FB585")+
scale_y_continuous(name = 'R',
sec.axis = sec_axis(~(.-0.875)/0.25, name = 'M and A'))+
geom_line(aes(y = M*0.25+0.875, x= D), color="#E8BF80") +
geom_point(aes(y=M*0.25+0.875, x=D),size=3,color="#E8BF80")+
geom_line(aes(y=A*0.25+0.875,x=D), color="#A8BF85")+
geom_point(aes(y=A*0.25+0.875 , x=D),size=3,color="#A8BF85")
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.