{"id":380161,"date":"2023-11-19T15:05:00","date_gmt":"2023-11-19T21:05:00","guid":{"rendered":"https:\/\/r.iresmi.net\/posts\/2023\/5_minutes\/index.html"},"modified":"2023-11-19T15:05:00","modified_gmt":"2023-11-19T21:05:00","slug":"5-minute-map","status":"publish","type":"post","link":"https:\/\/www.r-bloggers.com\/2023\/11\/5-minute-map\/","title":{"rendered":"5-minute map"},"content":{"rendered":"\r\n\r\n
\r\n[This article was first published on r.iresmi.net<\/a><\/strong>, and kindly contributed to R-bloggers<\/a>]. (You can report issue about the content on this page here<\/a>)\r\n
Want to share your content on R-bloggers? click here<\/a> if you have a blog, or here<\/a> if you don't.\r\n<\/div>\n \n\n\n\n\n
\n
\n

\"A<\/a><\/p>\n

Clock 10:05 \u2013 CC-BY-NC-ND by Bill Dickinson<\/figcaption>\n<\/figure>\n<\/div>\n

Day\u00a019 of 30DayMapChallenge<\/a>: \u00ab\u00a05-minute map\u00a0\u00bb (previously<\/a>).<\/p>\n

\n

Setup<\/h2>\n
\n
library(tidyverse)\nlibrary(leaflet)\nlibrary(httr)\nlibrary(fs)\nlibrary(glue)<\/pre>\n<\/div>\n<\/section>\n
\n
Data<\/h2>\n
We reuse the Geonames data from Bad map<\/a>.<\/p>\n
\n
gn_file <- "~\/data\/geonames\/allCountries.zip"\n\nif (!file_exists(gn_file)) {\n  GET("http:\/\/download.geonames.org\/export\/dump\/allCountries.zip",\n      write_disk(gn_file))\n}\n\ngn <- read_delim(\n  gn_file, \n  delim = "\\t", \n  col_names = c("geonameid",     \n                "name",          \n                "asciiname",     \n                "alternatenames",\n                "latitude",      \n                "longitude",     \n                "feature_class", \n                "feature_code",  \n                "country_code",  \n                "cc2",           \n                "admin1_code",   \n                "admin2_code",   \n                "admin3_code",   \n                "admin4_code",   \n                "population",    \n                "elevation",     \n                "dem",           \n                "timezone",      \n                "modification_date"))<\/pre>\n<\/div>\n
We randomly keep five places containing \u201cminute\u201d\u2026<\/p>\n
\n
set.seed(314)\n\nminute <- gn |> \n  filter(str_detect(asciiname, "\\\\b[Mm]inute\\\\b")) |> \n  slice_sample(n = 5)<\/pre>\n<\/div>\n<\/section>\n
\n
Map<\/h2>\n
\n
minute |> \n  leaflet() |> \n  addCircleMarkers(popup = ~ glue("{name} ({asciiname})<br \/>\n                                  <b>{country_code}<\/b>"),\n                   label = ~ asciiname,\n                   labelOptions = labelOptions(noHide = TRUE)) |> \n  addTiles(attribution = "Geonames and \u00a9 OpenStreetMap, ODbL")<\/pre>\n
\n
\n
<\/div>\n