R의 ggplot2에서 타일에 라벨을 붙이는 방법은 무엇입니까?

Question

기능 geom_tile 및 scale_fill_gradient은 멋진 히트 맵을 생성합니다. ggplot2 타일에 라벨을 추가하는 방법, 각 타일의 위에 각각의 값이 인쇄되도록하려면 어떻게해야합니까?

추 신 : 높은 성공률로 히트 맵을 수행하는 많은 패키지가 있습니다 (예 : 설문 조사는 여기 : 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))