termiczna z wartościami (ggplot2)

Question

Ja widać Strefy o wartościach wykonane w różnych układach, w tym graficznych R siatki i zasady, jak to:

że zazwyczaj wykorzystuje ggplot2 kawałka i chciałby mieć w stanie stworzyć mapę cieplną z naniesionymi odpowiednimi wartościami komórek. Poniżej znajduje się mapa ciepła i próbą używając geom_text:

library(reshape2, ggplot2) 
dat <- matrix(rnorm(100, 3, 1), ncol=10) 
names(dat) <- paste("X", 1:10) 
dat2 <- melt(dat, id.var = "X1") 
p1 <- ggplot(dat2, aes(as.factor(Var1), Var2, group=Var2)) + 
    geom_tile(aes(fill = value)) + 
    scale_fill_gradient(low = "white", high = "red") 
p1 

#attempt 
labs <- c(apply(round(dat[, -2], 1), 2, as.character)) 
p1 + geom_text(aes(label=labs), size=1) 

Normalnie mogę zorientować się w wartości X i Y, aby przejść, ale nie wiem, w tym przypadku, ponieważ ta informacja nie jest przechowywana w zbiorze danych. Jak mogę umieścić tekst na mapie termicznej?

Answer 1

ta została zaktualizowana w celu dostosowania do tidyverse zasad i poprawić słabe wykorzystanie ggplot2

komentarz Per SlowLeraner za I był w stanie łatwo to zrobić:

library(tidyverse) 

## make data 
dat <- matrix(rnorm(100, 3, 1), ncol=10) 

## reshape data (tidy/tall form) 
dat2 <- dat %>% 
    tbl_df() %>% 
    rownames_to_column('Var1') %>% 
    gather(Var2, value, -Var1) %>% 
    mutate(
     Var1 = factor(Var1, levels=1:10), 
     Var2 = factor(gsub("V", "", Var2), levels=1:10) 
    ) 

## plot data 
ggplot(dat2, aes(Var1, Var2)) + 
    geom_tile(aes(fill = value)) + 
    geom_text(aes(label = round(value, 1))) + 
    scale_fill_gradient(low = "white", high = "red")