Dodajemy rug plot
Wykres, który właśnie powstał, wygląda całkiem dobrze – widać jednak delikatną bimodalność między godziną 10 a 15. Patrząc wyłącznie na kształt estymacji gęstości, trudno ocenić, jak bardzo możemy mu ufać.
Poradzmy sobie z tym na dwa sposoby.
Po pierwsze, zmniejsz wartość alpha wykresu gęstości, żeby precyzyjniej zlokalizować szczyty na tle siatki.
Następnie dodaj rug plot pod wykresem gęstości, korzystając z geom_rug(). Aby zaznaczyć ewentualne nakładanie się punktów, ustaw jego alpha na 0.5.
Ramka danych z poprzedniego ćwiczenia – truck_speeding – jest już wczytana.
To ćwiczenie jest częścią kursu
Najlepsze praktyki wizualizacji danych w R
Instrukcje do ćwiczenia
- Ustaw alpha wykresu gęstości na
0.7. - Dodaj
geom_rug()do wykresu. - Ustaw alpha rug plotu na
0.5.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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")