5-minute map – r.iresmi.net

Author

Michaël

Published

2023-11-19

Modified

2023-11-20

A photo of a clock — Clock 10:05 – CC-BY-NC-ND by Bill Dickinson

Day 19 of 30DayMapChallenge: « 5-minute map » (previously).

Setup

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

Data

We reuse the Geonames data from Bad map.

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"))

We randomly keep five places containing “minute”…

set.seed(5555)

minute <- gn |> 
  filter(str_detect(asciiname, "\\b[Mm]inutes?\\b")) |> 
  slice_sample(n = 5)

Map

minute |> 
  leaflet() |> 
  addCircleMarkers(popup = ~ glue("{name} ({asciiname})<br />
                                  <b>{country_code}</b>"),
                   label = ~ asciiname,
                   labelOptions = labelOptions(noHide = TRUE)) |> 
  addTiles(attribution = "Geonames and © OpenStreetMap, ODbL")

Figure 1: … and here is the Five minute map

And it just took five minutes to do…

---
title: "5-minute map"
description: "Day 19 of 30DayMapChallenge"
author: "Michaël"
date: "2023-11-19T22:05:00"
date-modified: last-modified
categories:
  - R
  - 30DayMapChallenge
  - spatial
  - datavisualization
draft: false
freeze: true
editor_options:
  chunk_output_type: console
chunk_output_type: console
execute:
  eval: true
---

[![Clock 10:05 -- CC-BY-NC-ND by Bill Dickinson](images/18531282115_0cb47a59bf_c.jpg){fig-alt="A photo of a clock"}](https://flic.kr/p/uexEy4)

Day 19 of [30DayMapChallenge](https://30daymapchallenge.com/): « 5-minute map » ([previously](/#category=30DayMapChallenge)).

## Setup

```{r}
#| label: setup

library(tidyverse)
library(leaflet)
library(httr)
library(fs)
library(glue)
```

## Data

We reuse the Geonames data from [Bad map](/posts/2023/bad_map/).

```{r}
#| label: data

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"))
```

We randomly keep five places containing "minute"...

```{r}
#| label: layer

set.seed(5555)

minute <- gn |> 
  filter(str_detect(asciiname, "\\b[Mm]inutes?\\b")) |> 
  slice_sample(n = 5)
```

## Map

```{r}
#| label: fig-map
#| fig-cap: ... and here is the Five minute map
#| fig-alt: Map of 5 random places with minute in their name

minute |> 
  leaflet() |> 
  addCircleMarkers(popup = ~ glue("{name} ({asciiname})<br />
                                  <b>{country_code}</b>"),
                   label = ~ asciiname,
                   labelOptions = labelOptions(noHide = TRUE)) |> 
  addTiles(attribution = "Geonames and © OpenStreetMap, ODbL")
```

And it just took five minutes to do...