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