R ggplot颜色不同图之间不匹配

Question

我是ggplot的新手，但无法弄清楚为什么会这样。我正在尝试生成geom_bar图，每个列在构面内的颜色不同，但对于不同的构面也是如此。它正在为我做这件事，但问题是当我运行这两个相似的代码我的配色方案改变。我已经研究过colorschemes并手动修改它，但没有任何工作。以下是我的代码和我得到的不同输出。

ggplot(dat.m,aes(x = `Prod Zone`,y = Average, fill = `Prod Zone`)) +
geom_bar(stat = "identity") +
facet_wrap(~variable, scales = "free") + 
theme(axis.text.x=element_text(angle = 90,hjust = 1,vjust = .4),
      text = element_text(size = 15,face = "bold")) + 
      guides(fill=FALSE)

ggplot(dat.m, aes(x = VintageComp, y = value, fill = `VintageComp`)) + 
guides(fill = FALSE) + 
geom_bar(stat = "identity") + 
facet_wrap(~variable, scales = "free_y") + 
theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust =.4),  
      text=element_text(size = 30, face = "bold"))

一切都是我想要的样子，但着色。对于这个例子，我想要两个图的第一个颜色方案（彩虹看），我希望能够手动选择颜色方案，如果有人可以帮我这种格式的那个。