ggvisのRの棒グラフに棒の上にラベルを付けるにはどうすればいいですか？

Question

ggvisのlayer_bars（）プロットを考えてみましょう。ユーザーはどのようにして各バーの上に数字（ラベル）を追加できますか？下のグラフのように

：あなたがバーやテキストがcompute_countを使用するためのデータセットを計算することができ

Answer 1

。これは、ggvis basics docsのcompute_binの例によく似ています。

テキストを整列させるには、何か作業が必要です（this open github issueに基づいてthis question/answerを参照）。

mtcars %>% 
    compute_count(~factor(cyl)) %>% 
    ggvis(x = ~x_, y = ~count_) %>% 
    layer_bars(fill = ~x_) %>% 
    layer_text(text := ~x_, prop("x", ~x_, scale = "xcenter"), y = ~count_ + .5, 
      fontSize := 18, align := "center") %>% 
    scale_nominal("x", name = "xcenter", padding = .9, points = TRUE)