middle-earth location map

Drehorte der Mittelerde-Saga

Autor:in

Rafael Miseriaud & Christoph Pfeiffer

Veröffentlichungsdatum

15. Mai 2025

1 Mittelerde

Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen.

2 Drehorte

Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte.

Die geografische Lage der Örtlichkeiten soll gesammelt werden und zu späterem Zeitpunkt in R beispielsweise in einer Karte wiedergegeben werden. Wir wählen hierzu eine einfache Form unseres Objekts, welche uns erlaubt die drei Werte gruppiert zu speichern. Die jeweiligen 3 Werte sind:

Ortsbezeichnung oder Name
Latitude/Nord-Süd
Longitude/West-Ost

Wir verwenden hierzu in R ein data.frame

orte <- data.frame(
  name = c("Birthplace of R (University of Auckland)"),
  lat  = c(-36.8521),
  lng  = c(174.7682)
)

2.1 The Shire / Hobbiton

The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton.

hobbiton <- data.frame(
  name = c("the Shire"),
  lat = c(-37.78856537616905),
  lng = c(175.52294903345333)
)

orte <- orte |> rbind(hobbiton)

2.2 Mordor (Tongariro National Park)

Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort.

Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text.

mordor <- data.frame(
  name = c("Mordor (Tongariro National Park)"),
  lat = c(-39.2906),
  lng = c(175.5626)
)

orte <- orte |> rbind(mordor)

3 one map to rule them all

orte |>
  leaflet(elementId = "map_lotr_markers") |>
  addTiles(options = providerTileOptions(noWrap = TRUE)) |>
  addMarkers(lat = ~lat, lng = ~lng, popup = ~name) |> 
  fitBounds(
    lng1 = min(orte$lng), lat1 = min(orte$lat),
    lng2 = max(orte$lng), lat2 = max(orte$lat),
    options = list(padding = c(40,40))
  ) |> 
  addMiniMap(width = 100, height = 100)

4 Kombination mit echten Daten

Hier beispielhaft verwendet: Erdbeben über das vergangene Jahr in dieser Region.

library(readr)

erdbeben <- read_csv("data/earthquake-1y.csv")

Rows: 758 Columns: 22
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr   (8): magType, net, id, place, type, status, locationSource, magSource
dbl  (12): latitude, longitude, depth, mag, nst, gap, dmin, rms, horizontalE...
dttm  (2): time, updated

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

leaflet(elementId = "map_lotr_quake_markers") |>
  addTiles() |>
  addCircles(
    data = erdbeben,
    lat = ~latitude,
    lng = ~longitude,
    radius = sqrt(10^erdbeben$mag) * 100,
    label = glue("{erdbeben$id}")
  ) |> 
  addMarkers(
    data = orte,
    lat = ~lat,
    lng = ~lng,
    popup = ~name
  )

--- title: middle-earth location map subtitle: Drehorte der Mittelerde-Saga author: Rafael Miseriaud & Christoph Pfeiffer date: today lang: de-DE format: html: css: - layout/layout.css - layout/schriften.css toc: true toc-location: left fontsize: 120% page-layout: article number-sections: true code-links: - text: GIT-Repo href: https://git.uni-regensburg.de/daten-visualisieren-60134/quarto-einfacher-test code-line-numbers: true code-tools: true anchor-sections: true grid: body-width: 960px #bibliography: "literatur/adm.bib" #csl: literatur/apa.csl reference-location: section embed-resources: false preview-links: true crossref: fig-title: "Abbildung" fig-prefix: "Abbildung" highlight-style: zenburn #mainfont: Vollkorn --- ```{r} #| label: setup #| echo: false #install.packages("knitr") #install.packages("rmarkdown") #install.packages("leaflet") #install.packages("leaflet.extras") #install.packages(glue) library(leaflet) library(leaflet.extras) library(glue) ``` ## Mittelerde Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. Hier könnte jetzt ein bisschen Text zu Mittelerde stehen. ## Drehorte Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Hier die Drehorte. Die geografische Lage der Örtlichkeiten soll gesammelt werden und zu späterem Zeitpunkt in R beispielsweise in einer Karte wiedergegeben werden. Wir wählen hierzu eine einfache Form unseres Objekts, welche uns erlaubt die drei Werte gruppiert zu speichern. Die jeweiligen 3 Werte sind: * Ortsbezeichnung oder Name * Latitude/Nord-Süd * Longitude/West-Ost Wir verwenden hierzu in R ein data.frame ```{r} #| label: orte-dataframe #| echo: true orte <- data.frame( name = c("Birthplace of R (University of Auckland)"), lat = c(-36.8521), lng = c(174.7682) ) ``` ### The Shire / Hobbiton The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. ![the Shire](media/the-shire.jpg){.lightbox} The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. The Shire / Hobbiton, the Shire / Hobbiton. ```{r} #| label: hobbiton-dataframe #| echo: true hobbiton <- data.frame( name = c("the Shire"), lat = c(-37.78856537616905), lng = c(175.52294903345333) ) orte <- orte |> rbind(hobbiton) ``` ### Mordor (Tongariro National Park) Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. Hier etwas zum weiteren Ort. ![not mordor](media/mordor-not.jpg){.lightbox} Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. Text. ```{r} #| label: mordor-dataframe #| echo: true mordor <- data.frame( name = c("Mordor (Tongariro National Park)"), lat = c(-39.2906), lng = c(175.5626) ) orte <- orte |> rbind(mordor) ``` ## one map to rule them all ```{r} #| label: lotr-nz-map #| echo: true orte |> leaflet(elementId = "map_lotr_markers") |> addTiles(options = providerTileOptions(noWrap = TRUE)) |> addMarkers(lat = ~lat, lng = ~lng, popup = ~name) |> fitBounds( lng1 = min(orte$lng), lat1 = min(orte$lat), lng2 = max(orte$lng), lat2 = max(orte$lat), options = list(padding = c(40,40)) ) |> addMiniMap(width = 100, height = 100) ``` ## Kombination mit echten Daten Hier beispielhaft verwendet: Erdbeben über das vergangene Jahr in dieser Region. ```{r} library(readr) erdbeben <- read_csv("data/earthquake-1y.csv") ``` ```{r} leaflet(elementId = "map_lotr_quake_markers") |> addTiles() |> addCircles( data = erdbeben, lat = ~latitude, lng = ~longitude, radius = sqrt(10^erdbeben$mag) * 100, label = glue("{erdbeben$id}") ) |> addMarkers( data = orte, lat = ~lat, lng = ~lng, popup = ~name ) ```