1

我正在构建一个 R Shiny 工具来可视化飞行数据。我建立了一个数据表，其中包含飞机的纬度、经度、速度、航向、高度等观察结果。然后我将这些观察结果绘制在传单地图上。一系列滑块和框可以对这些观察进行子集化，以便仅绘制所需的观察（例如，仅绘制具有特定高度的那些观察）。在添加能够选择多个值的selectInput()小部件之前，我可以毫无问题地呈现观察结果。下面是我的代码的一个最小的、可重现的示例。

服务器.R

library(shiny)
library(data.table)
library(leaflet)

shinyServer(function(input, output){

  # sample data set
  dt <- data.table(altitude = c(1,1,3,3,4,5,6,7,3,2),
                   long = c(-85.2753, -85.4364, -85.5358, -85.6644, -85.8208, 
                            -89.9233, -90.0456, -90.2775, -90.5800, -90.8761),
                   lat = c(45.3222, 45.3469, 45.3764, 45.4089, 45.4503,
                           44.0489, 44.1878, 44.3378, 44.4383, 44.5197),
                   origin = c('a', 'a', 'a', 'a', 'a', 'b', 'b', 'b', 'b', 'b'),
                   destination = c('c', 'c', 'c', 'c', 'c', 'd', 'd', 'd', 'd', 'd'))

  # subset the data on various inputs from ui.R
  subsetData <- reactive({
    new_data <- dt[altitude > input$alt_cut[1] &
                   altitude < input$alt_cut[2] &
                   origin %in% input$origin &
                   destination %in% input$dest, ]
    return(new_data)
  })

  # display the data in real time to identify if the subsetting
  # is occurring as expected.
  output$viewData <- renderTable({
    subsetData()
  })

  # plot the data points
  output$mapPlot <- renderLeaflet({
    leaflet() %>%
      fitBounds(-90.8761, 44.0489, -85.2753, 45.4503)
  })

  observe({
    leafletProxy('mapPlot') %>%
      clearGroup('A') %>%  # I think this line may not be functioning as I expect...
      addCircles(data = subsetData(),
                 group = 'A',
                 lng = ~long,
                 lat = ~lat,
                 radius = 2,
                 weight = 2)
  })
})

用户界面

shinyUI(fluidPage(
  titlePanel('Aircraft Flights'),
  sidebarLayout(
    sidebarPanel(
      sliderInput('alt_cut',
                  'Altitude range:',
                  min = 0,
                  max = 10,
                  value = c(0, 10),
                  step = 1),
      selectInput('origin',
                  'Filter on origin',
                  choices = c('a', 'b'),
                  selected = c('a', 'b'),
                  multiple = TRUE,
                  selectize = FALSE),
      selectInput('dest',
                  'Filter on destination',
                  choices = c('c', 'd'),
                  selected = c('c', 'd'),
                  multiple = TRUE,
                  selectize = FALSE)
    ),
    mainPanel(
      leafletOutput('mapPlot'),  # leaflet output for plotting the points
      tags$hr(),
      tableOutput('viewData')  # table for sanity check
    )
  )
))

单击起点和终点的某些组合后，该图不再反映正确显示在地图下方表格中的数据。例如，尝试以下操作序列。

  1. 运行应用程序
  2. 选择原点：a（显示右上系列）
  3. 选择目的地：d（绘图为空，因为 a 和 d 未链接）
  4. 选择目的地：c（右上方系列重新出现，因为 a 和 c 已链接）
  5. 选择目的地：d（右上系列错误地保留）

使用滑块对高度进行子集也不再有效。由于表中的数据在变化，但情节没有变化，这让我觉得这clearGroup('A')条线没有删除圆圈。

为什么表格和绘图显示的内容之间存在差异？

问题的屏幕截图：表中没有数据，但地图上仍绘制点。

4

0 回答 0