Таблицу с данными можно скачать по адресу: https://drive.google.com/file/d/0B1-mEC66uyKSSWlGQmtMYXo0U3M/view?usp=sharing

Таблица содержит данные, объединенные из трех источников:

  1. Распределение населения по возрастным группам (http://www.gks.ru/free_doc/new_site/population/demo/demo14.xls);
  2. Численность постоянного населения - мужчин по возрасту на 1 января (человек) (http://fedstat.ru/indicator/data.do?id=31548);
  3. Численность постоянного населения - женщин по возрасту на 1 января (человек) (http://fedstat.ru/indicator/data.do?id=33459).
dateDownloaded <- date()
dateDownloaded
## [1] "Sat Nov 14 08:23:52 2015"
setwd("~/Документы/DATA")
PeopleAge <- read.csv("Распределение населения по возрастным группам.csv")
#Данные Росстата РФ, трудоспособный возраст - 16-59 для мужчин, 16-54 для женщин, 
#тыс. человек

С начала 00-х гг. количество россиян трудоспособного возраста уменьшается, а количество пенсионеров растёт.

Данные есть не по всем годам, поэтому отдельные отрезки графика сглажены и не отображают возможные краткосрочные колебания.

library(ggplot2)
ggplot(PeopleAge, aes(x = Date))+
    geom_line(aes(y = WorkingAge, colour = "Трудоспособного возраста"))+
    geom_line(aes(y = UpWorkingAge, colour = "Выше трудоспособного возраста"))+
    labs(colour = " ", y = " ", x = " ")+
    theme(legend.position = "top", legend.box = "horizontal")

Посмотрим, сколько работников приходится на одного пенсионера.

PeopleAge$WorkPerUpWork <- PeopleAge$WorkingAge/PeopleAge$UpWorkingAge
ggplot(PeopleAge, aes(x = Date, y = WorkPerUpWork))+
    geom_line()+
    geom_smooth(method = "lm")+
    labs(x = " ", y = " ")

В 20-х гг. прошлого века на одного пенсионера приходилось 6 работников, в 70-х - 4, в 90-х - 3. Сейчас всё ближе к 2.

С помощью линейной регрессионной модели можно предсказать год, когда на 1 пенсионера будет приходиться 1 гражданин в трудоспособном возрасте.

model <- lm(Date ~ WorkPerUpWork, PeopleAge)
predict(model, data.frame (WorkPerUpWork = c(1)))
##       1 
## 2042.83

Это 2043 год.