改变刻面条形图中的条形颜色

Question

我试图改变以下情节中的一些颜色：

下面的代码给了我以下情节，已经非常漂亮了：

我仍然想改变我的情节中的4个酒吧的颜色，让我们说＆＃34; green4＆＃34;，＆＃34; darkgreen＆＃34;，＆＃34; orangered3＆＃ 34;和＆＃34; red3＆＃34;，但不要改变我的情节（如图例中使用的标签（当然颜色也应该在图例中改变））。我的数据（df）有三个变量。变量＆＃39; V1n＆＃39;只是因子变量V1的数字版本。这只是我无法理解的最后一点，是否有人知道如何更改默认使用的四种颜色？

library(ggplot2)
library(dplyr)
glimpse(df)

# Observations: 300
# Variables: 3
# $ METING.f <fctr> Meting 0, Meting 0, Meting 0, Meting 0, Meting 0,...
# $ V1n      <int> 2, 1, 2, 2, 2, 2, 2, 1, 2, 1, 2, 1, 1, 2, 2, 2, 1,...
# $ V1       <fctr> Ja, meerdere, namelijk..., Ja, Ja, meerdere, name...  


ggplot(df, aes(x = V1n, fill = V1)) + 
  geom_bar(aes(y = (..count..)/tapply(..count..,..PANEL..,sum)[..PANEL..])) + 
  scale_y_continuous(labels = scales::percent) + 
  geom_text(aes(y = ((..count..)/sum(..count..)), 
                label = scales::percent((..count..)/tapply(..count..,..PANEL..,sum)[..PANEL..])), 
                stat = "count", vjust = -0.25) +
  facet_grid(.~ METING.f) +
  scale_fill_discrete(name = "Beschikt uw instelling over een\naandachtsfunctionaris kindermishandeling?\n") +
  labs(title = " ",
       x = "Vraag 1",
       y = "Percentage")  +
  theme(axis.text.x = element_blank(),
        axis.ticks.x=element_blank())

Answer 1

您可以使用scale_fill_manual设置所需的填充/颜色。

scale_fill_manual(name = "Beschikt...",
                  values = c("green4", "darkgreen", "orangered3", "red3"))

或者您可以使用brewer pallets之一scale_fill_brewer。

PS。：如果您不想在scale_fill_manual设置填充名称，可以在labs()中设置（就像您对title和{{1}所做的那样}）。例如x。