Question

我正在尝试将工具提示分层到美国地图，但无论我在哪里悬停......它都会显示相同的数据。另外，数据是错误的。我认为它是通过因子值而不是字符值。我尝试从电影资源管理器示例中获取提示 - http://shiny.rstudio.com/gallery/movie-explorer.html - 但是，它并没有像我希望的那样工作。我应该研究哪些提示或线索？

更新：我已经确定您只能通过ggvis函数调用参数。因此，如果我的工具提示功能包括region，long，＆amp; lat，所有这些都会显示在工具提示中。由于Population和Income没有出现在函数中的任何位置，因此它不会通过它们。我仍然迷失在如何继续，但任何想法都会很棒！：）

library(ggplot2)
library(shiny)
library(ggvis)
library(dplyr)

shinyApp(

  ui = fluidPage(
    #numericInput("n", "n", 1),
    ggvisOutput("map")
  ),

  server = function(input, output) {

    statesData <- reactive({

      states <- data.frame(state.x77)
      states$region <- row.names(state.x77) %>% tolower
      row.names(states) <- NULL

      all_states <- map_data("state") %>%
        mutate(region = tolower(region)) %>%
        left_join(states)

      all_states_unique <- all_states %>%
        select(region, Population, Income, Illiteracy, Life.Exp, Murder, HS.Grad, Frost, Area) %>%
        unique

      states_tooltip <- function(x) {
        if (is.null(x)) return(NULL)
        if (is.null(x$region)) return(NULL)

        # Pick out the movie with this ID
        allStates <- isolate(all_states_unique)
        state <- allStates[allStates$region == x$region, ]

        paste0("<b>", state$region, "</b><br>",
               state$Population, "<br>",
               state$Income

        )
      }

      all_states %>%
        arrange(group, order) %>%
        ggvis(x = ~long, y = ~lat) %>%
        layer_paths(fill = ~region, stroke := .2) %>%
        add_tooltip(states_tooltip, "hover")

    })

    statesData %>% bind_shiny('map')    

  }

)

Answer 1

为要从中提取工具提示数据的数据框添加索引：

 state$id <- 1:nrow(state)

ggvis采用“关键”参数来促进这种工具提示：

 ggvis(x = ~long, y = ~lat, key := ~id) %>%

我试图弄清楚那个电影的例子并没有发现它非常有帮助。这总是对我有用：

 add_tooltip(function(x) {
             row <- state[state$id == x$key,]
             paste0("<b>", row[,"region"], "</b><br>",
                    row[,"Population"], "<br>",
                    row[,"Income"]
                    )})

至于工具提示总是出现问题的问题，我不确定，但认为这是由于ggvis命令中图层的顺序。有一个类似的问题，我有一些分散在散点图上的多边形。当我想要的是显示工具提示的各个点时，它一直试图绘制多边形的工具提示（覆盖整个图表）。通过在ggvis命令中反转它们的顺序（即layer_points（）％＆gt;％layer_shapes（）），我得到了它的工作。

ggvis地图＆amp;提示

1 个答案: