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

Leave a Reply