R:创建具有多个过滤器的路由映射

Question

~~编辑~~~

下面的答案有效，请参阅我的代码以完成，并为将来需要帮助的任何人回答问题。

~~~~~~~~

我正在尝试在R中创建一个仪表板(第一个！)，该仪表板将创建一个地图，该地图显示包裹初始位置和包裹结束位置(在世界各地旅行)之间的数千条路线。然后，我希望有过滤器，以便根据标准显示不同的路线(如果可能的话，给一个框来根据选择告诉有多少条路线)。

我能够制作带有所有线条的仪表板和地图，看起来很棒。现在的问题是我似乎无法弄清楚如何创建具有交互性的过滤器。我的问题是我目前正在创建线条并在 For 循环中绘制它们，因此它们不会保存在任何地方。

我有三个过滤器：部门(我称之为 SBU)、制造工厂(我称之为工厂，是 SBU 的子集)和客户。

即，您可以将 SBU A 与与 SBU A 关联的所有工厂一起使用，并查看客户 Y。然后，您将看到与此关联的特定路由。

即您可以将 SBU B 与工厂 K 一起查看所有客户

不幸的是，我无法提供原始数据。

任何帮助将不胜感激，因为我对R很陌生！

library(shiny)
library(shinydashboard)
library(maps)
library(geosphere)
library(maps)
library(mapproj)
library(geosphere)
library(ggrepel)
library(scales)
###########################/ui.R/##################################
#Setting drive where files are located
setwd("C:/R Files")
#Pulling in outside Data Files
Network <- read.csv("Network Codes.csv")
Data <- read.csv("Raw Data2.csv")
#Header
header <- dashboardHeader(
title = "Intake Routes")
#SideBar
sidebar <- dashboardSidebar(
#SBU Selection List
selectInput(inputId = "SBU", "SBU:", selected="ALL",
choices = unique(as.character(Network$SBU))),
#Plant Selection List
uiOutput("Plant"),
#Customer Selection List
selectInput(inputId = "Customer", "Customer:", multiple = TRUE, selected="ALL",
choices = unique(as.character(Data$Customer.Name.Standard))))
#Body
body <- dashboardBody(
plotOutput(outputId = "map")
)
#Builds Dashboard Page
ui <- dashboardPage(header, sidebar, body)
###########################/server.R/###############################
server <- function(input, output) {
##INPUT##  
#Dependant Plant SideBar List Dependant on SBU
output$Plant <- renderUI({
selectInput(inputId = "Plant", "Plant:", multiple = TRUE,
choices = as.character(Network[Network$SBU == input$SBU, "Plant.Name"]))
})
#Reactive data set based on inputs
Reactive_Data1 <- reactive({
if (input$SBU == "ALL") {Data}
else {Data[Data$SBU == input$SBU,]}
})
Reactive_Data2 <- reactive({
if (input$Plant == "ALL") {Reactive_Data1()}
else {Reactive_Data1()[Reactive_Data1()$Plant == (input$Plant),]}
})
Reactive_Data3 <- reactive({
if (input$Customer == "ALL") {Reactive_Data2()}
else {Reactive_Data2()[Reactive_Data2()$Customer.Name.Standard == input$Customer,]}
})
output$map <- renderPlot({
#Map coordinates
xlim <- c(-170,170)
ylim <- c(-55,75)
map("world", col="#f2f2f2", fill=TRUE, bg="white", lwd=0.05, xlim=xlim, ylim=ylim)
npoints <- 20
nroutes <- nrow(Data)
for(i in 1:nroutes){
inter <- gcIntermediate(c(Data$Ship.From.Longitude[i],
Data$Ship.From.Latitude[i]),
c(Data$Ship.To.Longitude[i],
Data$Ship.To.Latitude[i]),
n=npoints, addStartEnd = T, breakAtDateLine = T)
if (is.list(inter)) {
inter1 <- inter[[1]]
inter2 <- inter[[2]]
lines(inter1, col = "green", lwd=0.50)
lines(inter2, col = "blue", lwd=0.50)}
else {
lines(inter, col = "grey", lwd=0.50)}
}
})
}
#Combines Dashboard and Data together
shinyApp(ui, server)

Answer 1

您需要使数据集对输入"反应"，然后继续使用和引用该反应式数据集，以便在每次输入更改时更新。

下面是基于Data变量的过滤版本创建名为reactive_dat的新反应变量的示例。

reactive_dat <- reactive({
Data[Data$SBU == input$SBU, ]
})