creating simple plots with R and OGD

read data from the ogd-portal

ogd_pop <- read.table("http://www.wien.gv.at/statistik/ogd/bezirke-geschlecht-zeitreihe.csv&quot;, header = TRUE, sep=";", skip=2, encoding="latin1")

convert the date column from a string-variable to a date type

c <- as.Date(ogd_pop$REF_DATE,"%d.%m.%Y")
merge the new c-objekt with the ogd_pop dataset
ogd_pop <- data.frame(ogd_pop,c)

rename the new column

names(ogd_pop)[8] <- "REF_DATE2"

create a new object with grouped values: sum over POP_TOTAL group by REF_DATE2

ogd_pop_hist <- aggregate(ogd_pop$POP_TOTAL, by=list(ogd_pop$REF_DATE2), sum)

rename the two columns

names(ogd_pop_hist) <- c("REF_DATE","POP_TOTAL")

and now create the plot

plot(ogd_pop_hist, type=“l“)

data from data.wien.gv.at

compare with the google-data-visualization

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