Lass es regnen (Datenpunkte)

Die stärkere Bimodalität, die wir früh in der Woche sehen, könnte überzeugend sein, aber bevor wir für heute Schluss machen, sollten wir einzelne Punkte unter die Dichten zeichnen, um ein Gefühl dafür zu bekommen, was die KDE bei der Interpolation macht.

Zum Code aus den vorherigen Übungen kommt dafür eine Punkt-Geometrie hinzu. Du wirst merken, dass das noch nicht gut aussieht. Um es zu verbessern, machen wir ein paar Dinge …

Erstens senken wir die alpha-Werte der Punkte leicht, um Überlappungen sichtbar zu machen. Zweitens ändern wir die Punktform zu den vertikalen Linien im Stil von geom_rug() ('|').

Wenn du den Code jetzt ausführst, siehst du, dass die Punkte unglücklich in die Dichteformen hineinschneiden. Wir müssen die Strichmarken auf der y-Achse ein kleines Stück „anstupsen“. Dafür können wir das position-Argument und die Helper-Funktion position_nudge() verwenden.

Diese Übung ist Teil des Kurses

Best Practices für Visualisierung in R

Kurs anzeigen

Anleitung zur Übung

Senke alpha der Punkte auf 0.2, um Überlappungen zu zeigen.
Ändere die Linien-shape auf '|' für eine effizientere Platzausnutzung.
Schiebe die Punkte nach unten, damit sie die Dichteform nicht überlappen: position = position_nudge(y = -0.05).

Interaktive Übung

Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.

md_speeding %>% 
    mutate(day_of_week = factor(day_of_week, levels = c("Mon","Tues","Wed","Thu","Fri","Sat","Sun") )) %>% 
    ggplot(aes( x = percentage_over_limit, y = day_of_week)) + 
    geom_point(
        # make semi-transparent with alpha = 0.2
        # turn points to vertical lines with shape = '|'
        # nudge the points downward by 0.05
    ) +
    geom_density_ridges(bandwidth = 3.5, alpha = 0.7) +
    scale_x_continuous(limits = c(0,150), expand  = c(0,0)) +
    labs(subtitle = 'Guassian kernel SD = 3.5') +
    theme( axis.ticks.y = element_blank() )

Code bearbeiten und ausführen