如何在R g in ggvis的条形图中将标签放在条形图上？

Question

考虑ggvis中的layer_bars（）图。用户如何在每个栏上方添加数字（标签）？

如下图所示：

Answer 1

您可以使用compute_count计算条形和文本的数据集。这很像ggvis basics docs中的compute_bin示例。

将文字对齐需要一些工作，请参阅基于this question/answer的this open github issue。

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)