Wohnen <-
structure(list(Stadt = structure(c(17L, 18L, 7L, 12L, 11L, 13L, 
22L, 32L, 6L, 21L, 4L, 5L, 9L, 14L, 31L, 30L, 26L, 27L, 29L, 
2L, 3L, 10L, 23L, 1L, 8L, 15L, 16L, 19L, 20L, 24L, 25L, 28L), .Label = c("Aachen", 
"Augsburg", "Berlin", "Bielefeld", "Bochum", "Bonn", "Bremen", 
"Chemnitz", "Dortmund", "Dresden", "Duisburg", "Duesseldorf", 
"Essen", "Frankfurt", "Freiburg", "Halle", "Hamburg", "Hannover", 
"Karlsruhe", "Kiel", "Koeln", "Krefeld", "Leipzig", "Luebeck", 
"Magdeburg", "Mannheim", "Muenchen", "Muenster", "Nuernberg", "Stuttgart", 
"Wiesbaden", "Wuppertal"), class = "factor"), Preisentwicklung = c(6.7, 
2, 1.4, 5, -0.2, -1.2, -1, -1.4, 2.5, 2.6, 1.6, 0, -0.7, 4.7, 
3, 3.7, 1.2, 7, 4.4, 4.2, 5.9, 4, 1.6, 3.4, -2.3, 6.9, 1.7, 3.4, 
3.1, 1.7, 1.1, 4.4), Bevoelkerungsentwicklung = c(0.5, 0.5, 0.1, 
0.5, -0.4, -0.3, -0.2, -0.4, 0.9, 0.6, 0, -0.4, -0.2, 1.3, 0.3, 
0.8, 0.5, 1.3, 0.5, 0.7, 0.8, 1.1, 0.8, 0.2, -0.1, 1.2, -0.1, 
0.9, 0.6, 0, 0.2, 1.6)), .Names = c("Stadt", "Preisentwicklung", 
"Bevoelkerungsentwicklung"), class = "data.frame", row.names = c(NA, 
-32L))