我正在预测未来几年的人口，如何将预测数据附加到我的原始数据集，然后绘制完整的数据集？

Question

- 此代码运行良好

 FL.POP = read.csv("C:\\Users\\jevans\\Desktop\\Jessica School\\Florida population 2010-2019.csv", header = TRUE )
    Year <- as.numeric(FL.POP$Year)
    Population <- as.numeric(FL.POP$Population_Estimation)
    model<-lm(Population~Year)
    model
    plot(formula=(Population~Year),data=FL.POP,main='Florida Population')
    abline(reg=lm(formula=(Population~Year),data=FL.POP),col='red')
    summary(FL.POP)

    new.years<- data.frame(Year = c(2019,2020,2021,2022,2023,2024,2025))
    NewData<-predict(model,newdata = new.years)
    NewData
    new.pop<- data.frame(Population = c(NewData))
    new.pop
    new.years

-我无法将新的预测和新年附加到我的原始数据中，以便绘制出来。

Answer 1

试试这个：

FL.POP = read.csv("C:\\Users\\jevans\\Desktop\\Jessica School\\Florida population 2010-2019.csv", header = TRUE )

model<-lm(Population_Estimation ~ Year, data = FL.POP)
model
plot(Population_Estimation ~ Year, data=FL.POP, main = 'Florida Population')
abline(reg = model, col='red')

newdata<- data.frame(Year = c(2019,2020,2021,2022,2023,2024,2025))
pred <- predict(model, newdata = newdata)
newdata$Population_Estimation <- pred

FL.POP <- rbind(FL.POP, newdata)

如果您想覆盖 csv 文件以及预测，

write.csv(FL.POP, "C:\\Users\\jevans\\Desktop\\Jessica School\\Florida population 2010-2019.csv")