Skip to content

Instantly share code, notes, and snippets.

@stefc
Created April 26, 2016 09:50
Show Gist options
  • Save stefc/5585417383b461dd8fcf5615e4b24e32 to your computer and use it in GitHub Desktop.
Save stefc/5585417383b461dd8fcf5615e4b24e32 to your computer and use it in GitHub Desktop.
Bundesländer Geo-Chart
library(googleVis)
# Bundesländer
countries <- factor(c(
"Schleswig-Holstein","Hamburg","Niedersachsen","Bremen",
"Nordrhein-Westfalen","Hessen","Rheinland-Pfalz",
"Baden-Württemberg","Bayern","Saarland","Berlin","Brandenburg",
"Mecklenburg-Vorpommern","Sachsen","Sachsen-Anhalt",
"Thüringen"))
# Regionen
map.codes <- factor(c(
"DE-SH","DE-HH","DE-NI","DE-HB",
"DE-NW","DE-HE","DE-RP",
"DE-BW","DE-BY","DE-SL","DE-BE","DE-BB",
"DE-MV","DE-SN","DE-ST",
"DE-TH"))
# Beträge
betrag <- c(219, 658, 368, 29, 768, 770, 133, 899, 1181, 11, 898, 100, 87, 236, 129, 74)
# Data.Frame daraus
report <- data.frame(Bundesland = countries, Betrag = betrag, Region = map.codes)
# http://stackoverflow.com/questions/34691798/heat-map-of-germany-using-spplot
# Bundesländer Geo anzeigen mit GoogleChart API
# http://decastillo.github.io/googleVis_Tutorial/#1
g <- gvisGeoChart(report, locationvar = "Bundesland",
colorvar = "Betrag",
options = list(
region = "DE", dataMode = "regions",
resolution = "provinces", height = 1000, width = 800))
plot(g)
@stefc
Copy link
Author

stefc commented Apr 26, 2016

Der erzeugte Code für Google Charting hat irgendwie Probleme mit den Umlauten in Thüringen und Baden-Würtenberg.
Ich weiss nicht ob es an Google API oder dem R Package oder der Übergabe durch mich liegt.

Des weiteren würde ich gerne die umliegenden Länder z.B. Dänemark garnicht in der Karte haben, aber das geht anscheinend nicht.

@mages
Copy link

mages commented Apr 26, 2016

Ich kann die Probleme mit Thüringen und Baden Würtenberg nicht nachvollziehen. Es gibt jedoch Probleme mit Brandenburg. Als Alternative kannst du auch die lovationvar="Region" setzten. Siehe auch die Vignette zum spacetime Paket, welches ebenso auf dieses Problem eingeht: https://cran.r-project.org/web/packages/spacetime/vignettes/stgvis.html

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment