d <- selectDWD(name = "Bochum", res = "daily", var = "kl", per = "historical", current = TRUE) |>
dataDWD(read = FALSE) |>
readDWD(varnames = TRUE) |>
mutate(datum = ymd(MESS_DATUM))
ggplot(data = d) + geom_col(mapping = aes(x = datum, y = RSK.Niederschlagshoehe))