我不认为有一个简单的方法可以直接在ggplot中实现。矩形格和注解似乎不接受极坐标变换的无限限制，任何有限限制都会导致绘制圆形高亮区域。您也不能在theme中传递多个element_rect来样式化多个面板。
这就剩下两个广泛的选择：
1.分别生成图并将它们一起绘制在一个页面上
1.获取绘图的图形输出，并将适当的grob更改为具有适当填充颜色的rectGrob。
实现第一个选项的一个简洁方法是使用dplyr::group_map和patchwork::wrap_plots：

library(tidyverse)

a %>% 
  group_by(cat) %>%
  group_map(.keep = TRUE,
            ~ ggplot(.x, aes("", pct, fill = action)) +
    geom_bar(stat = "identity", position = "fill")+
    coord_polar(theta = "y", start = 0) +
    ggthemes::theme_solid() +
    guides(fill = "none") +
    theme(panel.background = element_rect(
            fill = if(all(.x$cat == 'All')) '#FF000032' else NA))) %>%
  patchwork::wrap_plots()

另一种选择是，如果出于某种原因，你需要使用facets，那么就像下面这样的grob hacking：

p <- a %>% 
  ggplot(aes("", pct, fill = action)) +
  geom_bar(stat = "identity", position = "fill") +
  coord_polar(theta = "y", start = 0) +
  facet_wrap(~cat) +
  ggthemes::theme_solid() +
  guides(fill = "none")

pg <- ggplotGrob(p)

new_background <- grid::rectGrob(gp = grid::gpar(fill = '#FF000032', col = NA))
panel1 <- pg$grobs[[which(pg$layout$name == 'panel-1-1')]]
panel1$children <- panel1$children
background <- grep('rect', sapply(panel1$children[[1]], names)$children)
panel1$children[[1]]$children[[background]] <- new_background
pg$grobs[[which(pg$layout$name == 'panel-1-1')]] <- panel1

grid::grid.newpage()
grid::grid.draw(pg)