Социальный портрет преступности в РФ реконструирован по следующим категориям: пол, возраст, занятость, образование, гражданство - с 2010 по 2014 гг. Все данные исследованы с точки зрения влияния на них кризисных явлений 2014 года.

Данные для анализы взяты с хаба открытых данных - создан и поддерживается НП “Информационная культура”.

setwd("~/Рабочий стол")
if (!file.exists("Социальный портрет преступности в #РФ")) {
        dir.create("Социальный портрет преступности в #РФ")
}
setwd("~/Рабочий стол/Социальный портрет преступности в РФ")
#fileUrl <- "http://hubofdata.ru/storage/f/2015-09-17T09%3A02%3A17.813Z/crimestat-social-portrait.csv"
#download.file(fileUrl, destfile = "crimestat-social-portrait.csv")
dateDownloaded <- date()
dateDownloaded
## [1] "Sun Nov  1 20:42:17 2015"

Оригинальная таблица содержит разбивку по регионам Российской Федерации. В исследовании представлены данные для страны в целом.

crimestat <- read.csv("crimestat-social-portrait.csv")
crimestatRF <- subset(crimestat, Регион == "Российская Федерация", select = -c(1))

Преступность сокращается

Кризис 2014 года не вызвал роста преступности. Наблюдается долговременная тенденция постепенного снижения количества совершаемых преступлений. Большинство преступлений совершается мужчинами (порядка 85%).

crimestatRFsex <- data.frame(xtabs(Значение ~ Пол + Период, data = crimestatRF))
crimestatRFsex$Freq <- crimestatRFsex$Freq/4
colnames(crimestatRFsex) <- c("Пол", "Период", "Значение")
crimestatRFsex$Пол <- ifelse (crimestatRFsex$Пол == "f", "жен.", "муж.")
library(ggplot2)
ggplot(crimestatRFsex, aes(x = Период, y = Значение, colour = Пол))+
    geom_line(aes(group = Пол))+
    geom_point(aes(size = Значение))+
    labs(title = "Динамика преступности в РФ")

Преступность в России стареет

Большинство преступлений в России совершается лицами в возрасте от 30 до 49 лет. Доля этой возрастной группы в общем количестве преступлений увеличивается с 2012 года.

На втором месте - группа 18-24 - имеет тенденцию к уменьшению, как и 14−15, 16-17, 25−29.

Количество преступников в возрасте за 50 лет незначительное, но оно стабильно растёт.

crimestatRFage <- subset(crimestatRF, Срез == "по возрасту", select = -c(2))
crimestatRFage$Категория <- as.character(crimestatRFage$Категория)
crimestatRFage$Категория <- as.factor(crimestatRFage$Категория)
crimestatRFage <- xtabs(Значение ~ Период + Категория, data = crimestatRFage)
crimestatRFage <- data.frame(crimestatRFage)
colnames(crimestatRFage) <- c("Год", "Возраст", "Значение")
ggplot(crimestatRFage, aes(x = Год, y = Значение, colour = Возраст))+
    geom_point(aes(size = Значение))+
    geom_line(aes(group = Возраст))+
    labs(title = "Социальный портрет преступности. По возрасту")

Количество преступников с высшим образованием выросло

Большинство преступлений совершается лицами с начальным образованием. На втором месте - среднее профессиональное. На третьем - среднее общее.

Количество преступников с высшим образованием незначительное, но оно растёт с 2013 года.

crimestatRFeduc <- subset(crimestatRF, Срез == "по образованию", select = -c(2))
crimestatRFeduc$Категория <- as.character(crimestatRFeduc$Категория)
crimestatRFeduc$Категория <- as.factor(crimestatRFeduc$Категория)
crimestatRFeduc <- xtabs(Значение ~ Период + Категория, data = crimestatRFeduc)
crimestatRFeduc <- data.frame(crimestatRFeduc)
colnames(crimestatRFeduc) <- c("Год", "Образование", "Значение")
ggplot(crimestatRFeduc, aes(x = Год, y = Значение, colour = Образование))+
    geom_point(aes(size = Значение))+
    geom_line(aes(group = Образование))+
    labs(title = "Социальный портрет преступности. По образованию")

Наёмные работники стали совершать преступления чаще

Большинство преступлений совершается лицами без постоянных источников доходов.

На втором месте - наёмные работники, их число растёт с 2013 года включительно.

crimestatRFsoc <- subset(crimestatRF, Срез == "по социальному составу", 
                         select = -c(2))
crimestatRFsoc$Категория <- as.character(crimestatRFsoc$Категория)
crimestatRFsoc$Категория <- as.factor(crimestatRFsoc$Категория)
crimestatRFsoc <- xtabs(Значение ~ Период + Категория, data = crimestatRFsoc)
crimestatRFsoc <- data.frame(crimestatRFsoc)
colnames(crimestatRFsoc) <- c("Год", "Занятость", "Значение")
ggplot(crimestatRFsoc, aes(x = Год, y = Значение, colour = Занятость))+
    geom_point(aes(size = Значение))+
    geom_line(aes(group = Занятость))+
    labs(title = "Преступность - по роду занятий")

Доля преступников-иностранцев выросла с 3% до 4%

96% преступлений в РФ совершается россиянами.

Доля преступников-иностранцев незначительная, но растущая.

crimestatRFcitiz <- subset(crimestatRF, Срез == "по принадлежности к гражданству", 
                           select = -c(2))
crimestatRFcitiz$Категория <- as.character(crimestatRFcitiz$Категория)
crimestatRFcitiz$Категория <- as.factor(crimestatRFcitiz$Категория)
crimestatRFcitiz <- xtabs(Значение ~ Период + Категория, data = crimestatRFcitiz)
crimestatRFcitiz <- data.frame(crimestatRFcitiz)
colnames(crimestatRFcitiz) <- c("Год", "Гражданство", "Значение")
migrants <- data.frame(c(2010, 2011, 2012, 2013, 2014), 
                       c(crimestatRFcitiz$Значение[1:5]/
                             (crimestatRFcitiz$Значение[1:5]+
                                  crimestatRFcitiz$Значение[6:10])*100))
colnames(migrants) <- c("Год", "Доля")

plot.migrants <- ggplot(migrants, aes(x = Год, y = Доля))+
    geom_line()+
    labs(y = "Доля мигрантов")
plot.crimestatRFcitiz <- ggplot(crimestatRFcitiz, aes(x = Год, y = Значение, 
                                                      colour = Гражданство))+
    geom_line(aes(group = Гражданство))+
    theme(legend.position = "top", legend.box = "vertical" )+
    labs(title = "Вклад граждан других государств в российскую преступность", 
         colour = "", x = "")
library(gridExtra)
grid.arrange(plot.crimestatRFcitiz, plot.migrants, ncol = 1)