一张图多条回归线的循环

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

要求每个物种的线性回归，并把这些回归线放在一张图中，写了代码，但每次都只有最后一个物种的回归线
setwd("")
mydata<-read.csv(file="",header=T)
n <- length(unique(mydata$sp))
sp1 <- unique(mydata$sp)
for(i in 1:n ){
  name=sp1
  c=mydata[mydata$sp==name, ]
   plot(c(22,30), c(28,400), type = "n", xlab = "x", ylab = "y")
   z<-lm(c$SLA~c$T1,data=c)
   abline(z)
}




数据格式

sp(20个物种)	traits

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：回归线 Data 最后一个 线性回归 Set

只是画图是吧，那把数据格式调整一下，用ggplot2就可以了。

https://ggplot2.tidyverse.org/reference/geom_smooth.html

1. ggplot(mpg, aes(displ, hwy, colour = class)) +
   
2.   geom_point() +
   
3.   geom_smooth(se = FALSE, method = lm)

复制代码