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)
#geoObserver 