r - 如何修复 abline 警告，仅使用前两个系数？

Question

我在使用 abline() 时一直无法解决错误。我不断收到警告消息:在 abline(model): 只使用 7 个回归系数中的前两个。我一直在搜索并看到许多其他有此错误的实例，但它们的示例适用于多个线性函数。我是 R 的新手，下面是我正在使用的一个简单示例。谢谢你的帮助!

year = c('2010','2011','2012','2013','2014','2015','2016')
population = c(25244310,25646389,26071655,26473525,26944751,27429639,27862596)
Texas=data.frame(year,population) 

plot(population~year,data=Texas)
model = lm(population~year,data=Texas)
abline(model)

Answer 1

您可能需要类似以下内容，我们确保 year被解释为 numeric模型中的变量:

plot(population ~ year, data = Texas)
model <- lm(population ~ as.numeric(as.character(year)), data = Texas)
abline(model)

这使得 lm估计截距(对应于第 0 年)和斜率(每年人口的平均增长)，这是由 abline 正确解释的从图中也可以看出。
警告的原因是年份成为 7 个级别的因素，因此您的 lm call 估计引用年 2010 的平均值(截距)和 6 与其他年份的对比。因此你会得到很多系数和 abline只错误地使用了前两个。
编辑:话虽如此，您可能想要改变方式 year存储为数字。然后你的代码工作，和 plot还制作适当的散点图作为回归线。

Texas$year <- as.numeric(as.character(Texas$year))

plot(population ~ year, data = Texas, pch = 16)
model <- lm(population ~ year, data = Texas)
abline(model)

请注意 as.character一般需要，但它适用于 lm没有它巧合(因为年份是连续的)