Ach jetzt habe ich es in base R gemacht und EDi war schneller. Du musst mal gucken, ob der Versatz im letzten plot korrekt ist bzw. optisch deinen Anforderungen entspricht. Ich habe alles schrittweise gemacht, damit Du alles nachvollziehen kannst.
Code: Alles auswählen
# Paket installieren und laden
install.packages("fpp2")
library(fpp2)
# Daten einlesen
str(beer) # beer ist der Name eines mitgelieferten Datensatzes
str(ausbeer)
aus_beer <- window(ausbeer, start = 1992) # es empfiehlt sich eine eigene Bezeichnung
# plot vorbereiten
par(mfrow = c(2, 2))
# Dein plot
plot(aus_beer, main = "Dein plot")
# plot mit manuellen Achsen
plot(aus_beer, axes = FALSE, ylim = c(300, 600), main = "Dein plot mit neuen Axen") # ohne Axen, aber mit definiertem Wertebereich für y
axis(side = 1, tick = TRUE, at = c(1992:2010), las = 2) # 1 = unten
axis(side = 2, tick = TRUE, at = c(300, 400, 500, 600), las = 2) # 2 = links, las-Argument entspricht default
# plot mit rotem Hintergrund
# leeren Rahmen Zeichnen
plot(aus_beer, axes = FALSE, type = "n", ylim = c(300, 600), main = "Dein plot in rot")
# roten Hintergrund einfügen
rect(xleft = par("usr") [1], xright = par("usr") [2], ybottom = par("usr") [3], ytop = par("usr") [4], col = "red")
# Daten eintragen
points(aus_beer, type = "l") # ohne Axen, aber mit definiertem Wertebereich für y
axis(side = 1, tick = TRUE, at = c(1992:2010), las = 2) # 1 = unten
axis(side = 2, tick = TRUE, at = c(300, 400, 500, 600), las = 2) # 2 = links, las-Argument entspricht default
# plot mit roten Segmenten
# leeren Rahmen Zeichnen
plot(aus_beer, axes = FALSE, type = "n", ylim = c(300, 600), main = "Dein plot mit roten Segmenten")
# roten Hintergrund einfügen
x_links <- par("usr") [1] + c(1:18) + 0.375
x_rechts <- par("usr") [1] + c(1:18) + 0.625
rect(xleft = x_links, xright = x_rechts, ybottom = par("usr") [3], ytop = par("usr") [4], col = "red")
# Daten eintragen
points(aus_beer, type = "l") # ohne Axen, aber mit definiertem Wertebereich für y
axis(side = 1, tick = TRUE, at = c(1992:2010), las = 2) # 1 = unten
axis(side = 2, tick = TRUE, at = c(300, 400, 500, 600), las = 2) # 2 = links, las-Argument entspricht default