Семинар 6: решения

Задание 1

В данном задании нужно работать со встроенной в R базой данных по автомобилям mtcars. Загружать ее по ссылке не нужно, достаточно набрать ее название (data = mtcars). Например, чтобы посмотреть на базу, можно просто воспользоваться View(mtcars).

Постройте с помощью библиотеки ggplot2 пузырьковую диаграмму (bubble plot), которая

• показывала бы связь между показателями Gross horsepower (hp) и Weight (wt)
• учитывала бы информацию о числе цилиндров у автомобиля (cyl)
• учитывала бы информацию о типе коробки передач - автоматическая или нет (am); сделайте так, чтобы легенда графика была корректной и информативной + пусть точки, соответствующие автомобилям с автоматической коробкой передач, будут зеленого цвета ("green"), а с ручной – красного ("red")

Подпишите оси (дайте им более вразумительные названия). Добавьте название (заголовок) графика.

library(ggplot2)
ggplot(data = mtcars, aes(x = hp, y = wt)) +
  geom_point(aes(size = cyl, color = as.factor(am)))+
  labs(title = "Graph for cars' indicators", x = "Gross horsepower", 
       y = "Weight", color = 'Коробка передач')+
  scale_color_manual(values = c("red", "green"),                    
  labels = c("Механика", "Автомат"))

Задание 2

Работая с той же базой mtcars, воспроизведите этот график:

Подсказка: цвет - “brown”, 0 - автоматическая коробка передач, 1 - ручная (am) число столбцов (bins) можно определить по графику.

ggplot(data = mtcars, aes(x = hp)) + geom_histogram(fill = "brown", color = "black", bins = 6) +  facet_grid(~am) + labs(title = "Gross horsepower", x = "Horsepower", y = "count") + theme_bw()

Задание 3

В данном задании нужно работать с базой sleep, встроенной в R.

Постройте «ящики с усами» в пределах одной области для графика, которые иллюстрировали бы распределение переменной extra по группам испытуемых. Поменяйте базовые цвета заливки графиков, добавьте подписи к осям и заголовок графика.

ggplot(data = datasets::sleep, aes(x = "", y = extra, group = group, fill = group)) +
  geom_boxplot() + scale_fill_manual(values = c("hotpink", "darkviolet")) +
  labs(title = "Sleep", x = "Groups", y = "Extra time (hours)")