Голосование по вопросу переименования станции метро «Войковская», а также одноимённой железнодорожной станции и всего транспортно-пересадочного узла (ТПУ) началось в системе «Активный гражданин» 2 ноября 2015 года и завершилось 23 ноября 2015 года в 00:00.

Вопрос 1:
Переименовывать ли станцию метро «Войковская»? Этот вопрос москвичи обсуждают уже несколько лет. По мнению сторонников переименования, Войков — не тот человек, именем которого должна называться станция. Их оппоненты утверждают, что ничего страшного в этом нет, к тому же к названию все привыкли. Дискуссия разгорелась с новой силой, когда рядом с метро предложили построить железнодорожную станцию МКЖД и объединить ее с подземкой в большой пересадочный узел «Войковская». А как считаете вы, нужно ли переименовать «Войковские» станции метро, железной дороги и пересадочный узел?

Вопрос 2:
Вы можете предложить свой вариант названия для станций и ТПУ или передать решение этого вопроса специалистам.

#Данные с Портала открытых данных Правительства Москвы. Ссылка для скачивания: 
#http://data.mos.ru/opendata/7710878000-rezultaty-golosovaniya-na-proekte-aktivniy-grajdanin/passport?versionNumber=1&releaseNumber=2
#dateDownloaded <- date()
#dateDownloaded
#Fri Dec 25 15:53:44 2015

#setwd("~/Документы/RAW DATA")
#RAWdata <- read.csv("Результаты голосования по переименованию Войковской.csv", 
#                   sep = ";", header = T, fileEncoding = "Windows-1251")
#data <- subset(RAWdata, select = c(Дата.завершения.голосования, Ответ.на.вопрос.1))

setwd("~/Документы/DATA")
data <- read.csv("Результаты голосования по переименованию Войковской.csv", 
                    sep = ";", header = T, fileEncoding = "Windows-1251")
data$Дата.завершения.голосования <- as.Date(data$Дата.завершения.голосования, 
                                            format = "%Y-%m-%d")
levels(data$Ответ.на.вопрос.1)[1] <- "Да, я считаю, что необходимо переименовать"
levels(data$Ответ.на.вопрос.1)[3] <- "Нет, необходимо сохранить существующие названия"

Результаты голосования по Вопросу 1:

data2 <- data.frame(summary(data$Ответ.на.вопрос.1))
colnames(data2) <- c("Количество")
data2$Доли <- data2$Количество/sum(data2$Количество)*100
sum(data2$Количество)
## [1] 304074
data2[order(data2$Доли, decreasing = T),]
##                                                 Количество      Доли
## Нет, необходимо сохранить существующие названия     161466 53.100890
## Да, я считаю, что необходимо переименовать          105357 34.648474
## Затрудняюсь ответить                                 22451  7.383400
## Это должны решать специалисты                        14800  4.867236

В голосовании приняло участие 304074 москвича.

library(gridExtra)
library(ggplot2)

plot1 <- ggplot(data = data, aes(x = Дата.завершения.голосования))+
    geom_bar(aes(fill = Ответ.на.вопрос.1))+
    labs(title = "Переименовывать ли станцию метро «Войковская»?", 
         x = " ", y = "количество", fill = " ")+
    theme(legend.position = "none")
plot2 <- ggplot(data = data, aes(x = Дата.завершения.голосования))+
    geom_bar(aes(fill = Ответ.на.вопрос.1), position = "fill")+
    labs(x = " ", 
         y = "доли", fill = " ")+
    theme(legend.position = "bottom", legend.direction = "vertical" )
grid.arrange(plot1, plot2, ncol = 1)

8 ноября программа «Вести недели» с Дмитрием Киселёвым показала сюжет о «Войковской»:

data3 <- data.frame(table(data))
data3 <- subset(data3, Дата.завершения.голосования == "2015-11-08")
data3$Доли <- data3$Freq/sum(data3$Freq)*100
data3[order(data3$Доли, decreasing = T),]
##    Дата.завершения.голосования
## 7                   2015-11-08
## 49                  2015-11-08
## 28                  2015-11-08
## 70                  2015-11-08
##                                  Ответ.на.вопрос.1 Freq      Доли
## 7       Да, я считаю, что необходимо переименовать 4888 49.493722
## 49 Нет, необходимо сохранить существующие названия 4072 41.231268
## 28                            Затрудняюсь ответить  546  5.528554
## 70                   Это должны решать специалисты  370  3.746456

Расстановка сил изменилась: 49% проголосовали за переименование, 41% - против. В дальнейшем - уровень выправился.

Схожая, но с обратным эффектом “аномалия” случилась 21 ноября:

data4 <- data.frame(table(data))
data4 <- subset(data4, Дата.завершения.голосования == "2015-11-21")
data4$Доли <- data4$Freq/sum(data4$Freq)*100
data4[order(data4$Доли, decreasing = T),]
##    Дата.завершения.голосования
## 62                  2015-11-21
## 20                  2015-11-21
## 83                  2015-11-21
## 41                  2015-11-21
##                                  Ответ.на.вопрос.1 Freq      Доли
## 62 Нет, необходимо сохранить существующие названия 1446 59.925404
## 20      Да, я считаю, что необходимо переименовать  669 27.724824
## 83                   Это должны решать специалисты  163  6.755077
## 41                            Затрудняюсь ответить  135  5.594695

60% проголосовали против переименования. 28% - за.