Plot Punkte (Breite und Länge) in eine ggmap

Question

Ich versuche, eine glänzende App und einen Teil davon zu machen, ist eine Karte, die die Breiten- und Längenpunkte in eine Karte drucken sollte. Ich habe versucht, es zu tun, aber ich bekomme einen Fehler, der mir sagt, dass es mein Objekt d nicht finden kann.

Wenn ich nur die Karte funktioniert gut, ohne Punkte, aber es ist ein Schritt.

Mein server.R Code ist:

#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) 

Am ui.R ich habe:

################################ 
#2nd tabpanel for Reactive Map 
tabPanel("Reactive Map", 

    #SideBarLayout for sidebar Panel for the options of the map  
    sidebarLayout(

    #SideBar Panel with options to adjust the map 
    sidebarPanel(

     #Databases selection 
     selectInput("chDatabaseMap","Choose DataBase:", 
      choices = c("BPD 2013 Baltimore", "BPD 2014 Baltimore")) 
    ), 
    ###################################  
    #Main panel to put plots 
    mainPanel(
     plotOutput("MapPr") 
    ) 
) 
) 

By the way, habe ich gesehen, dass ein Problem mit der Last die csv-datei, oder zumindest ich denke das, aber die vorherigen plots (histogramme, pies, box plots, etc.) habe ich mit dem gleichen system gemacht, sie funktionieren.

Ich weiß nicht, wie ich das fortsetzen soll.

Die Spalten Länge und Breite sind beide numerisch.

Answer 1

Funktioniert das Ändern der server.R nach unten?

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)