r - R:ggplot更好的渐变色

我正在使用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差别不大。

但是由于颜色，其中一些无法区分。有人可以告诉我如何选择更好的颜色，以便区分它们吗？

谢谢。

最佳答案

如何使用由scale_fill_brewer包实现的，利用ColorBrewer网站上的调色板的RColorBrewer呢？

ggplot(diamonds, aes(clarity, fill=cut) ) +
geom_bar( ) +
scale_fill_brewer( type = "div" , palette = "RdBu" )

您可以选择多种不同的调色板。

require(RColorBrewer)
?brewer.pal

如果需要更多颜色，可以使用colorRampPalette功能在某些颜色之间进行插值(为此，我将使用brewer.pal调色板)。您可以这样操作:

# Create a function to interpolate between some colours
mypal <- colorRampPalette( brewer.pal( 6 , "RdBu" ) )
# Run function asking for 19 colours
mypal(19)
 [1] "#B2182B" "#C2373A" "#D35749" "#E47658" "#F0936D" "#F4A989" "#F8BFA5"
 [8] "#FCD6C1" "#F3DDD0" "#E7E0DB" "#DAE2E6" "#CBE1EE" "#ADD1E5" "#90C0DB"
 [15] "#72AFD2" "#5B9DC9" "#478BBF" "#3478B5" "#2166AC"

在需要8种颜色的示例中，可以将其与scale_fill_manual()一起使用:

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)+
    scale_fill_manual( values = mypal(8) )
}

print(PropBarPlot(df))

关于r - R:ggplot更好的渐变色，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/16295440/