1

我正在尝试使用悬停元素将 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")
})

用户界面

library(shiny)
library(ggvis)

shinyUI(fluidPage(


titlePanel("Hello Shiny!"),


mainPanel(
  ggvisOutput("p")
)
))

代码有问题，还是自然的？如果 ggvis 的交互性在闪亮中丢失，那将是一个真正的失望。如果是这种情况，是否有任何替代方案？

4

1 回答 1

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")
})
于 2015-10-27T22:55:08.303 回答