geom_rect中的透明度参数的异常行为

Question

这是此问题的后续措施：ggplot geom_rect() error “object not found”由 Jason Hunter

我在回答这个问题时，发现alpha中geom_rect()的行为异常。看来，当您将数据从ggplot()传递到geom_rect()时，它会影响alpha的“效果” ，从而导致颜色的透明度降低。请查看上述问题提供的两个答案中两个绘图选项的输出，以进行澄清。

library(tidyverse)
df <- tibble(Month = factor(c("2019-01", "2019-02", "2019-03")), 
             Value = c(4, 9, 7))


joran <- ggplot(df, aes(Month, Value, group = 1)) + 
  geom_line() + 
  theme_minimal() + 
  geom_rect(data = 
              data.frame(xmin = min(as.integer(df$Month)) - 0.5,
                         xmax = max(as.integer(df$Month)) + 0.5,
                         ymin = min(df$Value),
                         ymax = max(df$Value)),
            aes(x = NULL,y = NULL,xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax),
            alpha = 0.2, fill = "green")


M_M <- ggplot(df, aes(Month, Value, group = 1)) + 
  geom_line() + 
  theme_minimal() + 
  geom_rect(aes(xmin = min(as.integer(Month)) - 0.5, 
                xmax = max(as.integer(Month)) + 0.5, 
                ymin = min(Value), 
                ymax = max(Value)),
            alpha = 0.2, fill = "green")

我可以使用alpha=0.1复制Joran的图。为了清楚起见，我只是在机器上绘制了这些图像，而这些图像与该问题截然不同。

我想知道是什么原因引起的。

Joran's Plot:

                       

My Plot: