我正在使用 ggplot 绘制比例堆积条形图。我得到的情节是这样的:
这是我正在使用的自写函数:
df <- data.frame(id=letters[1:3],val0=1:3,val1=4:6,val2=7:9, val3=2:4, val4=1:3, val5=4:6, val6=10:12, val7=12:14)
PropBarPlot<-function(df, mytitle=""){
melteddf<-melt(df, id=names(df)[1], na.rm=T)
ggplot(melteddf, aes_string(x=names(df)[1], y="value", fill="variable")) +
geom_bar(position="fill") +
theme(axis.text.x = element_text(angle=90, vjust=1)) +
labs(title=mytitle)
}
print(PropBarPlot(df))
这里val4
并val5
没有太大的不同。
但由于颜色,其中一些无法区分。有人可以告诉我如何选择更好的颜色以便它们可以区分吗?
谢谢。