如何在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))