8

ggvis で ggplot2 の数値を使用してヒート マップを複製しようとしています。ggplot2 のバージョンは

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

そしてそれはそのように見えます ここに画像の説明を入力

私のggvisのバージョンは

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)

結果は完璧ではありません

ここに画像の説明を入力

マージンを手動で追加して数字の位置合わせを修正しようとしましたが、この場合はサイズ変更できません。

何か案は？

4

2 に答える 2

2

1 つの回避策は、使用xcenterしてycenterスケーリングすることです。

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)
于 2014-09-30T21:23:28.393 に答える
0

でlayer_text()、 を試してくださいalign:="left"。この例ではうまくいくように見えました。

于 2014-07-19T20:28:53.827 に答える