ggvis add_tooltip 不适用于 layer_bars

Question

我尝试将以下代码构建到闪亮的仪表板中。如果我更改为 layer_point，代码就可以工作。

我尝试改为改为 layer_rect - 但是，我无法获得带有图层矩形的堆叠条形图。

我在错误下方附上了一张照片。

color_choices <- c("#08519C","#238B45")

tab2_1 %>%  
  ungroup() %>%
  ggvis(x=~variable, y=~value, fill = ~Tender_won) %>%
  layer_bars() %>% 
  add_axis("y",title="Volume",title_offset=80) %>%
  add_axis("x",title ="Year") %>%
  scale_ordinal("fill",range = color_choices) %>%
  add_tooltip(function(data) paste0("test1",data$value,"test2")) %>%
  add_legend(scales = "fill", values = c("No","Yes"), title = "Tender Status")

数据可以在这里找到：

https://www.dropbox.com/s/3lq6qncru0xuvoc/helphelp.csv?dl=0

Answer 1

我将使用compute_stack 文档中的hec 示例向您展示如何将工具提示添加到堆叠条形图的一些示例。工具提示的确切性质将取决于您希望工具提示显示哪些数据。我的猜测是你想显示每个堆积条形部分的长度（来自原始数据集的实际 y 值）。

这有助于我了解 layer_bars 用于绘图的数据集是什么样的。您可以通过直接使用 compute_stack 并查看生成的数据集来看到这一点。

hec = as.data.frame(xtabs(Freq ~ Hair + Eye, HairEyeColor))
hec %>% compute_stack(~Freq, ~Hair)

Source: local data frame [16 x 6]

     Hair    Eye  Freq group__ stack_upr_ stack_lwr_
   (fctr) (fctr) (dbl)  (fctr)      (dbl)      (dbl)
1   Black  Brown    68   Black         68          0
2   Brown  Brown   119   Brown        119          0
3     Red  Brown    26     Red         26          0
4   Blond  Brown     7   Blond          7          0
5   Black   Blue    20   Black         88         68
6   Brown   Blue    84   Brown        203        119
7     Red   Blue    17     Red         43         26
8   Blond   Blue    94   Blond        101          7
9   Black  Hazel    15   Black        103         88
10  Brown  Hazel    54   Brown        257        203
11    Red  Hazel    14     Red         57         43
12  Blond  Hazel    10   Blond        111        101
13  Black  Green     5   Black        108        103
14  Brown  Green    29   Brown        286        257
15    Red  Green    14     Red         71         57
16  Blond  Green    16   Blond        127        111

请注意，用于绘制每个条形图每个部分的上下 y 坐标称为 stack_upr_ 和 stack_lwr_。虽然这些值基于原始 y 变量 Freq，但 Freq 值并未直接绘制。我想这可能是让你绊倒的原因。

根据此信息，如果您希望工具提示显示原始 y 值，您只需从工具提示中的上 y 坐标中减去每个堆栈的下 y 坐标。

hec %>% ggvis(x = ~Hair, y = ~Freq, fill = ~Eye) %>%
    layer_bars() %>%
    add_tooltip(function(data) paste0("test1 ", data$stack_upr_ - data$stack_lwr_, " test2"))