Question

我想创建一个Shiny APP，它使用ggvis绘制交互式图形，并使用linked_brush来选择图中的点。绘图数据根据输入进行更改。

但是当我尝试将所有内容放在一起时，我收到错误消息。

Error : Length of calculated column 'reactive_185425318' (0)
is not equal to 1 or the number of rows in data (32).

我尝试通过ggvis中的“基本”演示创建一个最小示例：

ui.R

library(ggvis)

shinyUI(pageWithSidebar(
  div(),
  sidebarPanel(
    textInput('filter', 'Filters', ''),
    uiOutput("plot_ui")
  ),
  mainPanel(
    ggvisOutput("plot")
  )
))

server.R

library(ggvis)
library(dplyr)

shinyServer(function(input, output, session) {
  # A reactive subset of mtcars
  mtc <- reactive({ 
        mtcs <- mtcars %>% 
            mutate(name = row.names(.))
        if (nchar(input$filter) > 0)
        {
            mtcs <- mtcs %>% filter(grepl(input$filter, name))
        }
        print(mtcs)
        mtcs
    })
  lb <- linked_brush(keys = mtc()$id, "red")
  mtc %>%
    ggvis(~wt, ~mpg) %>%
    layer_points(fill := lb$fill, fill.brush := 'red') %>%
    lb$input() %>%
    bind_shiny("plot", "plot_ui")
  })

如果我改变

layer_points(fill := lb$fill, fill.brush := 'red') %>%

进入

layer_points() %>%

一切都对我有用。我想这个问题与“linked_brush”有关。

我该如何解决这个问题？感谢您的任何建议。

我的会话信息：

sessionInfo()
R version 3.1.1 (2014-07-10)
Platform: x86_64-w64-mingw32/x64 (64-bit)

locale:
[1] LC_COLLATE=English_Australia.1252  LC_CTYPE=English_Australia.1252    LC_MONETARY=English_Australia.1252 LC_NUMERIC=C                       LC_TIME=English_Australia.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] stringr_0.6.2       magrittr_1.5        dplyr_0.4.1.9000    rproject_0.1.0.4509 ggvis_0.4.0.9000    shiny_0.11.1       

loaded via a namespace (and not attached):
 [1] assertthat_0.1.0.99  DBI_0.3.1            digest_0.6.4         htmltools_0.2.6      httpuv_1.3.2         lazyeval_0.1.10.9000 mime_0.2             parallel_3.1.1       R6_2.0.1            
[10] Rcpp_0.11.3          RJSONIO_1.3-0        tools_3.1.1          xtable_1.7-4

Answer 1

更改

lb <- linked_brush(keys = mtc()$id, "red")

为：

lb <- linked_brush(keys = 1:nrow(mtcars), "red")

你需要你的id变量或者直接在这样的函数中创建它。

修改

正如@NicE指出的那样，我没有意识到过滤也是问题的一部分。有关可行的解决方案，请参阅此gist。

shiny::runGist("https://gist.github.com/cdeterman/fd6bf3955ef56fe9f38d")

尽管使ggvis图反应不是最有吸引力的解决方案，但我认为这是必要的。如果你不包括scale_numeric，如果只有一个级别（例如过滤到马自达），情节将会崩溃。 scale_numeric允许人们很好地设置轴的范围。为了改变轴，我的印象是ggvis必须是被动的。

Answer 2

我遇到了同样的问题。通过修改linked_brush()以包含用于设置键的函数来解决它。

ggvis中的linked_brush.R修改了linked_brush()：

linked_brush <- function(keys, fill = "red") {
  stopifnot(is.character(fill), length(fill) == 1)

  rv <- shiny::reactiveValues(under_brush = character(), keys = character())
  rv$keys <- isolate(keys)

  input <- function(vis) {
    handle_brush(vis, fill = fill, on_move = function(items, ...) {
      rv$under_brush <- items$key__
    })
  }

  set_keys <- function(keys) {
    rv$keys <- keys
  }

  set_brush <- function(ids) {
    rv$under_brush <- ids
  }

  selected_r <- reactive(rv$keys %in% rv$under_brush)
  fill_r <- reactive(c("black", fill)[selected_r() + 1])

  list(
    input = input,
    selected = create_broker(selected_r),
    fill = create_broker(fill_r),
    set_keys = set_keys,
    set_brush = set_brush
  )
}

现在可以修改示例中的server.R，以便在mtcs更改时设置密钥：

library(ggvis)
library(dplyr)

shinyServer(function(input, output, session) {
  lb <- linked_brush(keys = NULL, "red")
  # A reactive subset of mtcars
  mtc <- reactive({ 
        mtcs <- mtcars %>% 
            mutate(name = row.names(.))
        if (nchar(input$filter) > 0)
        {
            mtcs <- mtcs %>% filter(grepl(input$filter, name))
        }
        print(mtcs)
        lb$set_keys(seq_len(nrow(mtcs)))
        mtcs
    })
  mtc %>%
    ggvis(~wt, ~mpg) %>%
    layer_points(fill := lb$fill, fill.brush := 'red') %>%
    lb$input() %>%
    bind_shiny("plot", "plot_ui")
  })

当数据发生变化时，ggvis中的linked_brush无法在Shiny中工作

2 个答案: