Um ein Kartenwerkzeug in meine App zu implementieren, habe ich von GADM eine .rds
Formdatei geladen.Leaflet in glänzender effizienter Weise, um Daten mit Shape-Datei zu kombinieren
Die Karte in glänzend funktioniert gut, aber ich bin mir nicht sicher über den nächsten Schritt. Soweit ich es verstanden habe, muss ich die .rds
Datei mit meinen tatsächlichen Daten übereinstimmen? Sie beide teilen eine gemeinsame ID, aber eine einfache merge()
Ergebnisse in NA
innerhalb der Datenfelder. Was ist ein effizienter Weg, um die Formdatei und meine Daten (in einem reaktiven Ausdruck) zusammen zu bringen?
EDIT: Mein Code so weit:
dat <- reactive({
adm <- getData('GADM', country='DEU', level=1)
#test data
test_data <- data.frame(ID_1= (1:16), N= (1:16))
#join
joined <- merge(Map_ger, test_data, by.x="ID_1")
#color pallete
pal <- colorNumeric(
palette = "Blues",
domain = joined$N
)
})
output$mymap <- renderLeaflet({
leaflet() %>% addProviderTiles("Esri.WorldGrayCanvas") %>%
addPolygons(data=dat(),stroke = FALSE, smoothFactor = 0.2, fillOpacity = 1,
color = ~pal(N))
})
Problem ist nun, wie die pal Werte von meinem reaktiven Ausdruck zuzugreifen: dat()$pal
funktioniert nicht.
Zwei Dinge: Zuerst sehe ich nicht, woher dein 'Map_ger'-Objekt stammt. Zweitens, wenn Sie 'sp :: merge (adm, test_data, by.x =" ID_1 ") verwenden, sollten Sie bekommen, was Sie wollen. – TimSalabim