R语言中ggplotly无法识别ggplot的geom_rect填充色的解决方法

该问题是ggplotly对geom_rect的无限边界参数、分面场景下的fill映射兼容性不足导致的，以下是两种可直接生效的解决方案：

方案1：调整ggplot映射逻辑，适配ggplotly转换规则 #

核心是补充scale_fill_identity()让plotly正确识别数据中存储的颜色值，同时加inherit.aes = FALSE避免全局aes映射干扰矩形层，转换后可直接生效：

library(ggplot2)
library(plotly)

dat <- data.frame(provider = rep(c('a','b','c'),2),
                  category = c(rep(c('Inpatient'),3),rep(c('Outpatient'),3)),
                  revenue = runif(6,100,500),
                  background_col = rep(c('red','green','blue'),2)
)

p <- ggplot(dat,aes(x=category,y=revenue)) +
  geom_rect(aes(fill = background_col), 
            xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf, 
            alpha = 0.1, inherit.aes = FALSE,
            data = dat) +
  geom_bar(stat = 'identity') +
  facet_grid(~provider) +
  # 直接使用数据列中存储的颜色值，关闭冗余图例
  scale_fill_identity(guide = "none")

ggplotly(p)

方案2：直接修改plotly对象布局参数（兼容性最优） #

不依赖ggplotly的自动转换逻辑，生成plotly对象后手动给每个分面设置背景色，适配所有自定义分面背景的场景：

library(ggplot2)
library(plotly)

dat <- data.frame(provider = rep(c('a','b','c'),2),
                  category = c(rep(c('Inpatient'),3),rep(c('Outpatient'),3)),
                  revenue = runif(6,100,500)
)

# 先画不带背景的基础图表
p <- ggplot(dat,aes(x=category,y=revenue)) +
  geom_bar(stat = 'identity') +
  facet_grid(~provider)

ply <- ggplotly(p)

# 按分面顺序逐一设置背景色，支持自定义透明度
bg_cols <- c("red", "green", "blue")
for (i in seq_along(bg_cols)) {
  axis_key <- paste0("xaxis", ifelse(i == 1, "", i))
  ply$x$layout[[axis_key]]$plot_bgcolor <- adjustcolor(bg_cols[i], alpha.f = 0.1)
}

# 输出最终图表
ply

内容的提问来源于stack exchange，提问作者kostr