Rのggplot2のタイルにラベルを付けるには？

Question

ファンクションgeom_tileとscale_fill_gradientは素晴らしいヒートマップを生成します。 ggplot2タイルにラベルを追加する方法。そのため、各タイルにはそれぞれの値が印刷されます。

PS：熱狂的な成功を収めてヒートマップを行うパッケージがたくさんあります（例：アンケートはdrawing heatmap with dendrogram along with sample labels）。可能であれば、私は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))