ggvis在Shiny中的交互

Question

我试图在悬浮元素中嵌入一个闪亮的ggvis图，但是它似乎并没有在闪亮（即悬停元素）中​​呈现。下面是服务器和UI组件：

server.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的交互性失去光泽，那将是一个真正的失望。如果是这样的话，有没有其他的选择？

Answer 1

您绑定闪亮与bind_shiny与ggvis情节，不具有悬停点。但是，您的确可以在shinyServer以上的功能。只要将其删除，无论如何都要满足要求，然后在bind_shiny和shinyServer之前添加悬停。

server.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") 
})