在闪亮的服务器中设置数据子集.R文件

Question

我正在尝试让一个简单的Shiny应用程序工作（这将是更大的事情的开始）。我的问题是服务器中的子集数据。应用程序的R部分似乎对我根本不起作用。

错误消息为：

eval（expr、envir、enclos）中出错：找不到对象"localA3"

这是我的服务器。R文件：

# server.R
library(ggmap)
library(scales)
library(grid)
localA <- read.csv("local7.csv", header=TRUE)
shinyServer(
  function(input, output) {
    output$map <- renderPlot({
      sub <- switch(input$sub, 
                    "a" = "a",
                    "b" = "b",
                    "c" = "c")

      opt <- switch(input$opt, 
                    "data" = "data",
                    "obs" = "obs")

      localx = reactive({
        x <- subset(localA, factor==paste(sub))
        return(x)
      })
      localA3 <- localx()
      testmapA <- qmap("England", zoom = 6, color = "bw", legend = "topleft")
      testmapA +
        geom_point(aes(x = lon, y = lat, colour = localA3$opt, size = localA3$opt),   data = localA3)
    })
  }
)

这是我的UI.R文件：

# UI.R
shinyUI(fluidPage(
  titlePanel("A Shiny Example"),
  sidebarLayout(
    sidebarPanel(
      helpText("Create maps with random data for UK local authorities."),
      selectInput("sub", 
                  label = "Choose a category to display",
                  choices = c("a", "b", "c"),
                  selected = "a"),
      selectInput("opt", 
                  label = "Choose a variable to display",
                  choices = c("data", "obs"),
                  selected = "data"),

      sliderInput("range", 
                  label = "Range of interest:",
                  min = 0, max = 100, value = c(0, 100))
    ),
    mainPanel(plotOutput("map"))
  )
))

无论出于什么原因，R告诉我它找不到对象"localA3"。我现在已经尝试用许多不同的方式对代码的子集部分进行编程——从函数上的反应表达式到简单的R代码。Shiny之外的功能在服务器中不起作用。R程序。

有人能告诉我我可能做错了什么吗？

我的基本数据集"local7.csv"的前十个条目如下：

    lon         lat         data        obs         factor
1   -0.1277583  51.5073509  87.828234   20.49259318 a
2   0.1293497   51.5464828  68.79663358 98.0480588  a
3   -0.1997     51.6444     24.35460542 76.77994522 b
4   0.154327    51.439933   71.51349632 28.05491455 a
5   -0.2710568  51.5672808  91.31933313 69.15576621 c
6   0.013156    51.406025   57.98920169 56.12171479 a
7   -0.1588255  51.5517059  45.68928313 29.73514486 a
8   -0.098234   51.376165   29.47027315 96.1460748  b
9   -0.3415002  51.5250257  36.46005588 76.66948508 c
10  -0.0837     51.6516     43.57721438 50.65123884 c

Answer 1

您需要将aes调用更改为aes_string，并使所有元素都为字符串，以便与geom_point保持一致。在同时使用对象和字符串之前。下面的小变化在你的最后uiR对我有效。

testmapA +
          geom_point(aes_string(x = "lon", y = "lat", colour = input$opt, size = input$opt),   data = localA3)