Tanaka – r.iresmi.net

Author

Michaël

Published

2023-11-23

Modified

2023-11-23

A photo of Mount Fuji volcano — Mount Fuji sunrise – CC-BY-NC-ND by Gilbert Sopakuwa

Day 23 of 30DayMapChallenge: « 3D » (previously).

The Tanaka contours (Tanaka 1950) are a method of displaying 3D as a succession of terraces.

library(elevatr)
library(terra)
library(tanaka)

ele <-  get_elev_raster(data.frame(x = 138.727350,
                                   y =  35.360681),
                        prj = "EPSG:4326",
                        z = 10) |> 
  as("SpatRaster")

par(mar = c(0,0,0,0))

tanaka(ele, 
       breaks = 1:14*250,
       legend.pos = "right",
       shift = 0.001,
       legend.title = "富士山\nElevation (m)",
       col = viridis::magma(n = 15),
       add = FALSE)

Map of Mount Fuji in Tanaka style — Figure 1: Mount Fuji

References

Tanaka, Kitiro. 1950. “The Relief Contour Method of Representing Topography on Maps.” Geographical Review 40 (3): 444–56. https://doi.org/10.2307/211219.

---
title: "Tanaka"
description: "Day 23 of 30DayMapChallenge"
author: "Michaël"
date: "2023-11-23T20:00: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
---

[![Mount Fuji sunrise -- CC-BY-NC-ND by Gilbert Sopakuwa](images/49094627836_45f3d5b085_c.jpg){fig-alt="A photo of Mount Fuji volcano"}](https://flic.kr/p/2hNjNqC)

Day 23 of [30DayMapChallenge](https://30daymapchallenge.com/): « 3D » ([previously](/#category=30DayMapChallenge)).

The [Tanaka contours](https://en.wikipedia.org/wiki/Terrain_cartography#Tanaka_(relief)_contours) [@Tanakareliefcontourmethod1950] are a method of displaying 3D as a succession of terraces.

```{r}
#| label: setup

library(elevatr)
library(terra)
library(tanaka)
```

```{r}
#| label: data

ele <-  get_elev_raster(data.frame(x = 138.727350,
                                   y =  35.360681),
                        prj = "EPSG:4326",
                        z = 10) |> 
  as("SpatRaster")
```

```{r}
#| label: fig-map
#| fig-cap: Mount Fuji
#| fig-alt: Map of Mount Fuji in Tanaka style
#| out-width: "100%"
#| fig-width: 7

par(mar = c(0,0,0,0))

tanaka(ele, 
       breaks = 1:14*250,
       legend.pos = "right",
       shift = 0.001,
       legend.title = "富士山\nElevation (m)",
       col = viridis::magma(n = 15),
       add = FALSE)
```

## References