Shiny中的ggvis交互性答案

【问题标题】：ggvis interactivity in ShinyShiny中的ggvis交互性
【发布时间】：2015-10-27 22:15:18
【问题描述】：

我正在尝试使用悬停元素在闪亮中嵌入 ggvis 图，但它似乎没有在闪亮中呈现（即悬停元素）。以下是服务器和 UI 组件：

服务器.R：

library(choroplethrAdmin1)
library(choroplethr)
library(ggvis)
library(dplyr)

jor<-get_admin1_map("jordan")
jor$total <- runif(983) * 100


jor %>% ggvis(~long, ~lat) %>%
layer_paths(data = jor %>% group_by(name), 
          strokeWidth := 0, fill = ~total) %>%
hide_axis("x") %>% hide_axis("y") %>%
add_tooltip(function(data){paste("Gov: ", data$name, "<br>", "Total: ", as.character(data$lat))}, "hover")

shinyServer(function(input, output) {

jor%>%
ggvis(~long, ~lat) %>%
layer_paths(data = jor %>% group_by(name), 
          strokeWidth := 0, fill = ~total) %>%
hide_axis("x") %>% hide_axis("y") %>%
bind_shiny("p")
})

ui.R

library(shiny)
library(ggvis)

shinyUI(fluidPage(


titlePanel("Hello Shiny!"),


mainPanel(
  ggvisOutput("p")
)
))

代码中是否有问题，或者这是自然的？如果 ggvis 的交互性消失在闪亮中，那将是一个真正的失望。如果是这样的话，有没有其他选择？

【问题讨论】：

标签： r shiny ggvis choroplethr

【解决方案1】：

您使用bind_shiny 绑定到闪亮的ggvis 情节，没有悬停点。但是，您确实将它放在 shinyServer 函数之上。只需删除它，无论如何都超出要求，并在bind_shiny 之前添加悬停shinyServer。

服务器.R

library(choroplethrAdmin1)
library(choroplethr)
library(ggvis)
library(dplyr)

jor<-get_admin1_map("jordan")
jor$total <- runif(983) * 100

shinyServer(function(input, output) {

  jor%>%
    ggvis(~long, ~lat) %>%
    layer_paths(data = jor %>% group_by(name), 
                strokeWidth := 0, fill = ~total) %>%
    hide_axis("x") %>% hide_axis("y") %>%
    add_tooltip(function(data){paste("Gov: ", data$name, "<br>", "Total: ",     as.character(data$lat))}, "hover") %>%
    bind_shiny("p")
})

【讨论】：