Question

我正在尝试创建一个闪亮的应用程序及其中的一部分，是一张应将纬度和经度点打印到地图中的地图。我一直在尝试这样做，但是我收到一个错误，告诉我它无法找到我的对象if let item = itemDataJson { for i in 0..<item.count { imageUrls.append(appDelegate.itemDataJson![i]["image_url"].string!) } }。

如果我只是把地图运作得很好，没有分数，但这是一步。

我的服务器.R代码是：

在ui.R我得到了：

#Reactive Map
  output$MapPr <- renderPlot({
    d <- switch(input$chDatabase,
                "BPD 2013 Baltimore" = read.csv("./Data/BPD_13_Bal.csv", 
                                                header=TRUE, sep=",", dec="."),
                "BPD 2014 Baltimore" = read.csv("./Data/BPD_14_Bal.csv", 
                                                header=TRUE, sep=",", dec=".")
    )
    library(ggmap)
    map <- get_map(location = 'Baltimore', zoom = 12)
    ggmap(map)
    ggmap(map) +
      geom_point(aes(as.numeric(d$Longitude), as.numeric(d$Latitude)), data = d, alpha =.5, color = "darkred")
  }, width = 800, height = 700)

顺便说一下，我已经看到csv文件的负载存在问题，或者至少我认为，但是之前的情节（直方图，馅饼，盒子图等）我一直在做同样的系统，他们工作。

我不知道该如何继续这个。

纬度和经度的列都是数字。

Answer 1

将server.R更改为以下工作吗？

library(ggmap)

d <- reactive({
    switch(input$chDatabase,
           "BPD 2013 Baltimore" = read.csv("./Data/BPD_13_Bal.csv", 
                                           header=TRUE, sep=",", dec="."),
           "BPD 2014 Baltimore" = read.csv("./Data/BPD_14_Bal.csv", 
                                           header=TRUE, sep=",", dec="."))
})



output$MapPr <- renderPlot({
    df <- d()
    map <- get_map(location = 'Baltimore', zoom = 12)
    ggmap(map) +
        geom_point(aes(as.numeric(Longitude), 
                       as.numeric(Latitude)), 
                   data = df, alpha =.5, color = "darkred")
}, width = 800, height = 700)

将点（纬度和经度）绘制到ggmap中

1 个答案: