CODEWITHSUNDEEP
r
savasseker
savasseker

Reputation: 29

Creating the pie chart according to the dataframe

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

How to create a pie chart of the death, confirmed and recovered fields in this data set by region.

Upvotes: 0

Views: 83

Answers (1)

Roman
Roman

Reputation: 17648

perfect for a 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")

enter image description here

For labels I used function geom_text_repel from ggrepel package to easily avoid overplotting.

Upvotes: 1

Related Questions