在ggplots中添加两条线性回归线和两个y轴[关闭]答案

【问题标题】：add two linear regression lines and two y axis in ggplots [closed]在ggplots中添加两条线性回归线和两个y轴[关闭]
【发布时间】：2018-07-29 04:40:53
【问题描述】：

我想用两个 y 轴绘制一个图，并向每个组添加两条线性回归线。我在这个网站上看到过一些方法，我很容易得到两个 y 轴的点。但我无法控制线性回归线。我想做的情节是这样的：

我的数据如下：

   ggplot(plotdata) + geom_point(aes(x,z),colour="green") + 
   geom_smooth(aes(x,y), method=lm, se=FALSE,colour="green") + 
   geom_point(aes(x,y*100), colour="red") + 
   geom_smooth(aes(x,y*100), method=lm, se=FALSE,colour="red") +  
   scale_y_continuous(sec.axis = sec_axis(~ . * 0.01))

我使用上面的代码来制作这个情节，但我总是得到以下结果：

sec.axis 方法似乎无法控制第二条回归线。

谁能给我一些提醒？非常感谢。

【问题讨论】：

Plotting two variables as lines using ggplot2 on the same graph的可能重复
感谢您的提醒。我见过这个问题。我可以用两个 y 轴控制该点。但我无法控制线性回归线。
两个y轴解在：stackoverflow.com/questions/3099219/…
不要使用 ggplot2 函数。使用“预测”。
你的意思是我没有使用ggplot2来绘制这个情节？什么是预测？是包裹吗？

标签： r ggplot2

【解决方案1】：

这个问题似乎是重复的。 link

library(ggplot2)
z=200*(y=1:10)
x=2.7*y

factor<-50

p1<-ggplot(plotdata) + geom_point(aes(x,y*factor), colour="red") +
  geom_smooth(aes(x,y*factor), method=lm, se=FALSE,colour="red") 

p1+geom_point(aes(x,z),colour="green") +  labs(y="z")+
  geom_smooth(aes(x,z), method=lm, se=FALSE,colour="green")+     scale_y_continuous(sec.axis = sec_axis(~ . / 50))

【讨论】：