clim%>%
mutate(Year = as.numeric(format(MESS_DATUM, "%Y")),
       Quarter = quarters(MESS_DATUM),
       Month = month(MESS_DATUM, label = TRUE),
       Week = week(MESS_DATUM),
       Day = wday(MESS_DATUM, label = TRUE))%>%
  rename(Niederschlag = RS.Niederschlagshoehe) %>%
  select(Year, Quarter, Month, Week, Day, Niederschlag)%>%
  mutate(across(starts_with(c("Day", "Month", "Quarter")), as.factor))%>%
  mutate(Day = factor(Day, levels = c("Mo", "Di", "Mi", "Do", "Fr", "Sa", "So" ))) %>%
  #as_tibble()
  group_by(Year, Month)%>%
  #filter (Year %in% c("2019", "2020", "2021"))%>%
  #filter(Jahr == "2018", Monat == "Nov")%>%
  filter(between(Year, 2005, 2021))%>%
   summarise(
    Summe=sum(Niederschlag, na.rm = TRUE))%>%
  ggplot(aes (Month, Summe, group = Year, color = Year))+ 
  geom_line()+
       labs(title = "Monatliche Niederschlagsumme",
       subtitle = "Zeitraum 2005 - 2021\
Stations-ID = , N= 6209",
       caption = "Data source: DWD",
       #x = "Ge [ppm]", y = expression(Fe[2]*O[3]),"[ppm]",
       x= "Monat", y= "Monatliche Niederschlagsumme [mm]",
       #y =  expression(Si*O[2] * "[%]"), x= "Depth [m]",
       tag = "")+
       theme_ipsum(base_size = 15)+
       theme(legend.position="bottom")