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

 

Leave a Reply