如何在R中的ggplot2中的图块上放置标签？

运行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")