[英]Assign colours in geom_bar in different plots
我有一个包含不同物种和观察年份的数据集(分为 3 个类别)。 我现在想用他们每年的观察为每个物种制作一个地块,并为每个年份类别(每个条形)分配不同的颜色,但在每个地块中它应该是相同的颜色。
我厌倦了做lapply
,然后做一个ggplot
与geom_bar
(见下面的代码)。 我知道我可以用geom_bar(fill = c("#e31a1c", "#ff7f00", "#33a02c")
分配颜色,但问题是,有些物种只在某些年份观察到,所以我得到一个错误,即美学与数据的长度不同。那么还有另一种方法可以为条形分配颜色吗?
Species = c(rep("X", 7), rep("Y", 3), rep("Z", 4), "V", rep("W", 3))
Year = c("A", "A", "A", "B", "B", "C", "C","A", "A", "C","B", "B", "C", "C","A", "A", "B", "C")
df <- data.frame(Species, Year)
mylist = lapply(split(df, as.factor(df$Species)), function(memefin){
ggplot(memefin, aes(x = Year, fill = Year))+
geom_bar(fill = c("#e31a1c", "#ff7f00", "#33a02c"))+
ggtitle(memefin$Species)+
scale_x_discrete(breaks=c("A","B","C"),labels=c("2000-2004", "2005-2009", "2010-2014"), drop = F)
})
你在正确的轨道上:
mylist = lapply(split(df, as.factor(df$Species)), function(memefin){
ggplot(memefin, aes(x = Year, fill = Year))+
geom_bar()+
ggtitle(memefin$Species)+
scale_x_discrete(breaks=c("A","B","C"),labels=c("2000-2004", "2005-2009", "2010-2014"), drop = F)+
scale_fill_manual(values=c("A"="#e31a1c","B"= "#ff7f00","C" ="#33a02c")) # just apply the colours to specific "Years"
})
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.