4.2. Chord diagram

library(ggplot2)
library(dplyr)

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

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

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

library(circlize)

## ========================================
## circlize version 0.4.15
## CRAN page: https://cran.r-project.org/package=circlize
## Github page: https://github.com/jokergoo/circlize
## Documentation: https://jokergoo.github.io/circlize_book/book/
## 
## If you use it in published research, please cite:
## Gu, Z. circlize implements and enhances circular visualization
##   in R. Bioinformatics 2014.
## 
## This message can be suppressed by:
##   suppressPackageStartupMessages(library(circlize))
## ========================================

gapminder <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/gapminderDataFiveYear.csv")

gapminder1 <- gapminder %>% dplyr::filter(year == 1952)

gapminder1$lifeExpCriteria <- ifelse(gapminder1$lifeExp < quantile(gapminder1$lifeExp, 0.3),"Low", 
                                     ifelse(gapminder1$lifeExp > quantile(gapminder1$lifeExp, 0.7), "High", "Neutral"))

gapminder2 <- as.data.frame(table(gapminder1$continent, gapminder1$lifeExpCriteria))
colnames(gapminder2) <- c("Continent", "LifeExpCriteria", "Amount")

chordDiagram(gapminder2)

ggplot(data = gapminder2, aes(x = Continent, y = Amount, fill = LifeExpCriteria)) + geom_col() + theme_bw() + ylab("Количество") + xlab("") + scale_fill_manual(values = c("lightblue", "slateblue", "darkblue"))