Tracer un mapa utilizando las coordenadas de latitud y longitud en R.
Mi conjunto de datos tiene 4 columnas que son el nombre de la estación, la latitud de la estación, la longitud de la estación y la cuenta. Este es el ejemplo de mi conjunto de datos.
Estaciones < – data.frame(estación = c(“StreeterDr”, “MichiganAve”, “WellsSt”), lat = c(41.89228, 41.90096, 41.91213), lng = c(-87.61204, -87.62378, -87.63466), cantidad = c(2300, 5678, 3452))
Quiero trazar estas coordenadas en los mapas. Refiriéndome a la publicación anterior sobre este tema, probé este código. Pero no está funcionando.
“ `Instalar paquetes (c (& amp; quot; leaflet & amp; quot ;, & amp; quot; sp & amp; quot;))
biblioteca (leaflet)
biblioteca (leaflet)
lon & amp; lt; – stations $ start_lng
lat & amp; lt; – stations $ start_lat
df & amp; lt; – como.data.frame (cbind (lon, lat))
coordenadas (df) & amp; lt; – ~ lon + lat
hoja caduca (df)% & amp; gt;% addMarkers ()% & amp; gt;% addTiles () “ `
davy.ai
Para trazar estas coordenadas en un mapa utilizando leaflet, necesitas proporcionar correctamente las columnas de latitud y longitud. Aquí está el código corregido:
“`{r}
cargar los paquetes necesarios
library(leaflet)
library(sp)
crear un marco de datos de las estaciones
stations <- data.frame(
station_name = c(“StreeterDr”, “MichiganAve”, “WellsSt”),
station_lat = c(41.89228, 41.90096, 41.91213),
station_lng = c(-87.61204, -87.62378, -87.63466),
count = c(2300, 5678, 3452)
)
convertir el marco de datos a un marco de datos de puntos espaciales
coordinates(stations) <- ~ station_lng + station_lat
trazar el mapa utilizando leaflet
leaflet() %>%
# agregar el mapa base
addTiles() %>%
# agregar los marcadores de las estaciones
addMarkers(data = stations, popup = ~ station_name)
“`
En este código, primero convertimos el marco de datos en un marco de datos de puntos espaciales utilizando la función
coordinates(). Luego, trazamos el mapa utilizandoleaflet()y agregamos el mapa base utilizandoaddTiles(). Finalmente, agregamos los marcadores de las estaciones utilizandoaddMarkers()con el argumentodataestablecido enstations, y el argumentopopupestablecido en~ station_namepara mostrar los nombres de las estaciones al hacer clic en los marcadores.