Распределение общего количества обращений граждан, поступивших в электронной, письменной и устной форме в Администрацию Губернатора Санкт-Петербурга в IV квартале 2019 года 

formattable(slide4, 
            align =c("l","c","c","c","c"),
            list(`Indicator Name` = formatter(
            "span", style = ~ style(color = "grey",font.weight = "bold"))))
Период Письменная Электронная Устная Итого
IV квартал 2019 3587 11008 403 14998
III квартал 2019 4537 11918 540 16995
IV квартал 2018 4195 9620 416 14231 
ggplot(slide4_vis %>% filter(Период == "IV квартал 2019"), aes(x = reorder(Форма, -Количество), y = Количество)) + 
     geom_bar(color = "black", stat = "identity", alpha = 0.5, fill = "lightblue") +
     geom_text(aes(x = Форма, y = Количество, label = paste("",perc, "%")),
                   size = 4, vjust = -0.5, hjust = 0.5)+
     scale_y_continuous(breaks = 0:11300*2000, limits = c(0,11300)) +
     labs(title = "Распределение общего количества обращений граждан\nза IV квартал 2019 года
               ", y  = "Количество", x = "
Форма обращения") +
     theme_minimal() +
     theme(text = element_text(size = 11),
     plot.title = element_text(hjust = 0.5), title = element_text(size = 11))

slide4_vis$Период = ordered(slide4_vis$Период, levels = c("IV квартал 2018", "III квартал 2019", "IV квартал 2019"))

ggplot(data = slide4_vis, aes(x = factor(1), y = perc, fill = Форма))+
  geom_bar(stat = "identity", width = 1, color = "black", alpha = 0.5)+
  scale_fill_brewer(palette="Accent")+
  facet_wrap(. ~ Период, nrow = 1)+
  coord_polar(theta = "y", start = 0)+
  theme_bw()+
  geom_text(aes(label = paste(perc,"%"), y = perc), 
            position = position_stack(vjust = 0.5), size = 3)+
  theme(axis.text = element_blank(),
  axis.ticks = element_blank(),
  panel.grid  = element_blank())+
  labs(title = "Распределение общего количества обращений граждан
       ", y = NULL, x = NULL)+
  guides(fill=guide_legend(title= "Период:", nrow = 1))+
  theme(text = element_text(size = 11), 
        legend.position = "bottom", legend.text = element_text(size = 10),
          plot.title = element_text(hjust = 0.5), title = element_text(size = 11))

Источники поступления обращений граждан в Администрацию Губернатора Санкт-Петербурга в IV квартале 2019 года 

slide5 <- read_excel("~/prac/источники.xlsx")
slide5$Номер = as.factor(slide5$Номер)
slide5 = slide5[c(1,2,3),]
colnames(slide5)[1] = "Период"
slide5$Период[slide5$Период == "IV квартал 2019"] = "IV квартал 2019"
slide5$Период[slide5$Период == "III квартал 2019"] = "III квартал 2019"
slide5$Период[slide5$Период == "IV квартал 2018"] = "IV квартал 2018"


slide5_vis <- read_excel("~/prac/slide5.xlsx")
slide5_vis = slide5_vis %>% filter(Номер == "IV квартал 2019") %>% mutate(perc = round(Количество/sum(Количество),4)*100)


formattable(slide5, 
            align =c("l","c","c","c","c","c","c","c","c","c","c"),
            list(`Indicator Name` = formatter(
            "span", style = ~ style(color = "grey",font.weight = "bold"))))
Период I. Управление Президента Российской Федерации по работе с обращениями граждан и организаций
  1. Законодательное Собрание Санкт-Петербурга
  1. Исполнительные органы государственной власти Санкт-Петербурга
  1. Органы местного самоуправления Санкт-Петербурга
V. Федеральные органы исполнительной власти
  1. Прокуратура
  1. Региональные органы исполнительной власти
  1. Заявители
  1. Иные
Итого
IV квартал 2019 2291 139 6 7 647 423 92 11155 238 14998
III квартал 2019 2395 84 17 7 512 348 110 13233 289 16995
IV квартал 2018 2898 204 30 3 705 504 106 9536 245 14231 
ggplot(slide5_vis, aes(x = reorder(Источники, -Количество), y = Количество)) + 
     geom_bar(color = "black", stat = "identity", alpha = 0.5, fill = "lightblue") +
     geom_text(aes(x = Источники, y = Количество, label = paste("",perc, "%")),
                   size = 3.5, vjust = -0.5, hjust = 0.5)+
     scale_y_continuous(breaks = 0:11160*2000, limits = c(0,11160)) +
     labs(title = "Источники поступления обращений граждан в Администрацию\nГубернатораСанкт-Петербурга в IV квартале 2019 года

               ", y  = "Количество обращений", x = "Источник") +
     theme_minimal() +
     theme(text = element_text(size = 11),
     plot.title = element_text(hjust = 0.5), title = element_text(size = 9))

Источники поступления обращений граждан в Администрацию Губернатора Санкт-Петербурга в IV квартале 2019 года 

slide6 <- read_excel("~/prac/тематики.xlsx")
slide6 = slide6 %>% select(-доля, -доля__1, -доля__2) 

formattable(slide6, 
            align =c("l","c","c","c"),
            list(`Indicator Name` = formatter(
            "span", style = ~ style(color = "grey",font.weight = "bold"))))
Тематика IV квартал 2019 III квартал 2019 IV квартал 2018
Государство, общество, политика 3383 3344 2516
Социальная сфера 2708 4141 2941
Экономика 6187 6072 5229
Оборона, безопасность, законность 807 1151 709
Жилищно-коммунальная сфера 4179 5669 5011
Итого 17264 20377 16406 
slide6_vis <- read_excel("~/prac/slide6.xlsx")
slide6_vis$Тематика[slide6_vis$Количество == 3383|slide6_vis$Количество == 3344|slide6_vis$Количество == 2516] = "Государство, общество, политика"
slide6_vis$Тематика[slide6_vis$Количество == 4179|slide6_vis$Количество == 5669|slide6_vis$Количество == 5011] = "Жилищно-коммунальная сфера"
slide6_vis = slide6_vis %>% group_by(Период) %>%  mutate(perc = round(Количество/sum(Количество),4)*100)


ggplot(slide6_vis %>% filter(Период == "IV квартал 2019"), aes(x = reorder(Тематика, -Количество), y = Количество, fill = Тематика)) + 
     geom_bar(color = "black", stat = "identity", alpha = 0.5) +
     geom_text(aes(x = Тематика, y = Количество, label = paste("",perc, "%")),
                   size = 3.5, vjust = -0.5, hjust = 0.5)+
     scale_y_continuous(breaks = 0:6400*1000, limits = c(0,6400)) +
     labs(title = "Источники поступления обращений граждан в Администрацию\nГубернатора Санкт-Петербурга в IV квартале 2019 года
               ", y  = "Количество", x = "Тематика обращения") +
     theme_minimal() +
     scale_fill_brewer(palette = "Accent")+
     guides(fill=guide_legend(title= "Тематика:", nrow = 3))+
     theme(text = element_text(size = 11), axis.text.x=element_blank(), legend.position = "bottom", legend.text = element_text(size = 9),
     plot.title = element_text(hjust = 0.5), title = element_text(size = 9))

ggplot(data = slide6_vis, aes(x = Период, y = Количество, fill = Тематика, label = perc)) + 
       geom_bar(stat = "identity",color = "black", alpha = 0.5) + 
       geom_text(aes(label = paste0(perc, "%")), position = position_stack(vjust = 0.5), size = 3.5) +
       scale_y_continuous(labels = scales::percent)+
       labs(title = "Источники поступления обращений граждан\nв Администрацию Губернатора Санкт-Петербурга
            ", y  = "Количество", x = "") +
       theme_minimal() +
       scale_fill_brewer(palette = "Accent")+
       guides(fill=guide_legend(title= "Тематика:", nrow = 3))+
       theme(text = element_text(size = 11), axis.text.y = element_blank(),
       legend.position = "bottom", legend.text = element_text(size = 9),
       plot.title = element_text(hjust = 0.5), title = element_text(size = 9))

Количество вопросов, содержащихся в обращениях граждан, поступивших в Администрацию Губернатора Санкт-Петербурга в IV квартале 2019 года, с распределением по тематикам и группам тем по тематическому разделу «Государство, общество, политика» 

slide7 <- read_excel("~/prac/slide7.xlsx")

formattable(slide7, 
            align =c("l","c","c","c","c","c","c","c"),
            list(`Indicator Name` = formatter(
            "span", style = ~ style(color = "grey",font.weight = "bold"))))
Государство, общество, политика I. Конституционный строй
  1. Основы государственного управления
  1. Гражданское право
  1. Международные отношения. Международное право
V. Индивидуальные правовые акты по кадровым вопросам, вопросам награждения, помилования, гражданства, присвоения почетных и иных званий Количество вопросов в обращениях
IV квартал 2019 315 2984 55 6 23 3383
III квартал 2019 375 2854 87 7 21 3344
IV квартал 2018 233 2114 147 5 17 2516 
slide7_vis <- read_excel("~/prac/slide7 (1).xlsx")
slide7_vis = slide7_vis %>% group_by(Период) %>% mutate(perc = round(Количество/sum(Количество),4)*100)

ggplot(slide7_vis %>% filter(Период == "IV квартал 2019"), aes(x = reorder(Тема, -Количество), y = Количество)) + 
     geom_bar(color = "black", stat = "identity", alpha = 0.5, fill = "lightblue") +
     geom_text(aes(x = Тема, y = Количество, label = paste("",perc, "%")),
                   size = 3.5, vjust = -0.5, hjust = 0.5)+
     scale_y_continuous(breaks = 0:3000*500, limits = c(0,3050)) +
     labs(title = "Количество вопросов, поступивших в Администрацию Губернатора\nСанкт-Петербурга в IV квартале 2019 года\nпо тематическому разделу «Государство, общество, политика»
               ", y  = "Количество обращений", x = "Тема") +
     theme_minimal() +
     theme(text = element_text(size = 11),
     plot.title = element_text(hjust = 0.5), title = element_text(size = 9))

Количество вопросов, содержащихся в обращениях граждан, поступивших в Администрацию Губернатора Санкт-Петербурга в IV квартале 2019 года, с распределением по тематикам и группам тем по тематическому разделу «Социальная сфера» 

slide8 <- read_excel("~/prac/slide8.xlsx")

formattable(slide8, 
            align =c("l","c","c","c","c","c","c","c"),
            list(`Indicator Name` = formatter(
            "span", style = ~ style(color = "grey",font.weight = "bold"))))
Социальная сфера I. Семья
  1. Труд и занятость населения
  1. Социальное обеспечение и социальное страхование
  1. Образование. Наука. Культура
V. Здравоохранение. Физическая культура и спорт. Туризм Количество вопросов в обращениях
IV квартал 2019 111 208 816 799 774 2708
III квартал 2019 144 230 1140 1555 1072 4141
IV квартал 2018 110 216 997 867 751 2941 
slide8_vis <- read_excel("~/prac/slide8 (1).xlsx")
slide8_vis = slide8_vis %>% group_by(Период) %>% mutate(perc = round(Количество/sum(Количество),4)*100)

ggplot(slide8_vis %>% filter(Период == "IV квартал 2019"), aes(x = reorder(Тема, -Количество), y = Количество)) + 
     geom_bar(color = "black", stat = "identity", alpha = 0.5, fill = "lightblue") +
     geom_text(aes(x = Тема, y = Количество, label = paste("",perc, "%")),
                   size = 3.5, vjust = -0.5, hjust = 0.5)+
     scale_y_continuous(breaks = 0:850*250, limits = c(0,850)) +
     labs(title = "Количество вопросов, поступивших в Администрацию Губернатора\nСанкт-Петербурга в IV квартале 2019 года\nпо тематическому разделу «Социальная сфера»
               ", y  = "Количество обращений", x = "Тема") +
     theme_minimal() +
     theme(text = element_text(size = 11),
     plot.title = element_text(hjust = 0.5), title = element_text(size = 9))

Количество вопросов, содержащихся в обращениях граждан, поступивших в Администрацию Губернатора Санкт-Петербурга в IV квартале 2019 года, с распределением по тематикам и группам тем по тематическому разделу «Экономика» 

slide9 <- read_excel("~/prac/slide9.xlsx")

formattable(slide9, 
            align =c("l","c","c","c","c","c","c","c"),
            list(`Indicator Name` = formatter(
            "span", style = ~ style(color = "grey",font.weight = "bold"))))
Экономика I. Финансы
  1. Хозяйственная деятельность
  1. Внешнеэкономическая деятельность. Таможенное дело
  1. Природные ресурсы и охрана окружающей природной среды
V. Информация и информатизация Количество вопросов в обращениях
IV квартал 2019 984 4443 2 532 226 6187
III квартал 2019 448 4829 0 603 192 6072
IV квартал 2018 98 4269 1 671 190 5229 
slide9_vis <- read_excel("~/prac/slide9 (1).xlsx")
slide9_vis = slide9_vis %>% group_by(Период) %>% mutate(perc = round(Количество/sum(Количество),4)*100)

ggplot(slide9_vis %>% filter(Период == "IV квартал 2019"), aes(x = reorder(Тема, -Количество), y = Количество)) + 
     geom_bar(color = "black", stat = "identity", alpha = 0.5, fill = "lightblue") +
     geom_text(aes(x = Тема, y = Количество, label = paste("",perc, "%")),
                   size = 3.5, vjust = -0.5, hjust = 0.5)+
     scale_y_continuous(breaks = 0:4500*500, limits = c(0,4500)) +
     labs(title = "Количество вопросов, поступивших в Администрацию Губернатора\nСанкт-Петербурга в IV квартале 2019 года\nпо тематическому разделу «Экономика»
               ", y  = "Количество обращений", x = "Тема") +
     theme_minimal() +
     theme(text = element_text(size = 11),
     plot.title = element_text(hjust = 0.5), title = element_text(size = 9))

Количество вопросов, содержащихся в обращениях граждан, поступивших в Администрацию Губернатора Санкт-Петербурга в IV квартале 2019 года, с распределением по тематикам и группам тем по тематическому разделу «Оборона, безопасность, законность» 

slide10 <- read_excel("~/prac/slide10.xlsx")

formattable(slide10, 
            align =c("l","c","c","c","c","c","c","c"),
            list(`Indicator Name` = formatter(
            "span", style = ~ style(color = "grey",font.weight = "bold"))))
Оборона, безопасность, законность I. Оборона
  1. Безопасность и охрана правопорядка
  1. Уголовное право. Исполнение наказаний
  1. Правосудие
V. Прокуратура. Органы юстиции. Адвокатура. Нотариат Количество вопросов в обращениях
IV квартал 2019 107 575 5 67 53 807
III квартал 2019 83 873 14 117 64 1151
IV квартал 2018 129 501 1 54 24 709 
slide10_vis <- read_excel("~/prac/slide10 (1).xlsx")
slide10_vis = slide10_vis %>% group_by(Период) %>% mutate(perc = round(Количество/sum(Количество),4)*100)

ggplot(slide10_vis %>% filter(Период == "IV квартал 2019"), aes(x = reorder(Тема, -Количество), y = Количество)) + 
     geom_bar(color = "black", stat = "identity", alpha = 0.5, fill = "lightblue") +
     geom_text(aes(x = Тема, y = Количество, label = paste("",perc, "%")),
                   size = 3.5, vjust = -0.5, hjust = 0.5)+
     scale_y_continuous(breaks = 0:610*100, limits = c(0,610)) +
     labs(title = "Количество вопросов, поступивших в Администрацию Губернатора\nСанкт-Петербурга в IV квартале 2019 года\nпо тематическому разделу «Оборона, безопасность, законность»
               ", y  = "Количество обращений", x = "Тема") +
     theme_minimal() +
     theme(text = element_text(size = 11),
     plot.title = element_text(hjust = 0.5), title = element_text(size = 9))

Количество вопросов, содержащихся в обращениях граждан, поступивших в Администрацию Губернатора Санкт-Петербурга в IV квартале 2019 года, с распределением по тематикам и группам тем по тематическому разделу «Жилище» 

slide11 <- read_excel("~/prac/slide11.xlsx")

formattable(slide11, 
            align =c("l","c","c","c","c","c","c","c"),
            list(`Indicator Name` = formatter(
            "span", style = ~ style(color = "grey",font.weight = "bold"))))
Жилище I. Общие положения жилищного законодательства
  1. Жилищный фонд
  1. Обеспечение граждан жилищем, пользование жилищным фондом, социальные гарантии в жилищной сфере (за исключением права собственности на жилище)
  1. Коммунальное хозяйство
V. Оплата строительства, содержания и ремонта жилья (кредиты, компенсации, субсидии, льготы)
  1. Нежилые помещения. Административные здания (в жилищном фонде)
Количество вопросов в обращениях
IV квартал 2019 51 37 1151 2645 128 167 4179
III квартал 2019 53 70 1374 3752 221 199 5669
IV квартал 2018 101 47 1391 3150 138 76 5011 
slide11_vis <- read_excel("~/prac/slide11 (1).xlsx")
slide11_vis = slide11_vis %>% group_by(Период) %>% mutate(perc = round(Количество/sum(Количество),4)*100)

ggplot(slide11_vis %>% filter(Период == "IV квартал 2019"), aes(x = reorder(Тема, -Количество), y = Количество)) + 
     geom_bar(color = "black", stat = "identity", alpha = 0.5, fill = "lightblue") +
     geom_text(aes(x = Тема, y = Количество, label = paste("",perc, "%")),
                   size = 3.5, vjust = -0.5, hjust = 0.5)+
     scale_y_continuous(breaks = 0:2800*500, limits = c(0,2800)) +
     labs(title = "Количество вопросов, поступивших в Администрацию Губернатора\nСанкт-Петербурга в IV квартале 2019 года\nпо тематическому разделу «Жилище»
               ", y  = "Количество обращений", x = "Тема") +
     theme_minimal() +
     theme(text = element_text(size = 11),
     plot.title = element_text(hjust = 0.5), title = element_text(size = 9))

Направление обращений граждан, поступивших в Администрацию Губернатора Санкт-Петербурга в IV квартале 2019 года, в администрации районов Санкт-Петербурга по компетенции поставленных вопросов 

slide12 <- read_excel("~/prac/перенаправления АР.xlsx")
colnames(slide12)[5] = "Изменение относительно III\nквартала 2019 г."
colnames(slide12)[1] = "Администрация"

formattable(slide12, 
            align =c("l","c","c","c","c","c","c","c"),
            list(`Indicator Name` = formatter(
            "span", style = ~ style(color = "grey",font.weight = "bold"))))
Администрация IV квартал 2018 III квартал 2019 IV квартал 2019 Изменение относительно III квартала 2019 г.
Администрация Адмиралтейского района 197 287 149 -138
Администрация Василеостровского района 182 254 189 -65
Администрация Выборгского района 383 570 452 -118
Администрация Калининского района 405 390 297 -93
Администрация Кировского района 255 358 276 -82
Администрация Колпинского района 97 162 121 -41
Администрация Красногвардейского района 271 340 254 -86
Администрация Красносельского района 243 357 320 -37
Администрация Кронштадтского района 39 66 58 -8
Администрация Курортного района 79 91 46 -45
Администрация Московского района 211 403 269 -134
Администрация Невского района 430 665 488 -177
Администрация Петроградского района 234 270 177 -93
Администрация Петродворцового района 78 108 85 -23
Администрация Приморского района 323 608 373 -235
Администрация Пушкинского района 186 320 190 -130
Администрация Фрунзенского района 223 338 243 -95
Администрация Центрального района 395 571 398 -173
Всего 4231 6158 4385 -1773

Распределение тематик в обращениях граждан по районам проживания в IV квартале 2019 года 

slide13 <- read_excel("prac/slide13.xlsx")

slide13 = slide13 %>% group_by(Администрация) %>% mutate(perc = round(Количество/sum(Количество),3)*100)
ggplot(data = slide13, aes(x = factor(1), y = perc, fill = Сфера))+
  geom_bar(stat = "identity", width = 1, color = "black", alpha = 0.6)+
  scale_fill_brewer(palette="Accent")+
  facet_wrap(. ~ Администрация, nrow = 3)+
  coord_polar(theta = "y", start = 0)+
  theme_bw()+
  theme(axis.text = element_blank(),
  axis.ticks = element_blank(),
  panel.grid  = element_blank())+
  labs(title = "Распределение тематик в обращениях граждан\nпо районам проживания в IV квартале 2019 года
       ", y = NULL, x = NULL)+
  guides(fill=guide_legend(title= "Сфера:", nrow = 2))+
  theme(text = element_text(size = 11), 
        legend.position = "bottom", legend.text = element_text(size = 10),
          plot.title = element_text(hjust = 0.5), title = element_text(size = 11))

Направление обращений граждан, поступивших в Администрацию Губернатора Санкт-Петербурга в IV квартале 2019 года, в исполнительные органы государственной власти Санкт-Петербурга по компетенции поставленных вопросов (Топ - 10) 

slide14 <- read_excel("prac/перенаправления к.xlsx")
colnames(slide14)[5] = "Изменения отностительно III\nквартала 2019 г."
slide14 = slide14[1:10, ]

slide14_vis <- read_excel("prac/slide14 (1).xlsx")
slide14_vis = slide14_vis %>% group_by(Перенаправления) %>% mutate(perc = round(Количество/sum(Количество),3)*100)
slide14_vis$Период = ordered(slide14_vis$Период, levels = c("IV квартал 2018", "III квартал 2019","IV квартал 2019"))

formattable(slide14, 
            align =c("l","c","c","c","c","c","c","c"),
            list(`Indicator Name` = formatter(
            "span", style = ~ style(color = "grey",font.weight = "bold"))))
Перенаправления IV квартал 2018 III квартал 2019 IV квартал 2019 Изменения отностительно III квартала 2019 г.
I. Жилищный комитет 416 679 598 -81
  1. Государственная жилищная инспекция
476 616 459 -157
  1. Комитет по развитию транспортной инфраструктуры
442 577 598 21
  1. Комитет по энергетике и инженерному обеспечению
255 462 340 -122
V. Комитет по социальной политике 261 405 301 -104
  1. Комитет по транспорту
326 369 403 34
  1. Комитет по благоустройству
262 364 329 -35
  1. Комитет имущественных отношений
310 344 227 -117
  1. Комитет по здравоохранению
246 336 314 -22
X. Комитет по строительству 200 322 240 -82 
ggplot(data = slide14_vis, aes(x = factor(1), y = perc, fill = Период))+
  geom_bar(stat = "identity", width = 1, color = "black", alpha = 0.5)+
  scale_fill_brewer(palette="Accent")+
  facet_wrap(. ~ Перенаправления, nrow = 2)+
  coord_polar(theta = "y", start = 0)+
  theme_bw()+
  geom_text(aes(label = paste(perc,"%"), y = perc), 
            position = position_stack(vjust = 0.5), size = 3)+
  theme(axis.text = element_blank(),
  axis.ticks = element_blank(),
  panel.grid  = element_blank())+
  labs(title = "Направление обращений граждан, поступивших в Администрацию\nГубернатора Санкт-Петербурга
       ", y = NULL, x = NULL)+
  guides(fill=guide_legend(title= "Сфера:", nrow = 1))+
  theme(text = element_text(size = 11), 
        legend.position = "bottom", legend.text = element_text(size = 10),
          plot.title = element_text(hjust = 0.5), title = element_text(size = 11))

Результаты рассмотрения обращений граждан, поступивших в Администрацию Губернатора Санкт-Петербурга в IV квартале 2019 года 

slide15 <- read_excel("~/prac/slide15.xlsx")
slide15$Ответ[slide15$Ответ == "Направлено по компетенции"] = "Направлено\nпо компетенции"
slide15$Ответ[slide15$Ответ == "Оставлено без ответа"] = "Оставлено\nбез ответа"
slide15_vis = slide15 %>% filter(Период == "IV квартал 2019") %>% mutate(perc = round(Количество/sum(Количество),4)*100)
slide15_vis2 = slide15 %>% group_by(Ответ) %>%  mutate(perc = round(Количество/sum(Количество),4)*100)

ggplot(slide15_vis, aes(x = reorder(Ответ, -Количество), y = Количество)) + 
     geom_bar(color = "black", stat = "identity", alpha = 0.5, fill = "lightblue") +
     geom_text(aes(x = Ответ, y = Количество, label = paste("",perc, "%")),
                   size = 3.5, vjust = -0.5, hjust = 0.5)+
     scale_y_continuous(breaks = 0:13000*1500, limits = c(0,13000)) +
     labs(title = "Результаты рассмотрения обращений граждан, поступивших в Администрацию\nГубернатора Санкт-Петербурга в IV квартале 2019 года
               ", y  = "Количество", x = "Ответ") +
     theme_minimal() +
     theme(text = element_text(size = 11),axis.text.x = element_text(angle = 20, hjust = 0.5, vjust = 1),
     plot.title = element_text(hjust = 0.5), title = element_text(size = 9))

slide15_vis2$Период = ordered(slide15_vis2$Период, levels = c("IV квартал 2018", "III квартал 2019","IV квартал 2019"))

ggplot(data = slide15_vis2, aes(x = factor(1), y = perc, fill = Период))+
  geom_bar(stat = "identity", width = 1, color = "black", alpha = 0.5)+
  scale_fill_brewer(palette="Accent")+
  facet_wrap(. ~ Ответ, nrow = 2)+
  coord_polar(theta = "y", start = 0)+
  theme_bw()+
  geom_text(aes(label = paste(perc,"%"), y = perc), 
            position = position_stack(vjust = 0.5), size = 3)+
  theme(axis.text = element_blank(),
  axis.ticks = element_blank(),
  panel.grid  = element_blank())+
  labs(title = "Результаты рассмотрения обращений граждан,\nпоступивших в Администрацию\nГубернатора Санкт-Петербурга
       ", y = NULL, x = NULL)+
  guides(fill=guide_legend(title= "Период:", nrow = 1))+
  theme(text = element_text(size = 11), 
        legend.position = "bottom", legend.text = element_text(size = 10),
          plot.title = element_text(hjust = 0.5), title = element_text(size = 10))