Question

我正在尝试在闪亮的应用程序中创建可变数量的绘图，每个绘图都具有来自ggvis的悬停能力，使用add_tooltip（）来显示实际数据点。为了创建可变数量的图，我使用for循环。请参阅下面的可以单独运行的玩具示例。

出于某种原因，在我的代码中，悬停能力仅适用于创建的最终绘图。有谁知道我怎么能解决这个问题，或者对更好的方法有什么建议？

谢谢！

library(shiny)
library(ggvis)

# Define ui for variable amounts of plots
ui <- fluidPage(
  fluidRow(

  uiOutput("mydisplay")
)
)

server <- function(input, output) {

# toy data example
  x = data.frame(
    id = 1:30,
    myname = c(rep("First 10",10),rep("Second 10",10),rep("Third 10",10)),
    stringsAsFactors = F
    )

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

# For loop to create variable number of plots
  for (k in 1:length(unique(x$myname))){

    mydf = subset(x,x$myname==unique(x$myname)[k])
    mydf %>% ggvis(~id, ~id) %>% 
      layer_points(size := 30, key := ~id) %>% 
      add_tooltip(all_values,"hover") %>% 
      bind_shiny(paste0("p_",k), paste0("p_ui_",k)) 

  }

# For displaying in the UI
  output$mydisplay = renderUI({

lapply(1:length(unique(x$myname)), function(j) {
  fluidRow(
    column(7, ggvisOutput(paste0("p_",j)))
  )
    })
    })
    }

# Run the application 
shinyApp(ui = ui, server = server)

Answer 1

感谢this question here回答了我自己的问题。 ggvis代码需要包含在被动（{}）函数中。希望这有助于某人。

ggvis悬停在闪亮应用中for循环的能力

1 个答案: