Добавляем rug-график
График, который мы только что построили, выглядит довольно хорошо, однако можно заметить слабый намёк на бимодальность между 10 и 15 часами. Поскольку мы видим лишь общий контур оценки плотности, сложно судить о том, насколько уверенно можно интерпретировать эту форму.
Исправим это, выполнив несколько шагов.
Сначала уменьшите alpha графика плотности, чтобы точнее определить пики на фоне сетки.
Затем добавьте rug-график под графиком плотности с помощью geom_rug(). Чтобы отобразить возможные наложения в rug-графике, установите его alpha равным 0.5.
Фрейм данных truck_speeding, созданный в предыдущем упражнении, уже загружен.
Это упражнение является частью курса
Лучшие практики визуализации в R
Инструкции к упражнению
- Установите alpha графика плотности равным
0.7. - Добавьте
geom_rug()на график. - Установите alpha rug-графика равным
0.5.
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
ggplot(truck_speeding, aes(x = hour_of_day)) +
# Adjust opacity to see gridlines with alpha = 0.7
geom_density(bw = 1.5, fill = 'steelblue', ___) +
# add a rug plot using geom_rug to see individual data points, set alpha to 0.5.
___ +
labs(title = 'Citations by hour', subtitle = "Gaussian kernel SD = 1.5")