ggplot2: Изменение цвета для каждой грани в гистограмме

Question

У меня есть граненая гистограмма сделана с 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 

Answer 1

Я не уверен, что это лучший способ сообщить информацию, но это, как я бы подойти к нему. Просто нарисуйте заливку в регион и используйте альфа для года. Мой будет немного отличаться от вашего, потому что вы не предоставили структуру данных.

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") 

Answer 2

На основании ответа @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 должен быть в том же порядке, что и фасок , Производит этот график: