ich möchte gerne im Forum folgende Frage, mit der Bitte um Lösung stellen:
Der vorliegende Datensatz ist eine Zeitreihe des deutschen Wetterdienstes (DWD).
Die Grafik soll die Summe der monatlichen Niederschlagshöhe pro Monat für
den Zeitraum 2005 - 2021 abbilden.
Hier das Skript:
Code: Alles auswählen
library(lubridate)
library(tsbox)
library(tidyverse)
library(hrbrthemes)
Test_Data_DWD%>%
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" ))) %>%
group_by(Year, Month)%>%
filter(between(Year, 2005, 2021))%>%
summarise(
Summe=sum(Niederschlag, na.rm = TRUE))%>%
ggplot(aes (Month, Summe, group = Year, color = Year))+
geom_line()+
#scale_fill_brewer(palette="Paired", guide = none)+ # Fehlermeldung bei Aktivierung der Zeile
labs(title = "Monatliche Niederschlagsumme",
subtitle = "Zeitraum 2005 - 2021\
Stations-ID = , N= 6209",
caption = "Data source: DWD",
x= "Monat", y= "Monatliche Niederschlagsumme [mm]",
tag = "")+
theme_ipsum(base_size = 15)+
theme(legend.position="bottom")
Für jedes Jahr eine Farbe, welche möglichst deutlich voneinander unterscheidbar sein sollte.
Bei dem Versuch kommt aber eine Fehlermeldung:
Error in as.vector(x, „character") :
cannot coerce type 'closure' to vector of type 'character'
Ich ahne zwar, was der Fehler bedeutet, habe aber keinen Plan, wie ich zu
einer Lösung komme.
Vielleicht kann mir jemand hoffentlich im Forum helfen. Jede Hilfe ist willkommen!
Vielen Dank für Eure Mühe.
retep