Heatmap mit Werten (ggplot2)

Question

I Heatmaps mit Werten in verschiedenen R-Grafiksystemen einschließlich Gitter und Base, wie dies gemacht gesehen habe:

Ich neige dazu, ggplot2 ein bisschen zu verwenden und möchten sein in der Lage, eine Heatmap mit den entsprechenden Zellwerten zu erstellen. Hier ist die Heatmap und ein Versuch mit 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) 

Normalerweise kann ich die x- und y-Werte herauszufinden, passiert aber ich weiß nicht in diesem Fall wissen, da diese Informationen nicht in dem Datensatz gespeichert wird. Wie kann ich den Text auf der Heatmap platzieren?

Answer 1

Dies wurde aktualisiert Prinzipien entsprechen tidyverse und schlechte Nutzung von ggplot2

Kommentar Per SlowLeraner der Verbesserung war ich leicht in der Lage, dies zu tun:

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