您的问题包含很多代码，但是仍然无法复制。丢人现眼！一般来说，这是一个有趣的问题。 尽管我个人认为“少即是多”，并且应该尽量不要在图表中添加过多信息，但这是一种解决方案。

• 您要填充情节面板吗？在酒吧下方制作大矩形。
• 您要两个馅吗？使用ggnewscale。

Voilà！

library(tidyverse)
library(ggnewscale)

mtc <- tibble::rownames_to_column(mtcars,'model')

rect_df <- data.frame(xmin = -Inf,xmax = +Inf,ymin = -Inf,ymax = +Inf,cyl = unique(mtc$cyl))

ggplot() +
  geom_rect(data = rect_df,aes(xmin = xmin,xmax = xmax,ymin = ymin,ymax = ymax,fill = cyl)) +
  facet_grid(~cyl) +
  scale_fill_gradient(low="lightgreen",high = "darkgreen") +
  ggnewscale::new_scale_fill() +
  geom_col(data = mtc,aes(x = model,y = gear,fill = disp)) +
  scale_fill_gradient2(low="darkblue",mid = "orange1",high = "orangered4",limits=c(min(mtc$disp),max(mtc$disp)),midpoint = mean(mtc$disp)) +
  coord_flip()

^{由reprex package（v0.3.0）于2020-01-03创建}