条形图中的渐变填充

我正在观察不同人群的行为（称为Clusters在此数据集中）以及他们对所使用的浏览器类型的偏好。我想创建一个条形图，显示使用每种类型浏览器的每个集群的百分比。

下面是一些生成类似数据集的代码（请忽略每个簇的百分比加起来不会等于 1）：

browserNames <- c("microsoft","mozilla","google")
clusterNames <- c("Cluster 1","Cluster 2","Cluster 3")
percentages <- runif(n=length(browserNames)*length(clusterNames),min=0,max=1)

myData<-as.data.frame(list(browserNames=rep(browserNames,3),
                           clusterNames=rep(clusterNames,each=3),
                           percentages=percentages))

这是到目前为止我能够想出的代码来获得我想要的图表：

ggplot(myData, aes(x=browserNames, y=percentages, fill=factor(clusterNames))) +
    geom_bar(stat="identity",position="dodge") +
    scale_y_continuous(name="Percent Weight", labels=percent)

我希望每个簇的填充是具有我确定的高值和低值的渐变填充。因此，在此示例中，我希望能够为所表示的每个集群设置 3 个高值和低值。

我在使用不同的scale_fill命令时遇到了麻烦，而且我对ggplot还很陌生，我很确定我可能只是做错了。有任何想法吗？

编辑：这是我正在寻找的图片：

（原始图像可在https://www.dropbox.com/s/py6hifejqz7k54v/gradientExample.bmp https://www.dropbox.com/s/py6hifejqz7k54v/gradientExample.bmp)

这接近你的想法吗？

# color set depends on browser
library(RColorBrewer)     # for brewer.pal(...)
gg        <- with(myData, myData[order(browserNames,percentages),])
gg$colors <- 1:9
colors    <- c(brewer.pal(3,"Reds"),brewer.pal(3,"Greens"),brewer.pal(3,"Blues"))

ggplot(zz, aes(x=browserNames, y=percentages, 
               fill=factor(colors), group=factor(clusterNames))) +
  geom_bar(stat="identity",position="dodge", color="grey70") + 
  scale_fill_manual("Cluster", values=colors, 
                    breaks=c(3,6,9), labels=c("Google","Microsoft","Mosilla"))

# color set depends on cluster
library(RColorBrewer)     # for brewer.pal(...)
gg        <- with(myData, myData[order(clusterNames,percentages),])
gg$colors <- 1:9
col    <- c(brewer.pal(3,"Reds"),brewer.pal(3,"Greens"),brewer.pal(3,"Blues"))

ggplot(gg, aes(x=browserNames, y=percentages, 
               fill=factor(colors), group=factor(clusterNames))) +
  geom_bar(stat="identity",position="dodge", color="grey70") + 
  scale_fill_manual("Cluster", values=col, 
                    breaks=c(3,6,9), labels=c("Cluster1","Cluster2","Cluster3"))