Я пытаюсь сделать блестящее приложение и его часть, это карта, которая должна печатать точки широты и долготы на карте. Я пытался это сделать, но я получаю сообщение о том, что он не может найти мой объект d
.Точки отсчета (широта и долгота) в ggmap
Если я просто положил карту, она работает хорошо, без очков, но это шаг.
Мой server.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)
В ui.R я получил:
################################
#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")
)
)
)
Кстати, я видел, что проблема с загрузкой файл csv, или, по крайней мере, я так думаю, но предыдущие сюжеты (гистограммы, пироги, полевые диаграммы и т. д.) я делал с одной и той же системой, они работают.
Я не знаю, как я должен продолжать это.
Столбцы широты и долготы являются числовыми.
Теперь я получаю еще один; Предупреждение: Ошибка в $: объект типа «закрытие» не является подмножеством – neoSmith
Мой плохой. Можете ли вы проверить сейчас? Не предполагается использовать '$' внутри 'aes' – Sumedh
Да! Он работает сейчас: D Лот спасибо @Sumedh! Я также понял о другой ошибке в моем файле csv. – neoSmith