facet_grid的不同颜色剥离背景

Question

我想将条带背景的颜色更改为预定义的顺序。

此代码生成绘图，并将条带背景更改为红色：

p <- ggplot(mpg, aes(displ, cty)) + geom_point() + facet_grid(. ~ cyl) +
theme(strip.background = element_rect(fill="red"))

我想做类似下面的事情，理想情况下会为每个条带指定不同的颜色

p <- ggplot(mpg, aes(displ, cty)) + geom_point() + facet_grid(. ~ cyl) +
theme(strip.background = element_rect(fill=c("red","green","blue","yellow")))

这让他们全都红了......

这是在similar questions年前提出的，答案是操纵grobs。我希望自那以后几年有一个更简单的解决方案？