如何在R中的ggplot2中将标签放在瓷砖上？

Question

功能geom_tile和scale_fill_gradient产生很好的热图.如何为ggplot2瓷砖添加标签,以便每个瓷砖上都印有相应的值？

PS:有许多软件包能够以极高的成功率进行热图(例如,调查在这里:使用树状图和样本标签绘制热图).但ggplot2如果可能的话,我对解决方案很感兴趣.

一个小代码示例(没有标签):

library(Hmisc)
library(ggplot2)
df <- data.frame(row=sample(c("A", "B"), 10, replace=T),
                 col=sample(c("x", "y"), 10, replace=T),
                 val=rnorm(10))
sdf <- summaryBy(val~row+col, data=df, FUN=mean)
ggplot(sdf, aes(x=row, y=col)) +
  geom_tile(aes(fill = val.mean), colour = "white") +
  scale_fill_gradient(low = "white", high = "yellow")

Answer 1

只是:

+geom_text(aes(label=val.mean))