Графики P ie не полностью обведены / загружены - PullRequest
Новая
       17

Графики P ie не полностью обведены / загружены

0 голосов
/ 17 июня 2020

Я пытаюсь показать рост новых соискателей за месяцы короны. Итак, я отфильтровал таблицу с необходимой мне статистикой из полного df и назвал ее 'dist.newseek' 

   Month   District  NewSeekers
   <chr>   <chr>          <int>
 1 2020-01 Dan             6551
 2 2020-01 Jerusalem       3589
 3 2020-01 North           6154
 4 2020-01 Sharon          4131
 5 2020-01 South           4469
 6 2020-02 Dan             5529
 7 2020-02 Jerusalem       2721
 8 2020-02 North           5061
 9 2020-02 Sharon          3464
10 2020-02 South           3612
11 2020-03 Dan           231315
12 2020-03 Jerusalem     137479
13 2020-03 North         159445
14 2020-03 Sharon        123753
15 2020-03 South         104868
16 2020-04 Dan            55038
17 2020-04 Jerusalem      33995
18 2020-04 North          40572
19 2020-04 Sharon         31373
20 2020-04 South          23914

И я пытаюсь найти лучший способ показать рост NewSeekers в период с января до апреля Я знаю, что есть графики лучше, чем диаграмма p ie, чтобы было намного понятнее, но мне нужно показать много типов графиков, и я уже использовал гистограммы. Если у вас есть какие-либо другие специальные предложения по графикам, я приму его

Что касается проблемы, я использовал ggplot с geo_text, но круг не полный, а текст совсем не четкий

Вот код, который я использовал: 

dist.newseek <- Cdata %>% 
  group_by(Month,District) %>% 
  summarise(NewSeekers=sum(NewSeekers))


ggplot(dist.newseek, aes(x="", y=NewSeekers, group=District, color=District, fill=District)) +
  geom_bar(width = 1, stat = "identity") +
  geom_text(aes(label = paste0(NewSeekers,
                               " (",
                               scales::percent(NewSeekers / sum(NewSeekers)),
                               ")")),
            position = position_stack(vjust = 0.5)) +
  coord_polar("y", start=0) + facet_wrap(~ Month) +
  theme(axis.text = element_blank(),
        axis.ticks = element_blank(),
        panel.grid  = element_blank())

И сюжет:

P ie пример диаграммы

Спасибо за помощь

...