ggplot2:更改条形图中每个方面的颜色 [英] ggplot2: Change color for each facet in bar chart
本文介绍了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(color =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
7Grüne#A3DD57
8 SP#CE2929
9 SVP#428953
图表看起来应该和这个相似:
I have a faceted bar chart done with ggplot2 with this code:
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))
I would like that each facet has its own color, like this:
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
The chart should look similar to this one:
So each facet should have its own color, coming from a dataframe and the 2011 values should be brighter than the 2015 values.
How can this be done?
The data:
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
解决方案
I'm not sure this is the best way to communicate your information, but this is how I'd approach it. Just map fill to region, and use alpha for year. Mine will be a bit different to yours because you didn't provide the structure of the data.
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")
这篇关于ggplot2:更改条形图中每个方面的颜色的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文