Mit geom_rect für Zeitreihen Schattierung in R

Ich bin versucht zu schattieren, einen bestimmten Abschnitt einer Zeitreihe plot (ein bisschen wie in der Rezession-shading - ähnlich wie die Grafik unten dieser Artikel auf Rezession Schattierung in excel). Ich habe ein kleines, vielleicht ungeschickt, Beispiel zu illustrieren.
Ich erstelle zuerst eine Zeit-Serie, zeichnen Sie es mit ggplot2 und dann verwenden möchten geom_rect um die Schattierung. Aber ich muss etwas falsch in der Argumentation.

a<-rnorm(300)
a_ts<-ts(a, start=c(1910, 1), frequency=12)
a_time<-time(a_ts)
a_series<-ts.union(big=a_ts, month=a_time)
a_series_df<-as.data.frame(a_series)
ggplot(a_series)+
  geom_line(mapping=aes_string(x="month", y="big"))+
  geom_rect(
    fill="red",alpha=0.5, 
    mapping=aes_string(x="month", y="big"), 
    xmin=as.numeric(as.Date(c("1924-01-01"))),
    xmax=as.numeric(as.Date(c("1928-12-31"))),
    ymin=0,
    ymax=2
    )

Beachten Sie, dass habe ich auch schon versucht, das hat auch nicht funktioniert.

geom_rect(
        fill="red",alpha=0.5, 
        mapping=aes_string(x="month", y="big"), 
        aes(
           xmin=as.numeric(as.Date(c("1924-01-01"))),
           xmax=as.numeric(as.Date(c("1928-12-31"))),
           ymin=0,
           ymax=2)
        )

InformationsquelleAutor toksing | 2015-04-15

ggplot2 r time-series

9

Code funktioniert gut, die Konvertierung in Dezimalzahl Datum ist erforderlich für xmin und xmax, siehe unten, erfordert lubridate Paket.
```
require("lubridate")
ggplot(a_series_df)+
  geom_line(mapping=aes_string(x="month", y="big"))+
  geom_rect(
    fill="red",alpha=0.5, 
    mapping=aes_string(x="month", y="big"), 
    xmin=decimal_date(as.Date(c("1924-01-01"))),
    xmax=decimal_date(as.Date(c("1928-12-31"))),
    ymin=0,
    ymax=2
  )
```
Cleaner version, Schattierung gezeichnet, zuerst also die Zeile die Farbe ändert sich nicht.
```
ggplot() +
  geom_rect(data=data.frame(xmin=decimal_date(as.Date(c("1924-01-01"))),
                            xmax=decimal_date(as.Date(c("1928-12-31"))),
                            ymin=-Inf,
                            ymax=Inf),
            aes(xmin=xmin,xmax=xmax,ymin=ymin,ymax=ymax),
            fill="grey",alpha=0.5) +
  geom_line(data=a_series_df,aes(month,big),color="blue") +
  theme_classic()
```
Beachten Sie, dass dies funktioniert, da aes() übergeben wurde, direkt an jede geometrie, und nicht zu ggplot(). Wierdness erfolgt, wenn Sie uns aes(x=Date,...) zu ggplot() und verwenden geom_rect() mit anderen geom...
es wird über die Reihenfolge des Zeichnens, ich könnte aes-innen ggplot und Handlungsstränge dann rect, aber dann sind die Linien werden hinter dem rect. Natürlich könnten wir das alpha. Vorlieben.
Ok, um genau zu sein, Wenn Sie aes() zu ggplot() Sie bereitstellen müssen alle Variablen in rufen, um aes() in die Daten übergeben geom_rect() und die Klassen der Felder müssen konsistent sein. Viel leichter zu bewegen, den Aufruf aes() zu den einzelnen geoms als Konstrukt der benötigten Variablen mit den richtigen Formaten in den Daten-frame übergeben geom_rect().

InformationsquelleAutor zx8754

Sein ein bisschen einfacher mit annotate und beachten Sie auch, dass die Grenzen für die rectange kann angegeben werden, wie gezeigt:

ggplot(a_series_df, aes(month, big)) + 
    geom_line() +
    annotate("rect", fill = "red", alpha = 0.5, 
        xmin = 1924, xmax = 1928 + 11/12,
        ymin = -Inf, ymax = Inf) +
    xlab("time")

Diese auch funktionieren würde:

library(zoo)

z <- read.zoo(a_series_df, index = 2)
autoplot(z) + 
    annotate("rect", fill = "red", alpha = 0.5, 
        xmin = 1924, xmax = 1928 + 11/12,
        ymin = -Inf, ymax = Inf) + 
    xlab("time") +
    ylab("big")

Entweder man gibt diese:

Mit geom_rect für Zeitreihen Schattierung in R

tut annotate("rect",...) nimmt im Rahmen parameter? Ich kann nicht finden die Dokumentation für diese. Ich werde versuchen, nur ein rotes Rechteck mit nur die Grenze, ohne Füllung.
Verwenden col= statt fill= .
Ich landete mit 4 annotate("segment",...). Trotzdem danke, Ill versuchen Sie es für die zukünftige Verwendung.

InformationsquelleAutor G. Grothendieck

Verwenden geom_rect definieren Sie Ihre Rechteck-Koordinate durch eine data.frame:

shade = data.frame(x1=c(1918,1930), x2=c(1921,1932), y1=c(-3,-3), y2=c(4,4))

#    x1   x2 y1 y2
#1 1918 1921 -3  4
#2 1930 1932 -3  4

Dann geben Sie ggplot Ihre Daten und die Schatten data.frame:

ggplot() + 
  geom_line(aes(x=month, y=big), color='red',data=a_series_df)+
  geom_rect(data=shade, 
            mapping=aes(xmin=x1, xmax=x2, ymin=y1, ymax=y2), color='grey', alpha=0.2)

Mit geom_rect für Zeitreihen Schattierung in R

InformationsquelleAutor Colonel Beauvel

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.