Monthly Archives: May 2013

Balkendiagramm Ausländeranteil Schleswig-Holstein-eingefärbt-Trennlinie

Experimente im Mark Down

  source("H:/geo/publish.R")

  dat <- read.csv2("H:/geo/AI002-1.csv", skip = 5, na.strings = c(".", "-", "N", 
      "A"))
  dat.small <- dat[1:16, ]
  dat.small[which(dat.small$Stadt == "Schleswig-Holstein"), "Auslaender"]
  ## NULL

  names(dat) <- c("Jahr", "Code", "Stadt", "Einwohner_qkm", "Aenderung_10000", 
      "Auslaender", "Geborene_10000", "Gestorbene_10000", "Geb_Gest_Saldo", "Wanderungssaldo_10000")
  names(dat.small) <- c("Jahr", "Code", "Stadt", "Einwohner_qkm", "Aenderung_10000", 
      "Auslaender", "Geborene_10000", "Gestorbene_10000", "Geb_Gest_Saldo", "Wanderungssaldo_10000")
  head(dat)
  ##   Jahr Code                                        Stadt Einwohner_qkm
  ## 1 1995    1                           Schleswig-Holstein         172.8
  ## 2 1995 1001                  Flensburg, Kreisfreie Stadt        1546.4
  ## 3 1995 1002     Kiel, Landeshauptstadt, Kreisfreie Stadt        2106.1
  ## 4 1995 1003        Luebeck, Hansestadt, Kreisfreie Stadt        1013.2
  ## 5 1995 1004                Neumuenster, Kreisfreie Stadt        1146.3
  ## 6 1995 1051                      Dithmarschen, Landkreis          92.9
  ##   Aenderung_10000 Auslaender Geborene_10000 Gestorbene_10000
  ## 1            62.8        5.1          101.0            115.2
  ## 2           -75.7        7.8          109.8            120.5
  ## 3           -22.5        8.3           97.3            114.3
  ## 4             6.1        8.5           95.5            135.2
  ## 5             3.9        7.0          104.5            122.5
  ## 6            34.9        2.5          105.5            127.6
  ##   Geb_Gest_Saldo Wanderungssaldo_10000
  ## 1          -14.2                  77.0
  ## 2          -10.7                 -64.9
  ## 3          -17.0                  -5.4
  ## 4          -39.6                  45.7
  ## 5          -18.0                  21.9
  ## 6          -22.1                  57.1

  library(lattice)
  library(latticeExtra)
  plot <- barchart(dat.small$Stadt ~ dat.small$Auslaender, col = c("red", rep("blue", 
      15)), main = "Auslaenderanteil in Schleswig-Holstein nach Landkreisen", 
      xlab = "Auslaenderanteil in %", ylab = "Landkreise")

  plot + layer(panel.abline(v = dat.small[which(dat.small$Stadt == "Schleswig-Holstein"), 
      "Auslaender"]))

plot of chunk unnamed-chunk-1

Zweiter 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_Schueluelerinsg ~ dat$Bundesland, col = "#55000088", type = "s", 
    main = "Grafik", xlab = "Bundesland", ylab = "Anzahl Schueler insgesamt", 
    lwd = "5")

plot of chunk unnamed-chunk-1