Die Spur des Bösen: Philippinen-Katastrophe, Teil 1

Bild

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&#8220;
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)

Advertisements

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s