Heat Map mit Zahlen in ggvis

Question

Ich versuche, die Heatmap mit Zahlen aus ggplot2 in ggvis zu replizieren. ggplot2 Version ist

library(ggplot2) 
hec <- as.data.frame(xtabs(Freq ~ Hair + Eye, HairEyeColor)) 
ggplot(hec, aes(Hair, Eye)) + 
geom_tile(aes(fill = Freq)) + 
geom_text(aes(label = Freq),colour="white") 

und es sieht so aus, dass

Meine Version in ggvis ist

hec%>% 
ggvis(~Hair, ~Eye, fill=~Freq)%>% 
layer_rects(width = band(), height = band()) %>% 
layer_text(text:=~Freq,fontSize := 20, fill:="white",baseline:="top",align:="center") %>% 
scale_nominal("x", padding = 0, points = FALSE) %>% 
scale_nominal("y", padding = 0, points = FALSE) 

und das Ergebnis ist nicht perfekt

Ich habe versucht, Zahlen zu korrigieren, indem ich Ränder manuell hinzufüge, aber dieser Fall ist nicht veränderbar.

Irgendwelche Ideen?

Answer 1

Eine Abhilfe ist xcenter und ycenter Waage zu verwenden:

hec <- as.data.frame(xtabs(Freq ~ Hair + Eye, HairEyeColor)) 

hec%>% 
    ggvis(~Hair, ~Eye, fill=~Freq) %>% 
    layer_rects(width = band(), height = band()) %>% 
    layer_text(
    x = prop("x", ~Hair, scale = "xcenter"), 
    y = prop("y", ~Eye, scale = "ycenter"), 
    text:=~Freq, fontSize := 20, fill:="white", baseline:="middle", align:="center") %>% 
    scale_nominal("x", padding = 0, points = FALSE) %>% 
    scale_nominal("y", padding = 0, points = FALSE) %>% 
    scale_nominal("x", name = "xcenter", padding = 1, points = TRUE) %>% 
    scale_nominal("y", name = "ycenter", padding = 1, points = TRUE) 

Answer 2

In layer_text() versuchen Sie align:="left". Das schien in this example zu funktionieren.