如何在ggvis的R中的條形圖中將標簽放在條形上方？

Question

考慮ggvis中的layer_bars（）圖。 用戶如何在每個小節上方添加數字（標簽）？

如下圖所示：

Answer 1

您可以使用compute_count計算條形和文本的數據集。 這非常類似於ggvis basics docs中的compute_bin示例。

使文本對齊需要一些工作，請參閱此 github公開的 問題/答案 。

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)