点击Leaflet地图上的点即可在Shiny中生成ggplot

我正在尝试使用 R 中的 Shiny 创建一个 Leaflet 地图，它允许用户单击任何标记来生成表示该特定站点的信息（温度）的相应图。

我合并了这个问题的代码（单击传单地图中的点作为闪亮绘图的输入 https://stackoverflow.com/questions/44334968/click-on-points-in-a-leaflet-map-as-input-for-a-plot-in-shiny）和这个博客上的第二个技巧（https://www.r-bloggers.com/4-tricks-for-working-with-r-leaflet-and-shiny/ https://www.r-bloggers.com/4-tricks-for-working-with-r-leaflet-and-shiny/）但似乎仍然无法在 Shiny 中成功注册单击的标记点。

即，当我单击任何网站时，都不会显示任何内容。

根据进一步的研究，我找不到任何解决方案，感谢任何帮助。

library(leaflet)
library(shiny)
library(ggplot2)

# example data frame 
wxstn_df <- data.frame(Site = c("a", "a", "b"), Latitude = c(44.1, 44.1, 37), Longitude = c(-110.2, -110.2, -112.7), Month = c(1,2,1), Temp_avg = c(10, 18, 12))

ui <- fluidPage(column(7, leafletOutput("wsmap", height = "600px")),
  column(5, plotOutput("plot", height = "600px"))
)

server <- function(input, output) {

  # create a reactive value to store the clicked site
  stn <- reactiveValues(clickedMarker = NULL)

  ## leaflet map
  output$wsmap <- renderLeaflet({
    leaflet() %>% 
      addTiles() %>% 
      addCircleMarkers(data = wxstn_df, ~unique(Longitude), ~unique(Latitude), layerId = ~unique(Site), popup = ~unique(Site)) 
  })

 # store the click
  observeEvent(input$map_marker_click, {
    stn$clickedMarker <- input$map_marker_click
  })

output$plot <- renderPlot({
      ggplot(wxstn_df[wxstn_df$Site %in% stn$clickedmarker$Site,], aes(Month, Temp_avg)) +
        geom_line()
  }) 
}

shinyApp(ui, server)

这是一个解决方案：

library(leaflet)
library(shiny)
library(ggplot2)

# example data frame 
wxstn_df <- data.frame(Site = c("a", "a", "b"), Latitude = c(44.1, 44.1, 37), Longitude = c(-110.2, -110.2, -112.7), Month = c(1,2,1), Temp_avg = c(10, 18, 12))

ui <- fluidPage(column(7, leafletOutput("wsmap", height = "600px")),
                column(5, plotOutput("plot", height = "600px"))
)

server <- function(input, output) {

  ## leaflet map
  output$wsmap <- renderLeaflet({
    leaflet() %>% 
      addTiles() %>% 
      addCircleMarkers(data = wxstn_df, ~unique(Longitude), ~unique(Latitude), layerId = ~unique(Site), popup = ~unique(Site)) 
  })

  # generate data in reactive
  ggplot_data <- reactive({
    site <- input$wsmap_marker_click$id
    wxstn_df[wxstn_df$Site %in% site,]
  })

  output$plot <- renderPlot({
    ggplot(data = ggplot_data(), aes(Month, Temp_avg)) +
      geom_line()
  }) 
}

shinyApp(ui, server)

主要问题是您没有更改您正在使用的示例中的对象名称，例如输入$wsmap_marker_click，因为wsmap是你传单ID的名称。同样，要访问站点信息，请使用 input$wsmap_marker_click$id 而不是 input$wsmap_marker_click$Site。在反应函数中打印对象通常很有用，可以探索输入对象的外观以及如何访问它的各个部分。

e.g.

   # generate data in reactive
  ggplot_data <- reactive({
    print(input$wsmap_marker_click)
    site <- input$wsmap_marker_click$id
    print(site)

    data <- wxstn_df[wxstn_df$Site %in% site,]
    print(data)
    data})

就我个人而言，在这种情况下，我更愿意使用反应式表达式从标记单击生成 ggplot 数据 (ggplot_data())，而不是创建reactiveValues 对象。每次单击标记时，绘图都会使用新的 ggplot_data() 进行更新。

并证明它有效：