ggplot2：更改条形图中每个方面的颜色

Posted 2023-02-16

【中文标题】ggplot2：更改条形图中每个方面的颜色

【英文标题】：ggplot2: Change color for each facet in bar chart

【发布时间】：2016-03-06 17:28:19

【问题描述】：

我有一个用 ggplot2 用这个代码完成的多面条形图：

ggplot(data_long, aes(x=region, y=wert)) + 
geom_bar(aes(fill = kat ), position = "dodge", width=.5, stat="identity") +
labs(y = "Wähleranteil [ % ]", x = NULL, fill = NULL) +
facet_grid(. ~ type) +
theme_bw() + theme( strip.background  = element_blank(),
                    panel.grid.major = element_line(colour = "grey80"),
                    panel.border = element_blank(),
                    axis.ticks = element_blank(),
                    panel.grid.minor.x=element_blank(),
                    panel.grid.major.x=element_blank() ) +
theme(legend.position="bottom") +
guides(fill=guide_legend(nrow=1,byrow=TRUE))

我希望每个方面都有自己的颜色，如下所示：

    partei   color
1 andere #636363
2    BDP #D0B100
3    CVP #FF8B07
4    EVP #65ECEF
5    FDP #5675D6
6    glp #77E599
7  Grüne #A3DD57
8     SP #CE2929
9    SVP #428953

图表应与此类似：

所以每个方面都应该有自己的颜色，来自数据框，2011 年的值应该比 2015 年的值更亮。

如何做到这一点？

数据：

    type region     label  kat wert
1     SVP     de    SVP de 2011 29.3
2     SVP     fr    SVP fr 2011 20.2
3     SVP     it    SVP it 2011 10.3
4   Grüne     de  Grüne de 2011  8.1
5   Grüne     fr  Grüne fr 2011 10.2
6   Grüne     it  Grüne it 2011  6.6
7     FDP     de    FDP de 2011 13.1
8     FDP     fr    FDP fr 2011 20.2
9     FDP     it    FDP it 2011 24.3
10     SP     de     SP de 2011 17.6
11     SP     fr     SP fr 2011 23.2
12     SP     it     SP it 2011 16.8
13    EVP     de    EVP de 2011  2.6
14    EVP     fr    EVP fr 2011  1.5
15    EVP     it    EVP it 2011  0.0
16    glp     de    glp de 2011  6.4
17    glp     fr    glp fr 2011  2.8
18    glp     it    glp it 2011  0.1
19 andere     de andere de 2011  2.4
20 andere     fr andere fr 2011  1.3
21 andere     it andere it 2011  3.3
22    CVP     de    CVP de 2011 11.5
23    CVP     fr    CVP fr 2011 13.4
24    CVP     it    CVP it 2011 20.3
25    BDP     de    BDP de 2011  7.0
26    BDP     fr    BDP fr 2011  0.8
27    BDP     it    BDP it 2011  0.3
28    SVP     de    SVP de 2015 32.9
29    SVP     fr    SVP fr 2015 21.0
30    SVP     it    SVP it 2015 12.1
31  Grüne     de  Grüne de 2015  6.7
32  Grüne     fr  Grüne fr 2015  9.1
33  Grüne     it  Grüne it 2015  3.4
34    FDP     de    FDP de 2015 14.3
35    FDP     fr    FDP fr 2015 22.1
36    FDP     it    FDP it 2015 23.3
37     SP     de     SP de 2015 18.4
38     SP     fr     SP fr 2015 21.1
39     SP     it     SP it 2015 16.1
40    EVP     de    EVP de 2015  2.4
41    EVP     fr    EVP fr 2015  1.5
42    EVP     it    EVP it 2015  0.0
43    glp     de    glp de 2015  5.5
44    glp     fr    glp fr 2015  2.4
45    glp     it    glp it 2015  0.9
46 andere     de andere de 2015  2.7
47 andere     fr andere fr 2015  1.3
48 andere     it andere it 2015  2.3
49    CVP     de    CVP de 2015 10.2
50    CVP     fr    CVP fr 2015 14.9
51    CVP     it    CVP it 2015 20.1
52    BDP     de    BDP de 2015  5.2
53    BDP     fr    BDP fr 2015  1.1
54    BDP     it    BDP it 2015  0.2

【参考方案1】：

根据@alexwhan 的回答，我可以使用以下代码手动设置颜色：

  farb <- c("#428953", "#CE2929", "#A3DD57", "#77E599", "#5675D6", "#65ECEF", "#FF8B07", "#D0B100", "#636363")

  ggplot(data_long, aes(region, wert)) +
  geom_bar(aes(fill = type, alpha = factor(kat)), position = "dodge", stat = "identity") + 
  scale_alpha_manual(values = c(0.6, 1)) +
  facet_grid(. ~ type) +
  theme_bw() + theme( strip.background  = element_blank(),
                      panel.grid.major = element_line(colour = "grey80"),
                      panel.border = element_blank(),
                      axis.ticks = element_blank(),
                      panel.grid.minor.x=element_blank(),
                      panel.grid.major.x=element_blank() ) +
  theme(legend.position="bottom") +
  scale_fill_manual(values= farb)

色标farb必须与刻面的顺序相同。生成此图表：

【参考方案2】：

我不确定这是传达您的信息的最佳方式，但这是我的处理方式。只需将填充映射到区域，并使用 alpha 作为年份。我的会和你的有点不同，因为你没有提供数据的结构。

ggplot(data_long, aes(type, wert)) + geom_bar(aes(fill = region, alpha = factor(kat)), position = "dodge", stat = "identity") + 
  scale_alpha_manual(values = c(0.6, 1)) +
  facet_grid(. ~ region) +
  theme_bw() + theme( strip.background  = element_blank(),
                      panel.grid.major = element_line(colour = "grey80"),
                      panel.border = element_blank(),
                      axis.ticks = element_blank(),
                      panel.grid.minor.x=element_blank(),
                      panel.grid.major.x=element_blank() ) +
  theme(legend.position="bottom")