geom_rect und ggplot2 Fehler: Ästhetik muss entweder Länge 1 oder die gleichen wie die Daten sein (2)

Question

Ich versuche, so etwas wie https://stackoverflow.com/a/29649406/15485 zu tun, aber ich habe den Fehler

Error: Aesthetics must be either length 1 or the same as the data (2): xmin, xmax, ymin, ymax, x, y

Was bedeutet ‚(2)‘ meint?

Was ist "Ästhetik"? Ich habe aes in ggplot und aes in geom_rect aber ich habe keine Ahnung, wie sie zu korrigieren ... Ich fürchte, ich werde nie ggplot fassen ...

days<-rep(Sys.Date(),100)+seq(1,100) 
v<-sin(as.numeric(days)) 
df<-data.frame(days=days,v=v) 

shade <- data.frame(x1=c(as.Date('2017-10-15'),as.Date('2017-11-11')), 
        x2=c(as.Date('2017-10-20'),as.Date('2017-11-13')), 
        y1=c(-Inf,-Inf), y2=c(Inf,Inf)) 

library(ggplot2) 
plot(ggplot(df,aes(x=days,y=v)) 
    +geom_line() 
    +geom_rect(data=shade, 
       mapping=aes(xmin=x1, xmax=x2, ymin=y1, ymax=y2), color='grey', alpha=0.2) 
    +geom_point()) 

Answer 1

Die geom_rect Linie wurde versucht, von Standard-Ästhetik zu erben die oberste Zeile ggplot(df, aes(x = days, y = v)).

Die folgende funktionieren würde:

ggplot(df, aes(x=days, y=v)) + 
    geom_line() + 
    geom_rect(data=shade, inherit.aes = F, 
      aes(xmin=x1, xmax=x2, ymin=y1, ymax=y2), 
      color = 'grey', alpha=0.2) + 
    geom_point() 

(I mehr Zeilenumbrüche/Räume in den Code für das Lesen zu vereinfachen hinzugefügt Außerdem gibt es keine Notwendigkeit, das ganze ggplot Objekt in plot() zu wickeln..)