r - 我可以使用 ggvis 或 shiny 手动（视觉）分类点并将结果存储在新变量中吗？

Question

我有一个时间序列的室内温度测量值，我需要将其分类为加热和非加热事件。我应用了一种分类算法，它在大多数情况下都有效。错误分类的情况很容易在以类为颜色的 scapperplot 上发现。

它看起来类似于：

library(ggvis)
all_values <- function(x) {
  if(is.null(x)) return(NULL)
  paste0(names(x), ": ", format(x), collapse = "<br />")
}

mtcars %>% ggvis(x = ~wt, y = ~mpg) %>% layer_points(fill = ~factor(am)) %>% add_tooltip(all_values, "click")

除了我需要一种方法来更改变量“am”的值并存储它