Embedded Files
# install.packages(c("tidygeocoder", "dplyr", "leaflet", "readr"))library(tidygeocoder)library(dplyr)library(leaflet)library(readr)
# Read from Google Sheet (published as CSV)sheet_id <- "1dXjAVBLdfB8AUYO_XqrKDIqLSIKIFpXNnDd_ju4u02o"sheet_url <- paste0( "https://docs.google.com/spreadsheets/d/", sheet_id, "/export?format=csv")
museums <- read_csv(sheet_url, show_col_types = FALSE)
museum_locations <- geocode(museums, Museum, method = "osm", full_results = FALSE)
map <- leaflet(data = museum_locations)map <- addTiles(map)map <- addCircleMarkers(map, lng = ~long, lat = ~lat, label = ~Museum, radius = 5, color = "purple", fillOpacity = 0.8)map <- addLegend(map, position = "bottomright", colors = "purple", labels = "Museums", title = "Museums")map
# Read from Google Sheet (published as CSV)sheet_id <- "1dXjAVBLdfB8AUYO_XqrKDIqLSIKIFpXNnDd_ju4u02o"sheet_url <- paste0( "https://docs.google.com/spreadsheets/d/", sheet_id, "/export?format=csv")
museums <- read_csv(sheet_url, show_col_types = FALSE)
museum_locations <- geocode(museums, Museum, method = "osm", full_results = FALSE)
map <- leaflet(data = museum_locations)map <- addTiles(map)map <- addCircleMarkers(map, lng = ~long, lat = ~lat, label = ~Museum, radius = 5, color = "purple", fillOpacity = 0.8)map <- addLegend(map, position = "bottomright", colors = "purple", labels = "Museums", title = "Museums")map
Page updated
Google Sites
Report abuse