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

闪亮的ggvis互动

1 个答案: