如何按因子更改ggplot（R）中的背景？

Question

我试图按因子（Foodregime）更改图形背景的颜色，但R总是仅用第一种颜色（gray100）填充图形。 Foodregime包含“ ad”和“ r”。我想为这两个设置不同的背景色。

这是我的代码：

首先，我创建了一个新变量，因为我总是得到Error of "invalid color "ad""。

这是有效的。

data$color <- revalue(data$Foodregime, c("ad" = "gray100", "r" = "gray88"))

ggplot(data, aes(x = Date, y = x,col = Oiltype)) +
geom_point(pch = 1,cex = 0.1) + 
theme(axis.text.x = element_text(angle = 90, vjust = 0.5)) + 
theme(panel.background = element_rect(fill = data$color))

请注意，我无法自行设置边界，因为我的数据框非常大。所以我真的需要用因素解决这个问题。 每一个帮助将不胜感激！！！