Bad map

[This article was first published on r.iresmi.net, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

A photo of The Alte Nahebrücke, a medieval stone arch bridge in Bad Kreuznach, in western Germany, dating from around 1300

Bad Kreuznach, Germany – CC-BY-NC by Billy Wilson

Day 4 of 30DayMapChallenge: « Bad map » (previously).

A map of all populated places containing the word “Bad” from Geonames.

library(tidyverse)
library(leaflet)
library(httr)
library(fs)

gn_file <- "~/data/geonames/allCountries.zip"

if (!file_exists(gn_file)) {
  GET("http://download.geonames.org/export/dump/allCountries.zip",
      write_disk(gn_file))
}

gn <- read_delim(gn_file, 
                 delim = "\t", 
                 col_names = c("geonameid",     
                               "name",          
                               "asciiname",     
                               "alternatenames",
                               "latitude",      
                               "longitude",     
                               "feature_class", 
                               "feature_code",  
                               "country_code",  
                               "cc2",           
                               "admin1_code",   
                               "admin2_code",   
                               "admin3_code",   
                               "admin4_code",   
                               "population",    
                               "elevation",     
                               "dem",           
                               "timezone",      
                               "modification_date"))
bad <- gn |> 
  filter(str_detect(feature_code, "^PPL"),
         str_detect(asciiname, "\\b[Bb]ad\\b")) 

bad |> 
  leaflet() |> 
  addCircleMarkers(popup = ~ name) |> 
  addTiles()
Figure 1: Bad map

So we have 471 “Bad” populated places…

To leave a comment for the author, please follow the link and comment on their blog: r.iresmi.net.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)