nrow(filter(messungen, standort == "Bern", verbrauch > 125))[1] 4
head(select(messungen, datum, verbrauch), 3) datum verbrauch
1 2026-01-05 118.2
2 2026-01-05 96.4
3 2026-01-12 125.4
mit_kennzahl <- mutate(messungen, pro_stunde = round(verbrauch / laufzeit, 2))
head(mit_kennzahl$pro_stunde, 4)[1] 9.46 10.26 8.96 11.37
head(arrange(mit_kennzahl, desc(verbrauch))[, c("standort", "verbrauch")], 2) standort verbrauch
1 Bern 133.2
2 Bern 130.6
summarise(messungen, n = n(), mittel = round(mean(verbrauch), 2)) n mittel
1 24 109.43