Ich habe einen Plot erstellt mit mehreren Zeitreihen (Datei angefügt) und einer Legende, welche sich außerhalb des Plots befindet.
Dafür habe ich diesen Code verwendet:
Code: Alles auswählen
hoehe <- read.csv2("Daten_forum.csv")
year <- hoehe[1:71, 1]
muenchen_annual <- hoehe[1:71, 3]
berg_annual <- hoehe[1:71, 2]
par(mar=c(5,4,4,9), xpd=TRUE)
plot(year, muenchen_annual, type="l", col="green", xlab="Zeit", ylab="Höhe", main="Zeitreihe", xlim=c(1950, 2020), ylim=c(500, 2500), lwd=2)
lines(year, berg_annual, type="l", col="brown", lwd=2)
legend("topright", inset=c(-0.35,0), title="Station", legend=c("Berg", "München"), lty=1, col=c("brown", "green"), lwd=2)
Dies ist an sich möglich, nur durch den xpd-Befehl werden die Linien auch außerhalb des Plots gezeichnet.
Code: Alles auswählen
Ntrend_muenchen <- lm(muenchen_annual~year)
Ntrend_berg <- lm(berg_annual~year)
par(mar=c(5,4,4,9), xpd=TRUE)
plot(year, muenchen_annual, type="l", col="green", xlab="Zeit", ylab="Höhe", main="Zeitreihe", xlim=c(1950, 2020), ylim=c(500, 2500), lwd=2)
abline(Ntrend_muenchen, col="green", lwd=2, lty=2)
lines(year, berg_annual, type="l", col="brown", lwd=2)
abline(Ntrend_berg, col="brown", lwd=2, lty=2)
legend("topright", inset=c(-0.35,0), title="Station", legend=c("Berg", "München"), lty=1, col=c("brown", "green"), lwd=2)
Ich hoffe, ich habe das nun verständlich erklärt.
csv-Datei mit Zeitreihen habe ich angehängt.
Ich würde mich sehr über Hilfe freuen!
Grüße, Lotti