3.5. Mix scatter plot

library(ComplexUpset)
library(AER)

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

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

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

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

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

## Следующие объекты скрыты от 'package:base':
## 
##     as.Date, as.Date.numeric

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

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

library(ggExtra)

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

library(gridExtra)
library(dplyr)

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

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

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

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

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

library(ggplot2)

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

gapminder <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/gapminderDataFiveYear.csv")
gapminder1 <- gapminder %>% filter(!(continent == "Oceania"))

gapm1 <- ggplot(data = gapminder1, aes(x = lifeExp, y = gdpPercap, color = continent)) + geom_point() + theme_classic() + xlab("Ожидаемая продолжительность жизни (lifeExp)") + ylab("ВВП на душу населения (gdpPercap)") + theme(legend.position = "none")
gapm1

g2 <- ggMarginal(gapm1, type="histogram", fill = "slateblue")
g3 <- ggMarginal(gapm1, type="density", fill = "slateblue")
g4 <- ggMarginal(gapm1, type="boxplot", fill = "slateblue")

grid.arrange(g2, g3, g4, ncol = 3)