2016-09-06 6 views
0

Рассмотрим слой layer_bars() в ggvis. Как пользователь может добавить числа (метки) над каждой панелью?Как наклеить этикетки над брусьями на планшетах в R в ggvis?

Как и в графике ниже: enter image description here

+0

Вы можете добавить пример набора данных и исходный код вы будете использовать, чтобы сделать гистограмму с помощью ggvis? – aosmith

+0

Будете ли вы в порядке с решением в ggplot2? – prateek1592

ответ

1

Вы можете вычислить набор данных для баров и текста с помощью compute_count. Это очень похоже на пример compute_bin в ggvis basics docs.

Получение выравнивания текста требует некоторой работы, см. 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) 

enter image description here

+0

@userJT Разве это не отвечало на ваш вопрос? – aosmith