更改多面条形图中条形的颜色答案

【问题标题】：Change Color of Bars in Facetted Bar Plot更改多面条形图中条形的颜色
【发布时间】：2017-10-22 12:26:49
【问题描述】：

我正在尝试更改以下图中的一些颜色：

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

我仍然想更改绘图中 4 个条形的颜色，比如“green4”、“darkgreen”、“orangered3”和“red3”，但不更改绘图中的任何其他内容（例如使用过的标签来自图例（当然，图例中的颜色也应该改变））。我的数据（df）有三个变量。变量“V1n”只是因子变量 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())

【问题讨论】：

尝试添加：scale_fill_manual(values = c("green4", "darkgreen", "orangered3", "red3"), name = "Beschikt..." )

标签： r plot ggplot2 colors

【解决方案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和x所做的那样）。例如labs(fill = "yourFillName")。

【讨论】：