geom_rect无法使用scale_y_log10（）（ggplot2）

Question

ggplot(economics) + 
geom_rect(
  aes(
    xmin = economics$date[20], 
    xmax = economics$date[140], 
    ymin = -Inf, 
    ymax = Inf
  ), 
  fill = "grey", 
  color = "grey", 
  alpha = 0.4
) + 
geom_line(aes(x = date, y = pce))

工作正常并产生所需的情节。但是如果要将y轴转换为log10（通过使用scale_y_log10（））

ggplot(economics) + 
geom_rect(
  aes(
    xmin = economics$date[20], 
    xmax = economics$date[140], 
    ymin = -Inf, 
    ymax = Inf
  ), 
  fill = "grey", 
  color = "grey", 
  alpha = 0.4
) + 
geom_line(aes(x = date, y = pce)) + 
scale_y_log10()

它出现以下错误：

警告信息：
1：在自我$ trans $ transform（x）中：NaNs产生了 2：删除了包含缺失值的574行（geom_rect）。

并删除geom_rect图层。