构面图中的条形颜色ggplot

Question

我正在用ggplot制作条形图，并使用构面来显示详细信息。 我正在使用以下代码。

g1 <- ggplot(mydata, aes(x=PF.Score))+
  geom_bar(color="Black", fill="skyblue")+
  geom_text(stat="count", aes(label=..count..), size =4, vjust=-0.3)+
  ylab("% of Suppliers")+
  xlab("Score of Suppliers")+
  ggtitle("Score distribution of suppliers")+
  theme_classic()+
  theme(axis.ticks.y= element_blank(),axis.text.y = element_blank())

  g2 <- g1+facet_wrap(~GROUP)
  g1+g2

我得到以下输出

Result Ouptput

但是我需要每个颜色不同的条形， 例如，“ 2”栏为“红色”，“ 3”栏为“蓝色”，依此类推，以及分面图中的颜色相同。 但是我无法在条形图中获得这种颜色。 颜色也将用作图例。

我们非常感谢您的帮助。