Vorwort zu working directory, Daten und Packages

Die Daten für dieses Tutorial werden über Github zur Verfügung gestellt. Wenn Sie den Code mit eigenen Daten reproduzieren wollten, ersetzen Sie die URL mit ihrem lokalen Dateipfad.

Definieren Sie in diesem Fall Ihren “working directory”, ihr Arbeitsverzeichnis.

setwd("YOUR/FILEPATH") 
# this will not work. if you want to use it, define a path on your computer

Dabei handelt es sich um den Dateispeicherort, wo Ihre Daten und Skripte gespeichert sind. Weitere Infos finden Sie hier.

Der Code für das Speichern von Daten und Ergebnissen ist in diesen Tutorials deaktiviert. Ersetzen Sie zum Speichern “YOUR/FILEPATH” mit ihrem gewünschten Dateipfad.

Wir haben den Code zum Laden von packages so geschrieben, dass diese installiert werden, sofern diees noch nicht auf Ihrem PC abgespeichert sind. Anschließend werden diese direkt geladen. Sofern nicht anderweitig spezifiziert werden die packages an einer standardmäßigen Stelle auf Ihrem Computer abgespeichert.

Verwendung von Basemaps

Die Leaflet Bibliothek unterstützt als Hintergrundkarten Web Maps über so genannte map tiles.

zunächst wird das Paket von leaflet geladen

if (!require(leaflet)){install.packages("leaflet"); library(leaflet)}

Standardmäßig werden die Kacheln von OpenStreetMap verwendet. Dazu wird die Funktion addTiles() ohne weitere Argumente ausgeführt.

m <- leaflet() %>% setView(lng=7.84505099, lat=47.9934184, zoom = 12)
m %>% addTiles()

#Third-Party Tiles Namen
names(providers)

m %>% addProviderTiles(providers$Stamen.Toner)

#m %>% addProviderTiles(providers$OpenWeatherMap.PressureContour)
m %>% addProviderTiles(providers$CartoDB.Positron)

m %>% addProviderTiles(providers$Esri.NatGeoWorldMap)

m %>% addProviderTiles(providers$Esri.WorldImagery)

leaflet() %>% addTiles() %>% setView(-93.65, 42.0285, zoom = 4) %>%
  addWMSTiles(
    "http://mesonet.agron.iastate.edu/cgi-bin/wms/nexrad/n0r.cgi",
    layers = "nexrad-n0r-900913", #the layer name and represents the "current" composite base reflectivity 
    options = WMSTileOptions(format = "image/png", transparent = TRUE),
    attribution = "Weather data © 2012 IEM Nexrad") # Quellenangaben sind wichtig!!!

#data: https://mesonet.agron.iastate.edu/

m %>% addProviderTiles(providers$MtbMap) %>% # Mountainbikekarte von OSM
  addProviderTiles(providers$Stamen.TonerLines,
    options = providerTileOptions(opacity = 0.35)) %>% #Lines von Tonerkarte
  addProviderTiles(providers$Stamen.TonerLabels) # labels von Toner Karte

Marker

Die Marker sind bereits aus dem Tutorial “Leaflet Intro” bekannt. Marker sind nützlich um Punkte auf einer Karte anzuzeigen. Markerpositionen werden in Lat/Lon ausgedrückt und können entweder als Symbole oder als Kreise dargestellt werden.Jetzt sollen sie weiter angepasst werden.

urlfile <- "https://raw.githubusercontent.com/RafHo/teaching/master/geodaten_kommunizieren/datasource/lng_lat1.txt" # get url from github repositury

df <- read.csv(urlfile, sep = ",", header = TRUE, encoding = "UTF-8")
head(df)

##                    position latitude longitude           timestamp
## 1    Freiburg, Tullastrasse 48.02543  7.847819 2017-01-13 08:00:00
## 2          Freiburg, Vauban 47.97601  7.824701 2017-01-13 08:00:00
## 3 Freiburg, Sundgauallee 30 48.00735  7.818589 2017-01-13 08:00:00
## 4          Freiburg, Vauban 47.97601  7.824701 2017-01-13 08:00:00
## 5 Freiburg, Barbarastraße 8 48.00373  7.839775 2017-01-13 08:00:00
## 6      Freiburg, Okenstraße 48.01042  7.858387 2017-01-13 08:00:00
##                node_label
## 1 shortterm precipitation
## 2             cloud cover
## 3       temperature level
## 4 shortterm precipitation
## 5 shortterm precipitation
## 6             cloud cover

