R 突出显示ggplot2中多个面上的感兴趣区域

我已经在谷歌上搜索过了，但只找到了这个问题

---

dt我无法解决barplot的替换问题，但我确实解决了透明度问题

green.data <- data.frame(xmin = 0.5, xmax = 10.5, ymin = -Inf, ymax = Inf, a = c("a", "b", "c", "d"))
# grey.data <- data.frame(xmin = 10.5, xmax = 25.5, ymin = -Inf, ymax = Inf, a = c("a", "b", "c", "d"))
ggplot() +
  geom_bar(data = dt, aes(x = term, y = logp, fill = dirct), position = "dodge", width = 0.8, stat = "identity") +
  geom_rect(data = green.data, aes(xmin = xmin, ymin = ymin, xmax = xmax, ymax = ymax), fill = "green", alpha = 15/100) +
#   geom_rect(data = grey.data, aes(xmin = xmin, ymin = ymin, xmax = xmax, ymax = ymax), fill = "grey", alpha = 0.2) +
  geom_bar(data = dt, aes(x = term, y = logp, fill = dirct), position = "dodge", width = 0.8, stat = "identity") +
  scale_fill_manual("dirct", values = c("red", "blue")) +
  coord_flip() +
  facet_grid(. ~ a)

green.data
green.data <- data.frame(xmin = 0.5, xmax = 10.5, ymin = -Inf, ymax = Inf, a = c("a", "b", "c", "d"))
# grey.data <- data.frame(xmin = 10.5, xmax = 25.5, ymin = -Inf, ymax = Inf, a = c("a", "b", "c", "d"))
ggplot() +
  geom_bar(data = dt, aes(x = term, y = logp, fill = dirct), position = "dodge", width = 0.8, stat = "identity") +
  geom_rect(data = green.data, aes(xmin = xmin, ymin = ymin, xmax = xmax, ymax = ymax), fill = "green", alpha = 15/100) +
#   geom_rect(data = grey.data, aes(xmin = xmin, ymin = ymin, xmax = xmax, ymax = ymax), fill = "grey", alpha = 0.2) +
  geom_bar(data = dt, aes(x = term, y = logp, fill = dirct), position = "dodge", width = 0.8, stat = "identity") +
  scale_fill_manual("dirct", values = c("red", "blue")) +
  coord_flip() +
  facet_grid(. ~ a)