如何在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)