3.3. Coord_polar и coord_curvedpolar

library(ggplot2)

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

library(dplyr)

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

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

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

library(geomtextpath)

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

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

gapminder1 <- gapminder %>% filter(year == 2007)
gap1 <- as.data.frame(table(gapminder1$continent))


ggplot(data = gap1, aes(x = Var1, y = Freq, fill = Freq)) + geom_col() + coord_polar() + theme_minimal() +  scale_fill_gradient2(low="#edf4fe", mid="#70bdf2",
                                                                                                                                 high="#153f65", midpoint=28) + ylab("Количество стран") + xlab("Континенты") + ggtitle("График №1. Количество стран по континентам", subtitle = "Построено по датасету gapminder")

#поменять направление текста по кругу
ggplot(data = gap1, aes(x = Var1, y = Freq, fill = Freq)) + geom_col()  + coord_curvedpolar() + theme_minimal() +  scale_fill_gradient2(low="#edf4fe", mid="#70bdf2",high="#153f65", midpoint=28) + ylab("Количество стран") + xlab("Континенты") + ggtitle("График №2. Количество стран по континентам", subtitle = "Построено по датасету gapminder") + 
  theme(axis.text.x = element_text(size = 12))