Ggplot2 różne zachowania alfa

Question

Niedawno zaktualizowałem do wersji R 3.2.3, a także do wersji ggplot 2.0.0.

Próba uaktualnienia starego kodu do nowszych wersji Napotkałem dziwne zachowanie z ggplot2 i jego ustawieniami przezroczystości.

Teraz moje pytanie brzmi: czy to błąd, czy funkcja (jeśli tak, czy ktoś może mnie oświecić, dlaczego warto to robić w ten sposób)? Wynik Chcę mieć to (oczywiście) Działka 2.

Say I wykreślić linię i leżał prostokąt z przejrzystością nad nim tak:

library(ggplot2) 

plot_data <- data.frame(x = 1:100, y = rnorm(100)) 

# Plot 1 
ggplot(data = plot_data, aes(x = x, y = y)) + 
    geom_line() + 
    geom_rect(aes(xmin = 20, xmax = 50, ymin = -Inf, ymax = Inf), fill = "red", 
      alpha = 0.1) + ggtitle("Plot 1") 

# Plot 2 
ggplot() + 
    geom_line(data = plot_data, aes(x = x, y = y)) + 
    geom_rect(aes(xmin = 20, xmax = 50, ymin = -Inf, ymax = Inf), fill = "red", 
      alpha = 0.1) + ggtitle("Plot 2") 

mojego rozeznania działki 1 i 2 powinny być identyczne . Jednak mam następujące działki:

Plot 1:

i działka 2:

Dodatkowo, jeśli bawić z alpha -values ​​(dla przykład ustawiając je na 0.01, otrzymuję dwa następujące działki:

i

Answer 1

wierzę, że nazywając geom_rect bez parametru data skutecznie wyciągnąć indywidualny prostokąt dla każdego wiersza data.frame dlatego też alpha jest „praca”, ale nie całkiem zgodnie z oczekiwaniami. Nie byłem w stanie powtórzyć i uzyskać parytetu/zgodności między metodami, ale jak zauważyłeś, myślę, że robi coś wzdłuż linii rysowania albo 100 pojedynczych prostokątów, albo 30 (szerokość prostokątów, od 20 do 50), dlatego alpha = 0.1/100 i alpha = 0.1/30 przybliżają Cię, ale nie do końca pasują.

Niezależnie od tego, to pewnie używać annotate, jako że lepiej opisuje zachowanie/wynik staramy się osiągnąć bez problemów i działa zgodnie z oczekiwaniami, w obu przypadkach - annotations będzie narysować pojedynczy instancji za geom:

ggplot(data = plot_data, aes(x = x, y = y)) + 
    # geom_rect(aes(xmin = 20, xmax = 50, ymin = -Inf, ymax = Inf, alpha = 0.1, fill = "red")) + 
    annotate("rect", xmin = 20, xmax = 50, ymin = -Inf, ymax = Inf, alpha = 0.1, fill = "red") + 
    geom_line() + 
    ggtitle("Plot 1") 

ggplot() + 
    geom_line(data = plot_data, aes(x = x, y = y)) + 
    # geom_rect(aes(xmin = 20, xmax = 50, ymin = -Inf, ymax = Inf), fill = "red", alpha = 0.1) + 
    annotate("rect", xmin = 20, xmax = 50, ymin = -Inf, ymax = Inf, fill = "red", alpha = 0.1) + 
    ggtitle("Plot 2")