breit <- data.frame(standort = c("Bern", "Chur", "Sion"),
jahr_2024 = c(120, 95, 143),
jahr_2025 = c(131, 92, 150))
breit standort jahr_2024 jahr_2025
1 Bern 120 131
2 Chur 95 92
3 Sion 143 150
lang <- pivot_longer(breit, cols = starts_with("jahr_"),
names_to = "jahr", values_to = "menge",
names_prefix = "jahr_")
lang# A tibble: 6 × 3
standort jahr menge
<chr> <chr> <dbl>
1 Bern 2024 120
2 Bern 2025 131
3 Chur 2024 95
4 Chur 2025 92
5 Sion 2024 143
6 Sion 2025 150
dim(lang)[1] 6 3
lang |> group_by(jahr) |> summarise(mittel = round(mean(menge), 2))# A tibble: 2 × 2
jahr mittel
<chr> <dbl>
1 2024 119.
2 2025 124.
breit |>
mutate(wachstum = round((jahr_2025 - jahr_2024) / jahr_2024 * 100, 2)) |>
select(standort, wachstum) standort wachstum
1 Bern 9.17
2 Chur -3.16
3 Sion 4.90