Я прогнозирую численность населения на следующие несколько лет, как добавить прогнозные данные в исходный набор данных и затем построить полный набор данных? - PullRequest
Новая
       203

Я прогнозирую численность населения на следующие несколько лет, как добавить прогнозные данные в исходный набор данных и затем построить полный набор данных?

0 голосов
/ 04 мая 2020

- Этот код работает нормально 

 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

- Я не смог добавить новые прогнозы и новые годы к своим исходным данным, чтобы я мог построить график это из.

1 Ответ

0 голосов
/ 04 мая 2020

Попробуйте это: 

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")
...