Die Visualisierung des Taifun-Verlaufs auf den Philippinen auf einer Karte mit “R” und “”googlevis” visualisieren, ist mit wenig Aufwand möglich, beschrieben unter r-bloggers, siehe hier:

http://www.r-bloggers.com/googlevis-0-4-7-with-rstudio-integration-on-cran/

Hoffen wir mal, dass man diese Art, Karten zu erstellen auch für schönere Anlässe nutzen kann!

Hier direkt der Code (vorher die Bibliotheken “XML” und “googlevis” installieren):

library(XML)
url <- “http://www.gdacs.org/Cyclones/report.aspx?eventid=41058&episodeid=28&eventtype=TC”
dat <- readHTMLTable(readLines(url), which=5)
dat$latlon <- dat[,8]
levels(dat$latlon) <- sapply(
strsplit(levels(dat[,8]), “,\n “),
function(x) paste(x[2], x[1], sep=”:”)
)
dat$Category <- factor(dat$Category, levels=levels(dat$Category)[c(6,7,1:5)],
ordered=TRUE)
dat$cat <- as.numeric(dat$Category)
dat$Gust_kmh <- dat[,6]
levels(dat$Gust_kmh) <- sapply(strsplit(levels(dat[,6]), “km”),
function(x) gsub(” “, “”,x[1]))
dat$Gust_kmh <- as.numeric(as.character(dat$Gust_kmh))

library(googleVis)
M <- gvisGeoChart(dat, “latlon”, sizevar=”cat”,
colorvar=”Gust_kmh”,
options=list(region=’035′,
backgroundColor=”blue”,
datalessRegionColor=”grey”))
plot(M)