使用图层点时增加互动性+；ggvis中的layer_箱线图

当我还想添加工具提示时，我很难让

层点（）

和

层框图（）

一起工作

require(ggvis)

### Example Data
mtc<-mtcars
mtc$label <- rownames(mtcars)   #unique Identifier


## Tooltip but not boxplot - works fine
mtc  %>% 
  ggvis(~cyl, ~qsec, key:= ~label) %>% 
  layer_points(size := 15) %>% 
  set_options(width = "auto") %>%
  add_tooltip(function(data) data$label)
})  

有没有人知道如何将箱线图叠加到

layer_points（）

和工具提示上（基本上识别异常值是我的目标）

---

另一个解决方案是如何向从

层(boxplot（）

自动生成的异常值添加交互性。似乎我已经解决了它-它们

键

必须在

层(boxplot（）

你看了吗？错误消息与您描述的类似。

## No tooltip - boxplot + points  - works fine
mtc  %>% 
  ggvis(~cyl, ~qsec) %>% 
  layer_points(size := 15) %>% 
  layer_boxplots(size := 0)   %>%
  set_options(width = "auto")

## Attempt at combining boxplot, points, tooltip - fails
mtc  %>% 
  ggvis(~cyl, ~qsec, key:= ~label) %>% 
  layer_points(size := 15) %>% 
  layer_boxplots(size := 0)   %>%
  set_options(width = "auto") %>%
  add_tooltip(function(data) data$label)

#Error in eval(expr, envir, enclos) : object 'label' not found
#Plot is produced but no interactivity

mtc  %>% 
  ggvis(~cyl, ~qsec) %>% 
  layer_points(key:= ~label, size := 15) %>% 
  layer_boxplots(size := 0)   %>%
  set_options(width = "auto") %>%
  add_tooltip(function(data) data$label)