Monthly Archives: May 2013

Erster Plot

dat <- read.csv2("H:/R/win-library/2.15/codes/datensatz_schulen_all.csv", skip = 8)
names(dat) <- c("Jahr", "Zahl_Bundesland", "Bundesland", "Schulform", "Anzahl_Schulen", 
    "Anzahl_Schueluelerinsg", "Anzahl_Schueler_weibl", "Auslaender", "klasse_7", 
    "Klasse_11")
source("H:/R/win-library/2.15/codes/publish.R")
head(dat)
##   Jahr Zahl_Bundesland         Bundesland
## 1 1995               1 Schleswig-Holstein
## 2 1995               1 Schleswig-Holstein
## 3 1995               1 Schleswig-Holstein
## 4 1995               1 Schleswig-Holstein
## 5 1995               1 Schleswig-Holstein
## 6 1995               1 Schleswig-Holstein
##                                 Schulform Anzahl_Schulen
## 1                         Vorschulbereich            351
## 2                            Grundschulen            652
## 3 Schulartunabhaengige Orientierungsstufe              0
## 4                            Hauptschulen            312
## 5 Schularten mit mehreren Bildungsgaengen              0
## 6                             Realschulen            171
##   Anzahl_Schueluelerinsg Anzahl_Schueler_weibl Auslaender klasse_7
## 1                   5861                  2566        496        x
## 2                 114696                 56136       6513        x
## 3                      0                     0          0        x
## 4                  39363                 17492       3747     8072
## 5                      0                     0          0        0
## 6                  51359                 26218       1994     8797
##   Klasse_11
## 1         x
## 2         x
## 3         x
## 4         x
## 5         x
## 6         x
library(lattice)
xyplot(dat$Anzahl_Schulen ~ dat$Anzahl_Schueluelerinsg, col = "blue", type = "l")

plot of chunk unnamed-chunk-1

Erste Schritte & Hausuafgabe 23.05.2013

Ein erstes Beispiel von R markdown

dat <- read.csv2('/media/windows/tappelhans/uni/marburg/lehre/2013/ss/Sp-VpPh/data/AI002-1.csv', 
                 skip = 5, nrow = 30)

names(dat) <- c('jahr', 'code', 'stadt', 'einwohner_qkm', 'aenderung_10000', 
                'auslaender', 'lebendgeborene_10000', 'gestorbene_10000', 
                'geb_gest_saldo', 'wanderungssaldo_10000')

head(dat)
##   jahr code                                        stadt einwohner_qkm
## 1 2011    1                           Schleswig-Holstein         179.6
## 2 2011 1001                  Flensburg, Kreisfreie Stadt        1574.9
## 3 2011 1002     Kiel, Landeshauptstadt, Kreisfreie Stadt        2040.0
## 4 2011 1003      L\xfcbeck, Hansestadt, Kreisfreie Stadt         983.0
## 5 2011 1004              Neum\xfcnster, Kreisfreie Stadt        1074.1
## 6 2011 1051                      Dithmarschen, Landkreis          93.9
##   aenderung_10000 auslaender lebendgeborene_10000 gestorbene_10000
## 1            11.9        5.3                 75.2            109.3
## 2            66.3        7.8                 85.9            107.1
## 3           104.2        8.9                 91.7             96.5
## 4            16.0        7.1                 79.7            128.2
## 5            14.3        6.4                 78.8            119.7
## 6           -54.9        3.6                 70.5            127.4
##   geb_gest_saldo wanderungssaldo_10000
## 1          -34.0                  45.9
## 2          -21.3                  87.6
## 3           -4.8                 109.1
## 4          -48.5                  64.5
## 5          -41.0                  55.3
## 6          -57.0                   2.0

plot(x = dat$einwohner_qkm, y = dat$aenderung_10000)

plot of chunk unnamed-chunk-1


library(lattice)
xyplot(dat$aenderung_10000 ~ dat$einwohner_qkm, col = 'red')

plot of chunk unnamed-chunk-1

Hausufgabe:

Plotte irgendeine Variable Deines Datensatzes in irgendeiner Weise (Google ist dein Freund) und publiziere diesen auf unserem blog.

Nicht vergessen: um die rmd Datei auf den blog zu publizieren, müsst ihr

  1. die Funktion publish.R laden mit source(".../.../.../publish.R")
  2. publish ausführen:
    • publish(pwd = "password",
      rmd.file = "/.../.../.../xxx.Rmd",
      post.title = "Irgend ein Titel",
      post.cats = "VP-SpPh-2013-Sommer")

Viel Spaß!