3.1. Steps in ggplot2 graph visualization

library(dplyr)

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

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

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

library(ggplot2)

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

head(mtcars)

##                    mpg cyl disp  hp drat    wt  qsec vs am gear carb
## Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
## Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
## Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
## Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
## Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
## Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1

#mpg - мили
#hp - количество лошадиных сил
#vs - двигатель (0 - V-образный, 1 - прямой)

#шаг 1 - стандартное полотно графика
ggplot(mtcars, aes(x = mpg, y = hp)) + geom_point()

#шаг 2 - добавление подписи - название машины 
#так как название машин не выделено в отдельном столбце, была задействована функция - rownames - название строчки
ggplot(mtcars, aes(x = mpg, y = hp)) + geom_point() + geom_label(aes(label = rownames(mtcars)), size = 3)

#шаг 3 - добавление цвета в зависимости от критерия
ggplot(mtcars, aes(x = mpg, y = hp, color = vs)) + geom_point() + geom_label(aes(label = rownames(mtcars)), size = 3)

#шаг 4 - цвет определен для непрерывной величины, а у нас бинарная - 0,1 => переходим в формат character
ggplot(mtcars, aes(x = mpg, y = hp, color = as.character(vs))) + geom_point() + geom_label(aes(label = rownames(mtcars)), size = 3)

#шаг 5 - настройка цвета и темы
ggplot(mtcars, aes(x = mpg, y = hp, color = as.character(vs))) + geom_point() + geom_label(aes(label = rownames(mtcars)), size = 3) + theme_bw() + scale_color_manual(values = c("darkblue", "darkred"))