2.8. Facets в ggplot2

library(ggplot2)

## Warning: пакет 'ggplot2' был собран под R версии 4.2.1

library(dplyr)

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

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

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

library(gridExtra)

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

## Следующий объект скрыт от 'package:dplyr':
## 
##     combine

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

##       country year      pop continent lifeExp gdpPercap
## 1 Afghanistan 1952  8425333      Asia  28.801  779.4453
## 2 Afghanistan 1957  9240934      Asia  30.332  820.8530
## 3 Afghanistan 1962 10267083      Asia  31.997  853.1007
## 4 Afghanistan 1967 11537966      Asia  34.020  836.1971
## 5 Afghanistan 1972 13079460      Asia  36.088  739.9811
## 6 Afghanistan 1977 14880372      Asia  38.438  786.1134

data1 <- gapminder %>% filter(country %in% c("Mexico", "Japan", "Germany", "France"))
ggplot(data = data1, aes(x = year, y = lifeExp, fill = country)) + geom_col() + theme_bw() + ggtitle("График №1. Некорректный вариант") + scale_fill_manual(values = c("#244e81", "#19868f", "#bcd0e5", "#d3bb9c"))

ggplot(data = data1, aes(x = year, y = lifeExp, fill = country)) + geom_col() + theme_bw() + ggtitle("График №2") + facet_grid(~country) + scale_fill_manual(values = c("#244e81", "#19868f", "#bcd0e5", "#d3bb9c"))

ggplot(data = data1, aes(x = country, y = lifeExp, fill = country)) + geom_col() + theme_bw() + ggtitle("График №3") + facet_grid(~year) + scale_fill_manual(values = c("#244e81", "#19868f", "#bcd0e5", "#d3bb9c"))

ggplot(data = data1, aes(x = country, y = lifeExp, fill = country)) + geom_col() + theme_classic() + ggtitle("График №4") + facet_grid(~year) + scale_fill_manual(values = c("#244e81", "#19868f", "#bcd0e5", "#d3bb9c"))