4.0. Area plot

library(dplyr)

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

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

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

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

#нахождение минимальной и максимальной продолжительности жизни
gapminder[which(gapminder$lifeExp==min(gapminder$lifeExp)),]

##      country year     pop continent lifeExp gdpPercap
## 1293  Rwanda 1992 7290203    Africa  23.599  737.0686

gapminder[which(gapminder$lifeExp==max(gapminder$lifeExp)),]

##     country year       pop continent lifeExp gdpPercap
## 804   Japan 2007 127467972      Asia  82.603  31656.07

gapminder1 <- gapminder %>% filter(country %in% c("Rwanda", "Japan", "Brazil"))

ggplot(gapminder1, aes(x = year, y = lifeExp, fill = country)) + geom_area() + scale_fill_viridis_d() + theme_minimal() + ggtitle("График №1. Некорректно", subtitle = "Построено на датасете gapminder")

gapminder2 <- gapminder1 %>% select(year, lifeExp, country) %>% pivot_wider(names_from = country, values_from = lifeExp)
gapminder3 <- gapminder1 %>% filter(year == 2007)

ggplot(gapminder2) + geom_area(aes(x = year, y = Brazil), fill = "darkblue", alpha = 0.85) + geom_area(aes(x = year, y = Japan), fill = "lightblue", alpha = 0.85) + geom_area(aes(x = year, y = Rwanda), fill = "slateblue", alpha = 0.85) + theme_minimal() + ylab("lifeExp") + geom_label(data=gapminder3, aes(y=lifeExp,label=country), x=2007) + ggtitle("График №2. Корректный график", subtitle = "Построено по датасету gapminder")