## load downloaded data
museum_visitors_raw <- readr::read_csv("demo/monatszahlen2603_museen_16_03_26.csv")
museum_visitors <- museum_visitors_raw |>
janitor::clean_names() # WERT → wert, AUSPRAEGUNG → auspraegung, …
## make plot
museum_visitors |>
dplyr::filter(
monat == "Summe"
) |>
ggplot2::ggplot(ggplot2::aes(x = jahr, y = wert, colour = auspraegung)) +
ggplot2::geom_line() +
ggplot2::labs(x = "Year", y = "Visitors", colour = "Museum") +
ggplot2::ggtitle("Annual Visitors to Museums in Munich") +
ggplot2::scale_y_continuous(labels = scales::label_number())


