如何用R一坐标作2图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请问哪位大侠知道在一个坐标作2个拟合图
比如：x<-c(2716,2583,2943,4887,5044,9756)
> y<-c(4302,4245,4463,7668,7007,14356)
> z<-c(2004,2005,2006,2007,2008,2009)
> lm1<-lm(x~z+I(z^2))
> plot(z,x,col='blue')
>  e<-seq(min(z),max(z),len=200)
>  f<-predict(lm1,data.frame(z=e))
>  plot(x~z);lines(e,f,col='blue')
在这个坐标我还要加个y和z的曲线图，应该如何加

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：如何用 Lines plot Blue line 作图

1# huhaiboo
lines(z,y,type='b')
原图的范围有可能太小了，如果后加入的点过大，lz可以调节一下作图范围。

加个par（new=T）就行，代码如下：


x<-c(2716,2583,2943,4887,5044,9756)
y<-c(4302,4245,4463,7668,7007,14356)
z<-c(2004,2005,2006,2007,2008,2009)
lm1<-lm(x~z+I(z^2))
e<-seq(min(z),max(z),len=200)
f<-predict(lm1,data.frame(z=e))
plot(x~z);lines(e,f,col='blue')
####新加部分
par(new=T)
lm1<-lm(y~z+I(z^2))
f<-predict(lm1,data.frame(z=e))
plot(y~z);lines(e,f,col='blue')