下面这段code用来画一个heatmap,用的是ggplot2，不过我改变了缺省填充颜色，并且希望legend中的数字以百分数形式出现。
<br />
library(ggplot2)<br />
df <- data.frame(x=sample(LETTERS[1:10], 100, replace =T), y =sample(LETTERS[1:10], 100, replace =T), z=1)<br />
p<- ggplot(data=df, aes(x=x,y=y))+stat_sum(aes(fill=..prop.., group=x), geom='tile')<br />
p + scale_fill_gradient(low='white', high='steelblue', formatter='percent')<br />
</p>
作出来的效果如附件。可以看到有两个legend。上面一个是我想要的，下面一个怎样去掉？尝试了多种办法都无法做到。谢谢！
