4.4. Stacked donut

library(ggplot2)
library(webr)
library(dplyr)

## 
## Присоединяю пакет: 'dplyr'

## Следующие объекты скрыты от 'package:stats':
## 
##     filter, lag

## Следующие объекты скрыты от 'package:base':
## 
##     intersect, setdiff, setequal, union

library(tidyr)
library(viridisLite)

gapminder <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/gapminderDataFiveYear.csv")
gapminder0 <- gapminder %>% dplyr::filter(year == 1977)
gapminder0$lifeExp_criteria <- ifelse(gapminder0$lifeExp > median(gapminder0$lifeExp), "More than median", "Low than median")
gapminder1 <- as.data.frame(table(gapminder0$continent, gapminder0$lifeExp_criteria))
colnames(gapminder1) <- c("Continent", "LifeExp_criteria", "Amount")
PieDonut(gapminder1, aes(Continent, LifeExp_criteria, count=Amount))

PieDonut(gapminder1, aes(Continent, LifeExp_criteria, count=Amount), explode = 1)

PieDonut(gapminder1, aes(Continent, LifeExp_criteria, count=Amount), explode = 1, explodeDonut = TRUE)