5.7. Combination of two graphs for sample description

library(ggpubr)

## Загрузка требуемого пакета: ggplot2

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

library(ggradar)
library(gridExtra)
library(dplyr)

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

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

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

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

library(tidyr)
library(ggplot2)

#Source:https://t.me/rstudioprogr 

df_1 <- data.frame(Var1 = c("Growth", "Mature"), 
                   Energy = c(0.33, 1-0.33), 
                   Oil_Gas = c(0.4322222, 1-0.4322222), 
                   Telecoms = c(0.2302404, 1-0.2302404), 
                   Industrials = c(0.323424, 1-0.323424), 
                   Retail = c(0.1234223, 1-0.1234223), 
                   FIG = c(0.239842902, 1-0.239842902))
m1 <- ggradar(df_1, axis.label.size = 4) + scale_color_manual(values = c("#D7A3B6", "#54387F"))

## Scale for colour is already present.
## Adding another scale for colour, which will replace the existing scale.

m1

df_2 <- data.frame(Year = c(2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017), 
                   Growth = c(0.2348884, 0.21872846, 0.2476273, 0.27384, 0.342738, 0.33577, 0.3782738, 0.458939))

df_2$Mature <- 1-df_2$Growth
df_3 <- df_2 %>% pivot_longer(cols = c("Growth":"Mature"), names_to = "Stage", values_to = "Count")

m2 <- ggdotchart(
  df_3, x = "Year", y = "Count", 
  group = "Stage", color = "Stage",
  add = "segment", position = position_dodge(0.3), sorting = "none") + geom_label(aes(label = round(Count,2)*100, color = Stage)) + xlab("Год") + 
  scale_y_continuous(labels = scales::percent) + scale_color_manual(values = c("#D7A3B6", "#54387F")) + ylab("")
m2

#grid.arrange(m2, m1, ncol = 2)