Wie passe ich die X-Achse (nach meinem Wunsch) an?
Verfasst: So Mai 02, 2021 8:01 pm
Hallo liebes Forum,
vor einiger Zeit hatte ich noch eine Tabelle mit wenigen Einträgen. Nun ist die Anzahl der Datensätze gestiegen und ich brauche eine Anpassung der X-Achse.
Denn sie wird nicht mehr richtig angezeigt.
Wünsche zur Anpassung der X-Achse:
[*]X-Achse soll über die gesamte Zeit gehen (von Anfang bis Ende)
[*]das Anfangs- und das Enddatum sollen sichtbar sein
[*]und wenn möglich soll zu jedem 1. des Monats ein Datum angezeigt werden
Und wie bekomme ich eine separate Legende angezeigt?
Hier ist der Code, den ich verwende:
Vielen Dank im Voraus für die Antworten!
Beste Grüße
Sebastian
vor einiger Zeit hatte ich noch eine Tabelle mit wenigen Einträgen. Nun ist die Anzahl der Datensätze gestiegen und ich brauche eine Anpassung der X-Achse.
Denn sie wird nicht mehr richtig angezeigt.
Wünsche zur Anpassung der X-Achse:
[*]X-Achse soll über die gesamte Zeit gehen (von Anfang bis Ende)
[*]das Anfangs- und das Enddatum sollen sichtbar sein
[*]und wenn möglich soll zu jedem 1. des Monats ein Datum angezeigt werden
Und wie bekomme ich eine separate Legende angezeigt?
Hier ist der Code, den ich verwende:
Code: Alles auswählen
peakflow <- read.table("peakflow.txt", sep = ";", header = TRUE)
str(peakflow)
peakflow$Datum <- as.Date(peakflow$Datum, format = "%d.%m.%Y")
peakflow$m.peakflow <- peakflow$morgens[length(peakflow$morgens):1]
peakflow$a.peakflow <- peakflow$abends[length(peakflow$abends):1]
peakflow$d.peakflow <- peakflow$Datum[length(peakflow$Datum):1]
plot(peakflow$Datum, peakflow$m.peakflow, type = "n", axes = FALSE, ylim = c(min(c(peakflow$m.peakflow, peakflow$a.peakflow) -10), max(c(peakflow$m.peakflow, peakflow$a.peakflow))), xlab = "Datum", ylab = "morgens = blau, abends = rot")
axis(side = 1, at = as.numeric(peakflow$Datum[nrow(peakflow) - c(0:2) * 7]), labels = format(peakflow$Datum[nrow(peakflow) - c(0:2) *7], "%d.%m.%Y"))
axis(side = 2, at = seq(from = min(c(peakflow$m.peakflow, peakflow$a.peakflow)) - 10, to = max(c(peakflow$m.peakflow, peakflow$a.peakflow)), by = 10))
lines(peakflow$d.peakflow, peakflow$m.peakflow, type = "l", col = "blue")
lines(peakflow$d.peakflow, peakflow$a.peakflow, type = "l", col = "red")
Beste Grüße
Sebastian