Создание диаграммы p ie в соответствии с фреймом данных

Question

df <- read.csv ('https://raw.githubusercontent.com/ulklc/covid19- 
timeseries/master/countryReport/raw/rawReport.csv',
            stringsAsFactors = FALSE)

Как создать ap ie диаграмму смерти, подтвержденные и восстановленные поля в этом наборе данных по регионам.

Answer 1

идеально подходит для tidyverse

library(tidyverse)
df %>% 
  as_tibble() %>% 
  select(region, confirmed, recovered, death) %>% 
  gather(type, value, -region) %>% 
  group_by(region,type) %>%
  summarise(value= sum(value)) %>%
  ggplot(aes(x="", value, fill =region)) +
  geom_col(position = position_fill(), color="white") + 
  ggrepel::geom_text_repel(aes(label = region), direction = "y",
                           position = position_fill(vjust = 0.5)) +
  coord_polar(theta = "y") +
  scale_fill_discrete("") +
  facet_wrap(~type) +
  theme_void() + 
  theme(legend.position = "bottom")

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