leaflet(df) %>%
  addTiles() %>% 
  addMarkers(~longitude, ~latitude, popup = ~as.character(position), label = ~as.character(position))# as.character, damit der Text als "String" erkannt wird

# Angabe von Lat/Lon optional
# notice how arguments that vary by group use a tilde, ~, in front of the argument

# Ggf. auf Urheberrechte achten!

sc_icon <- makeIcon(
  iconUrl = "https://raw.githubusercontent.com/RafHo/teaching/master/geodaten_kommunizieren/datasource/sc_icon.png",
  iconWidth = 38, iconHeight = 95,
  iconAnchorX = 22, iconAnchorY = 94#,
  #shadowUrl = "T:/GK2019/work/admin/datasource/sc_icon.png",
  #shadowWidth = 50, shadowHeight = 64,
  #shadowAnchorX = 4, shadowAnchorY = 62
)
# Schatten hier nicht sehr schön, deshalb weggelassen

leaflet(df) %>% 
  addTiles() %>%
  addMarkers(icon = sc_icon)

df$random_numbers <- c(1:41) # erstelle neue Spalte mit den zahlen 1 bis 466

# Bedingung erstellen
# Klassengrenzen sind willkürlich
getColor <- function(df) {
  sapply(df$random_numbers, function(random_numbers) {
  if(random_numbers <= 15) {
    "blue"
    } else {
    "red"
  } })
}

# awesome icons erstellen
icons <- awesomeIcons(
  icon = 'ios-close',
  iconColor = 'black',
  library = 'ion',
  markerColor = getColor(df)
)

leaflet(df) %>% 
  addTiles() %>%
  addAwesomeMarkers(icon=icons, label=~as.character(position))

leaflet(df) %>% 
  addProviderTiles(providers$Esri.WorldImagery)%>% 
  addCircleMarkers() # standard

# oder aber individuell anpassen
# Create a palette that maps factor levels to colors
pal <- colorFactor(c("navy", "red"), domain = c("Freiburg, Herderbau", "Freiburg, Engelbergerstrasse 41"))

leaflet(df)  %>% 
  addProviderTiles(providers$Esri.WorldImagery)%>%
  addCircleMarkers(
    radius = ~ifelse(position == "Freiburg, Herderbau", 6, 10),
    color = ~pal(position),
    stroke = FALSE, fillOpacity = 0.5)

Popups

Popups sind kleine Boxen mit Text im HTML Format, die auf einen bestimmten Punkt auf der Karte verweisen. Hier finden Sie zum Editieren solcher HTML-Chunks eine Übersicht nützlicher HTML-Befehle)

Verwenden Sie die Funktion addPopups(), um der Karte ein eigenständiges Popup hinzuzufügen.

# link der Geographie Freiburg
# Beispiel website
content <- paste(sep = "<br/>",
                 "<b><a href='http://www.geographie.uni-freiburg.de/de'",
                 "Schreiberstraße 20",
                 "79098 Freiburg, Germany")

leaflet() %>% addTiles() %>%
  addPopups(lng=7.84505099, lat=47.9934184, content,
            options = popupOptions(closeButton = FALSE)
  )

# Beispiel link und Text
content2 <- paste(sep = "<br/>",
                 "<b><a href='http://www.geographie.uni-freiburg.de/de'>Geographisches Institut</a></b>",
                 "Schreiberstraße 20",
                 "79098 Freiburg, Germany")

leaflet() %>% addTiles() %>%
  addPopups(lng=7.84505099, lat=47.9934184, content2,
            options = popupOptions(closeButton = FALSE))

Häufig werden Popups so verwendet, dass sie durch anklicken eine Textbox öffnen.

