如何改变堆积条形图的颜色方案以突出对比度

Question

我想制作一个堆积的条形图，以突出对比。

然而，使用我发现的方法，它总是导致从颜色范围的一端到另一端的平滑过渡（例如：深绿色到绿色到浅绿色）。这看起来不错，但是当您用10个不同的变量填充栏时，有时很难阅读。

# example data
a <- c(rep(LETTERS[seq( from = 1, to = 3)], 7))
b <- c(rep(1:2,10),1)
df <- data.frame(a,b)

你可以看到效果

s <- ggplot(df, aes(b, fill=a))
s + geom_bar() + scale_fill_brewer()

对于此示例，它有助于使用

 s + geom_bar() + scale_fill_brewer(type="div")

或

 s + geom_bar() + scale_colour_manual(values=c("#CC6666", "#7777DD"))

但如果a有很多不同的值，那么您总会看到那些＆＃34;平滑的颜色过渡＆＃34;。

ggplot2中有没有方法可以突出差异＆＃34; - 喜欢从黑色到白色，从蓝色到黄色等等......

编辑：我不明白为什么它被标记为重复。 1）其他问题中提供的答案包含在我的问题中，但我显然正在寻找与另一个问题的OP不同的东西2）我正在寻找一种颜色渐变＆＃34;突出显示＆＃34;从fill转换到另一个{{1}}。