如何填充 geom_pointrange() 后面的 ggplot 区域？

Question

为什么在尝试填充其他 geom 后面的区域时出现以下错误？

library(magrittr)
library(ggplot2)
library(ggstance)
#> 
#> Attaching package: 'ggstance'
#> The following objects are masked from 'package:ggplot2':
#> 
#>     geom_errorbarh, GeomErrorbarh

my_df <- structure(list(group = structure(1:2, .Label = c("group1", "group2"),
                                         class = "factor"), LL = c(-0.0265259354773537, 0.044689036850254),
                       stat = c(0.41037462410532, 0.516457204233787), UL = c(0.847275183687993, 
                                                         0.988225371617319)), row.names = c(NA, -2L), .Names = c("group", 
                                                                                                                 "LL", "stat", "UL"), class = c("tbl_df", "tbl", "data.frame"))

# Area to be filled in
rect1 <- data.frame(xmin = -0.2, xmax=0.45, ymin=-Inf, ymax=Inf)

以下示例有效，但我希望 rect1 落后于 geom_pointrangeh

my_df %>% 
  ggplot() +
  geom_pointrangeh(aes(y = group, x = stat, xmin = LL, xmax = UL, 
                       color = group)) +
  geom_rect(data=rect1,aes(xmin=xmin,xmax=xmax,ymin=ymin,ymax=ymax),
            alpha=1,fill="grey70")

这个不行：

my_df %>% 
  ggplot() +
  geom_rect(data=rect1,aes(xmin=xmin,xmax=xmax,ymin=ymin,ymax=ymax),
            alpha=1,fill="grey70") +
  geom_pointrangeh(aes(y = group, x = stat, xmin = LL, xmax = UL))
#> Error: Discrete value supplied to continuous scale

PS: 第一次使用 reprex 包来 post SO 上的一个问题：非常好！

Answer 1

不要通过 ggplot2（永远，真的）和 "prime" 与 geom_blank() 的比例：

ggplot() +
  geom_blank(data=data, aes(stat, group)) +
  geom_rect(data=rect1, aes(xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax),
            alpha=1, fill="grey70")+
  geom_pointrangeh(data=data, 
                   aes(y = group, x = stat, xmin = LL, xmax = UL, color = group))

最好避免也使用 data 作为变量名。

如何填充 geom_pointrange() 后面的 ggplot 区域？

How can I fill ggplot area behind geom_pointrange()?

r

ggplot2

tidyverse