# Für das beispiel werden einige Punkte in Freiburg erstellt.. man könnte dies auch in excel erstellen und einladen...
df2 <- read.csv(textConnection(
  "Name,Lat,Long
  Flugplatz,48.0217347,7.83498052
  Herderbau,48.00334395,7.85343216
  Mensa Rempartstr.,47.99274695,7.84643223
  Schwarzwaldstadion, 47.9890573,7.89304194
  Mundenhof, 48.0151514,7.77805132
  Seepark,48.0104604,7.82068344
  Green City Hotel Vauban, 47.97424835,7.82807286"
))

# alternativ
my_points.df <-
  data.frame(name = c("Flugplatz", "Herderbau", "Mensa Rempartstr.", "Schwarzwaldstadion", "Mundenhof", "Seepark", "Green City Hotel Vauban"),
             lon = c(7.83498052, 7.85343216, 7.84643223, 7.89304194,7.77805132, 7.82068344, 7.82807286), 
             lat = c(48.0217347, 48.00334395, 47.99274695, 47.9890573, 48.0151514, 48.0104604, 47.97424835))


# lädt noch das folgende Paket
if (!require(htmltools)){install.packages("htmltools"); library(htmltools)}

leaflet(my_points.df) %>% addTiles() %>%
  addMarkers(~lon, ~lat, popup = ~htmlEscape(name))

Im vorhergehenden Beispiel wurde htmltools::htmlEscape verwendet, um alle Zeichen im Namen zu “bereinigen”, die als HTML interpretiert werden können. Obwohl es für dieses Beispiel nicht notwendig war (da die Restaurantnamen kein HTML-Markup enthielten), ist dies in jeder Situation wichtig, in der die Daten aus einer Datei oder Datenbank oder vom Benutzer stammen können.

Zusätzlich zu den Markern können Sie auch Popups auf Formen wie Linien, Kreise und andere Polygone hinzufügen.

Labels

Ein Label ist ein textueller oder HTML-Inhalt, der an Marker und Formen angehängt werden kann, um immer beim Überfahren mit der Maus angezeigt zu werden. Im Gegensatz zu Popups müssen Sie nicht auf einen Marker/Polygon klicken, um das Label anzuzeigen.

leaflet(my_points.df) %>% addTiles() %>%
  addMarkers(~lon, ~lat, label = ~htmlEscape(name))

Markerlabels können mit dem Argument labelOptions der Funktion addMarkers angepasst werden. Das Argument labelOptions kann mit der Funktion labelOptions() gefüllt werden. Wenn noHide = FALSE ist (Standard), wird das Label nur angezeigt, wenn Sie mit der Maus über den Marker fahren; wenn noHide = TRUE gesetzt ist, wird das Label immer angezeigt.

Zusätzlich kann noch der Text des labels angepasst werden.

leaflet() %>% addTiles() %>% setView(-118.456554, 34.09, 13) %>%
  addMarkers(
    lng = -118.456554, lat = 34.105,
    label = "Default Label",
    labelOptions = labelOptions(noHide = T)) %>%
  addMarkers(
    lng = -118.456554, lat = 34.095,
    label = "Label w/o surrounding box",
    labelOptions = labelOptions(noHide = T, textOnly = TRUE)) %>%
  addMarkers(
    lng = -118.456554, lat = 34.085,
    label = "label textsize 15px",
    labelOptions = labelOptions(noHide = T, textsize = "15px")) %>%
  addMarkers(
    lng = -118.456554, lat = 34.075,
    label = "Label custom CSS style",
    labelOptions = labelOptions(noHide = T, direction = "bottom",
                                style = list(
                                  "color" = "red",
                                  "font-family" = "serif",
                                  "font-style" = "italic",
                                  "box-shadow" = "3px 3px rgba(0,0,0,0.25)",
                                  "font-size" = "12px",
                                  "border-color" = "rgba(0,0,0,0.5)"
                                )))

#You can create labels without the accompanying markers 
#using the addLabelOnlyMarkers function.

Referenzen (Auswahl)

https://mesonet.agron.iastate.edu/

https://rstudio.github.io/leaflet/basemaps.html

http://leaflet-extras.github.io/leaflet-providers/preview/index.html