带有工具提示的 ggvis 不适用于 layer_smooths

【问题标题】：ggvis with tooltip not working with layer_smooths带有工具提示的 ggvis 不适用于 layer_smooths
【发布时间】：2015-05-21 04:19:09
【问题描述】：

此代码按预期工作：

all_values <- function(x) {
  if(is.null(x)) return(NULL)
  row <- mtc[mtc$id == x$id, ]
  paste0(names(row), ": ", format(row), collapse = "<br />")
}

mtc %>% ggvis(x = ~wt, y = ~mpg, key := ~id) %>%
  layer_points() %>%
  add_tooltip(all_values, "hover")

但是当我添加layer_smooths(stroke := "red", se = T) 时，代码给了我一个错误：

mtc %>% ggvis(x = ~wt, y = ~mpg, key := ~id) %>%
  layer_points() %>%
  layer_smooths(stroke := "red", se = T) %>%
  add_tooltip(all_values, "hover")

Error in eval(expr, envir, enclos) : object 'id' not found

为什么？我该如何解决？

谢谢！

【问题讨论】：

标签： ggvis

【解决方案1】：

如果我没有从 ggvis 帮助页面之一中认出这是一个示例，我就不会知道 mtc 来自哪里。问题似乎是你在ggvis()语句中设置了key属性，但是layer_smooths()显然不支持，所以需要把它移到layer_points()中。我使用以下代码运行可视化：

library(ggvis)
mtc <- mtcars
mtc$id <- seq_len(nrow(mtc))

all_values <- function(x) 
 {
   if(is.null(x)) return(NULL)
   row <- mtc[mtc$id == x$id, ]
   paste0(names(row), ": ", format(row), collapse = "<br />")
 }

mtc %>% ggvis(x = ~wt, y = ~mpg) %>%
  layer_smooths(stroke := "red", se = T) %>%
  layer_points(key := ~id) %>%
  add_tooltip(all_values, "hover")

但是，当您将鼠标悬停在平滑带或置信带上时，与变量关联的所有值都会在工具提示中标记为“字符 (0)”。

【讨论】：