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