GNU R: Anwendungsbeispiele
In diesem Anhang finden sich Anwendungsbeispiele und -datensätze, die zum Testen der beschriebenen R-Funktionen dienen
Datenbeispiele
BearbeitenBeispiel 1
BearbeitenGeschlecht Alter Gewicht Groesse m 28 80 170 w 18 55 174 w 25 74 183 m 29 101 190 m 21 84 185 w 19 74 178 w 27 65 169 w 26 56 163 m 31 88 189 m 22 78 184
R-Befehl zum Erzeugen dieser Tabelle:
w <-factor(c("m", "w", "w", "m", "m", "w", "w", "w", "m", "m")) x <-c(28, 18, 25, 29, 21, 19, 27, 26, 31, 22) y <-c(80, 55, 74, 101, 84, 74, 65, 56, 88, 78) z <-c(170, 174, 183, 190, 185, 178, 169, 163, 189, 184) bsp1 <-data.frame(w, x, y, z)colnames(bsp1) <- c("Geschlecht", "Alter", "Gewicht", "Groesse")rm(w, x, y, z) bsp1
Beispiel 2
BearbeitenGeschlecht Note m 2 w 1 m 5 m 3 w 4 m 3 w 2 w 2 w 1 m 3 m 1 w 4 m 2 w 1 m 4 m 3 w 5 m 2 w 1 w 2
R-Befehl zum Erzeugen dieser Tabelle:
x <-factor(c("m", "w", "m", "m", "w", "m", "w", "w", "w", "m", "m", "w", "m", "w", "m", "m", "w", "m", "w", "w")) y <-c(2,1,5,3,4,3,2,2,1,3,1,4,2,1,4,3,5,2,1,2) bsp2 <-data.frame(x,y)colnames(bsp2) <- c("Geschlecht", "Note")rm(x,y) bsp2
Beispiel 3
BearbeitenErfolg Abschlussnote 1 0 5 2 1 3 3 1 2 4 0 4 5 1 1 6 0 6 7 1 3 8 1 2 9 0 4 10 1 3 11 0 6 12 0 5 13 0 4 14 1 3
R-Befehl zum Erzeugen dieser Tabelle:
a <-factor(c(0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1)) b <-c(5, 3, 2, 4, 1, 6, 3, 2, 4, 3, 6, 5, 4, 3) bsp3 <-data.frame(a,b)colnames(bsp3) <- c("Erfolg", "Abschlussnote")rm(a,b) bsp3
Beispiel 4
BearbeitenName Geschlecht Lieblingsfarbe Einkommen 1 Hans maennlich gruen 1233 2 Caro weiblich blau 800 3 Lars intersexuell gelb 2400 4 Ines weiblich schwarz 4000 5 Samira weiblich gelb 899 6 Peter maennlich gruen 1100 7 Sarah weiblich blau 1900
R-Befehl zum Erzeugen dieser Tabelle:
w <-c("Hans","Caro","Lars","Ines","Samira","Peter","Sarah") x <-factor(c("maennlich","weiblich","intersexuell","weiblich","weiblich","maennlich","weiblich")) y <-factor(c("gruen","blau","gelb","schwarz","gelb","gruen","blau")) z <-c(1233,800,2400,4000,899,1100,1900) bsp4 <-data.frame(w,x,y,z)colnames(bsp4) <- c("Name", "Geschlecht", "Lieblingsfarbe", "Einkommen")rm(w,x,y,z) bsp4
Beispiel 5
BearbeitenLebenstag Gewicht 1 1 3180 2 3 2960 3 6 3220 4 11 3270 5 12 3350 6 15 3410 7 19 3700 8 23 3830 9 28 4090 10 33 4310 11 35 4360 12 39 4520 13 47 4650 14 60 5310 15 66 5490 16 73 5540
R-Befehl zum Erzeugen dieser Tabelle:
x <-c(1, 3, 6, 11, 12, 15, 19, 23, 28, 33, 35, 39, 47, 60, 66, 73) y <-c(3180, 2960, 3220, 3270, 3350, 3410, 3700, 3830, 4090, 4310, 4360, 4520, 4650, 5310, 5490, 5540) bsp5 <-data.frame(x,y)colnames(bsp5) <- c("Lebenstag", "Gewicht")rm(x,y)
Beispiel 6
BearbeitenPerson Date Age Sex DimBody DimEmotion DimSelf DimFamily DimFriends DimSchool TotalScore 1 190053 2008-08-20 15 f 75.00 85.00 65.00 85.00 70.00 90.00 78.33 2 190050 2008-01-24 16 m 80.00 80.00 75.00 65.00 70.00 60.00 71.67 3 190052 2008-02-05 11 m 70.00 65.00 35.00 80.00 45.00 95.00 65.00 4 190002 2006-12-07 11 f 85.00 90.00 85.00 70.00 80.00 55.00 77.50 5 190002 2008-01-31 13 f 75.00 90.00 75.00 55.00 85.00 70.00 75.00 6 190005 2007-02-22 12 m 65.00 90.00 70.00 95.00 75.00 65.00 76.67 7 190035 2007-05-22 14 f 60.00 85.00 65.00 75.00 80.00 55.00 70.00 8 190021 2006-08-30 16 f 55.00 50.00 50.00 30.00 55.00 55.00 49.17 9 190014 2006-12-07 12 m 75.00 90.00 40.00 85.00 75.00 60.00 70.83 10 190029 2006-11-21 13 f 55.00 70.00 60.00 65.00 85.00 55.00 65.00 11 190025 2006-12-07 12 f 100.00 95.00 95.00 100.00 90.00 85.00 94.17 12 190025 2007-02-20 13 f 85.00 95.00 85.00 85.00 95.00 75.00 86.67 13 190036 2007-06-05 12 m 55.00 75.00 80.00 85.00 90.00 75.00 76.67 14 190031 2007-02-13 13 f 60.00 80.00 60.00 80.00 90.00 55.00 70.83 15 190034 2007-05-19 16 f 50.00 55.00 45.00 80.00 70.00 30.00 55.00 16 190044 2007-10-23 13 m 75.00 65.00 60.00 85.00 60.00 75.00 70.00 17 190041 2007-08-16 16 f 90.00 90.00 90.00 100.00 70.00 60.00 83.33 18 190046 2007-11-15 14 f 70.00 75.00 90.00 70.00 80.00 75.00 76.67 19 190034 2007-07-19 16 f 50.00 60.00 45.00 90.00 75.00 55.00 62.50 20 191028 2006-10-26 7 f 66.67 100.00 100.00 66.67 50.00 83.33 77.78 21 191035 2007-05-22 6 f 66.67 83.33 66.67 100.00 100.00 100.00 86.11 22 191037 2007-05-31 6 m 66.67 83.33 100.00 83.33 66.67 83.33 80.56 23 191036 2007-06-19 6 f 100.00 83.33 100.00 83.33 83.33 66.67 86.11 24 192052 2008-02-05 8 f 80.00 60.00 60.00 80.00 75.00 65.00 70.00 25 190028 2006-10-26 9 f 65.00 65.00 60.00 80.00 75.00 75.00 70.00 26 190028 2008-02-15 11 f 85.00 90.00 70.00 95.00 90.00 90.00 86.67 27 191028 2008-02-16 9 f 80.00 95.00 100.00 95.00 80.00 85.00 89.17 28 190039 2007-05-29 9 f 70.00 90.00 80.00 95.00 90.00 95.00 86.67 29 190037 2007-05-31 8 m 90.00 75.00 60.00 100.00 90.00 80.00 82.50 30 191030 2007-02-22 9 f 80.00 75.00 60.00 85.00 85.00 60.00 74.17 31 192030 2007-02-22 8 m 85.00 95.00 60.00 85.00 60.00 80.00 77.50 32 190030 2007-02-22 11 f 70.00 90.00 60.00 65.00 80.00 55.00 70.00 33 190022 2006-05-07 10 m 95.00 95.00 80.00 85.00 50.00 65.00 78.33 34 190048 2008-01-08 11 f 65.00 75.00 60.00 85.00 70.00 60.00 69.17 35 190017 2007-12-18 8 f 40.00 80.00 70.00 60.00 55.00 75.00 63.33 36 190015 2006-11-28 12 f 60.00 60.00 60.00 75.00 90.00 80.00 70.83 37 191002 2008-01-31 9 f 80.00 100.00 90.00 70.00 95.00 65.00 83.33 38 271050 2008-01-31 13 m 85.00 65.00 70.00 70.00 70.00 70.00 71.67 39 270050 2008-01-31 16 m 55.00 60.00 60.00 55.00 70.00 50.00 58.33 40 270052 2008-02-05 11 m 40.00 45.00 55.00 65.00 40.00 65.00 51.67 41 271052 2008-02-05 10 m 85.00 45.00 40.00 70.00 50.00 55.00 57.50 42 272052 2008-02-05 8 f 60.00 55.00 70.00 70.00 80.00 75.00 68.33 43 271002 2007-02-22 8 f 80.00 65.00 65.00 75.00 40.00 60.00 64.17 44 271002 2007-01-26 8 f 85.00 80.00 80.00 75.00 80.00 90.00 81.67 45 270002 2007-01-26 12 f 75.00 85.00 90.00 70.00 95.00 75.00 81.67 46 271002 2008-01-31 9 f 60.00 60.00 65.00 60.00 70.00 75.00 65.00 47 270002 2008-01-31 13 f 80.00 70.00 90.00 70.00 85.00 80.00 79.17 48 270005 2007-01-23 12 m 65.00 45.00 45.00 45.00 50.00 60.00 51.67 49 270005 2007-01-23 12 m 65.00 55.00 45.00 35.00 55.00 55.00 51.67 50 270010 2007-05-22 9 f 70.00 65.00 75.00 90.00 50.00 95.00 74.17 51 270014 2007-04-18 13 m 75.00 65.00 50.00 65.00 30.00 65.00 58.33 52 270022 2006-12-07 10 m 85.00 90.00 75.00 100.00 55.00 70.00 79.17 53 270025 2006-11-30 12 f 100.00 80.00 80.00 85.00 95.00 95.00 89.17 54 270025 2007-02-20 13 f 90.00 95.00 80.00 80.00 95.00 95.00 89.17 55 270028 2006-10-26 9 f 55.00 65.00 60.00 45.00 50.00 35.00 51.67 56 270028 2008-02-16 11 f 55.00 45.00 50.00 50.00 50.00 55.00 50.83 57 270029 2006-11-21 13 f 70.00 50.00 70.00 50.00 85.00 80.00 67.50 58 271030 2006-12-14 9 f 35.00 65.00 60.00 55.00 75.00 45.00 55.83 59 270030 2006-12-14 11 f 60.00 55.00 35.00 60.00 60.00 55.00 54.17 60 270035 2007-05-22 14 f 60.00 60.00 55.00 65.00 90.00 55.00 64.17 61 270036 2007-06-05 12 m 80.00 60.00 65.00 80.00 70.00 85.00 73.33 62 270036 2007-06-19 12 m 60.00 55.00 75.00 75.00 65.00 85.00 69.17 63 270037 2007-05-31 8 m 80.00 90.00 75.00 85.00 95.00 85.00 85.00 64 270039 2007-05-29 9 f 45.00 80.00 70.00 90.00 95.00 85.00 77.50 65 270041 2007-08-16 16 f 85.00 95.00 75.00 75.00 90.00 70.00 81.67 66 270044 2007-10-23 13 m 60.00 65.00 55.00 75.00 55.00 50.00 60.00 67 270046 2007-11-15 14 f 60.00 70.00 65.00 80.00 60.00 80.00 69.17 68 270048 2008-01-08 11 f 60.00 60.00 55.00 80.00 75.00 50.00 63.33 69 270002 2007-02-22 12 f 70.00 75.00 65.00 55.00 75.00 60.00 66.67 70 270004 2006-11-25 14 f 90.00 100.00 100.00 95.00 85.00 100.00 95.00 71 270017 2007-12-13 8 f 60.00 80.00 65.00 85.00 50.00 80.00 70.00 72 271028 2008-02-16 9 f 95.00 75.00 75.00 70.00 80.00 75.00 78.33 73 270015 2006-11-28 12 f 85.00 90.00 85.00 75.00 85.00 95.00 85.83 74 271036 2007-06-19 6 f 85.00 85.00 80.00 60.00 95.00 80.00 80.83 75 270045 2007-10-23 7 m 75.00 80.00 55.00 70.00 60.00 75.00 69.17 76 270040 2007-08-07 5 f 90.00 70.00 75.00 75.00 65.00 70.00 74.17 77 271037 2007-05-31 6 m 80.00 90.00 80.00 95.00 80.00 55.00 80.00 78 271035 2007-05-22 7 f 80.00 100.00 85.00 80.00 75.00 75.00 82.50 79 271010 2007-05-22 6 m 100.00 65.00 70.00 90.00 75.00 80.00 80.00 80 270033 2007-03-22 4 m 80.00 80.00 90.00 75.00 75.00 65.00 77.50 81 271036 2007-06-05 7 f 60.00 80.00 70.00 85.00 85.00 65.00 74.17 82 271028 2006-10-26 7 f 95.00 85.00 80.00 90.00 70.00 65.00 80.83
R-Befehl zur Erzeugung des Datensatzes:
bsp6 <- structure(list(Person = c("190053", "190050", "190052", "190002", "190002", "190005",
"190035", "190021", "190014", "190029", "190025", "190025", "190036", "190031", "190034",
"190044", "190041", "190046", "190034", "191028", "191035", "191037", "191036", "192052",
"190028", "190028", "191028", "190039", "190037", "191030", "192030", "190030", "190022",
"190048", "190017", "190015", "191002", "271050", "270050", "270052", "271052", "272052",
"271002", "271002", "270002", "271002", "270002", "270005", "270005", "270010", "270014",
"270022", "270025", "270025", "270028", "270028", "270029", "271030", "270030", "270035",
"270036", "270036", "270037", "270039", "270041", "270044", "270046", "270048", "270002",
"270004", "270017", "271028", "270015", "271036", "270045", "270040", "271037", "271035",
"271010", "270033", "271036", "271028"), Date = structure(c(1219183200, 1201129200,
1202166000, 1165446000, 1201734000, 1172098800, 1179784800, 1156888800, 1165446000,
1164063600, 1165446000, 1171926000, 1180994400, 1171321200, 1179525600, 1193090400,
1187215200, 1195081200, 1184796000, 1161813600, 1179784800, 1180562400, 1182204000,
1202166000, 1161813600, 1203030000, 1203116400, 1180389600, 1180562400, 1172098800,
1172098800, 1172098800, 1146952800, 1199746800, 1197932400, 1164668400, 1201734000,
1201734000, 1201734000, 1202166000, 1202166000, 1202166000, 1172098800, 1169766000,
1169766000, 1201734000, 1201734000, 1169506800, 1169506800, 1179784800, 1176847200,
1165446000, 1164841200, 1171926000, 1161813600, 1203116400, 1164063600, 1166050800,
1166050800, 1179784800, 1180994400, 1182204000, 1180562400, 1180389600, 1187215200,
1193090400, 1195081200, 1199746800, 1172098800, 1164409200, 1197500400, 1203116400,
1164668400, 1182204000, 1193090400, 1186437600, 1180562400, 1179784800, 1179784800,
1174518000, 1180994400, 1161813600), class = c("POSIXt", "POSIXct" ), tzone = ""),
Age = c(15, 16, 11, 11, 13, 12, 14, 16, 12, 13, 12, 13, 12, 13, 16, 13, 16, 14, 16, 7, 6,
6, 6, 8, 9, 11, 9, 9, 8, 9, 8, 11, 10, 11, 8, 12, 9, 13, 16, 11, 10, 8, 8, 8, 12, 9, 13,
12, 12, 9, 13, 10, 12, 13, 9, 11, 13, 9, 11, 14, 12, 12, 8, 9, 16, 13, 14, 11, 12, 14, 8,
9, 12, 6, 7, 5, 6, 7, 6, 4, 7, 7), Sex = structure(c(1L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 2L,
1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 2L, 2L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 2L,
1L, 2L, 2L, 1L, 1L), .Label = c("f", "m"), class = "factor"), DimBody = c(75, 80, 70, 85,
75, 65, 60, 55, 75, 55, 100, 85, 55, 60, 50, 75, 90, 70, 50, 66.67, 66.67, 66.67, 100, 80,
65, 85, 80, 70, 90, 80, 85, 70, 95, 65, 40, 60, 80, 85, 55, 40, 85, 60, 80, 85, 75, 60, 80,
65, 65, 70, 75, 85, 100, 90, 55, 55, 70, 35, 60, 60, 80, 60, 80, 45, 85, 60, 60, 60, 70,
90, 60, 95, 85, 85, 75, 90, 80, 80, 100, 80, 60, 95), DimEmotion = c(85, 80, 65, 90, 90,
90, 85, 50, 90, 70, 95, 95, 75, 80, 55, 65, 90, 75, 60, 100, 83.33, 83.33, 83.33, 60, 65,
90, 95, 90, 75, 75, 95, 90, 95, 75, 80, 60, 100, 65, 60, 45, 45, 55, 65, 80, 85, 60, 70,
45, 55, 65, 65, 90, 80, 95, 65, 45, 50, 65, 55, 60, 60, 55, 90, 80, 95, 65, 70, 60, 75,
100, 80, 75, 90, 85, 80, 70, 90, 100, 65, 80, 80, 85), DimSelf = c(65, 75, 35, 85, 75, 70,
65, 50, 40, 60, 95, 85, 80, 60, 45, 60, 90, 90, 45, 100, 66.67, 100, 100, 60, 60, 70, 100,
80, 60, 60, 60, 60, 80, 60, 70, 60, 90, 70, 60, 55, 40, 70, 65, 80, 90, 65, 90, 45, 45,
75, 50, 75, 80, 80, 60, 50, 70, 60, 35, 55, 65, 75, 75, 70, 75, 55, 65, 55, 65, 100, 65,
75, 85, 80, 55, 75, 80, 85, 70, 90, 70, 80), DimFamilie = c(85, 65, 80, 70, 55, 95, 75,
30, 85, 65, 100, 85, 85, 80, 80, 85, 100, 70, 90, 66.67, 100, 83.33, 83.33, 80, 80, 95, 95,
95, 100, 85, 85, 65, 85, 85, 60, 75, 70, 70, 55, 65, 70, 70, 75, 75, 70, 60, 70, 45, 35,
90, 65, 100, 85, 80, 45, 50, 50, 55, 60, 65, 80, 75, 85, 90, 75, 75, 80, 80, 55, 95, 85,
70, 75, 60, 70, 75, 95, 80, 90, 75, 85, 90), DimFriends = c(70, 70, 45, 80, 85, 75, 80, 55,
75, 85, 90, 95, 90, 90, 70, 60, 70, 80, 75, 50, 100, 66.67, 83.33, 75, 75, 90, 80, 90, 90,
85, 60, 80, 50, 70, 55, 90, 95, 70, 70, 40, 50, 80, 40, 80, 95, 70, 85, 50, 55, 50, 30, 55,
95, 95, 50, 50, 85, 75, 60, 90, 70, 65, 95, 95, 90, 55, 60, 75, 75, 85, 50, 80, 85, 95,
60, 65, 80, 75, 75, 75, 85, 70), DimSchool = c(90, 60, 95, 55, 70, 65, 55, 55, 60, 55, 85,
75, 75, 55, 30, 75, 60, 75, 55, 83.33, 100, 83.33, 66.67, 65, 75, 90, 85, 95, 80, 60, 80,
55, 65, 60, 75, 80, 65, 70, 50, 65, 55, 75, 60, 90, 75, 75, 80, 60, 55, 95, 65, 70, 95, 95,
35, 55, 80, 45, 55, 55, 85, 85, 85, 85, 70, 50, 80, 50, 60, 100, 80, 75, 95, 80, 75, 70,
55, 75, 80, 65, 65, 65), TotalScore = c(78.33, 71.67, 65, 77.5, 75, 76.67, 70, 49.17,
70.83, 65, 94.17, 86.67, 76.67, 70.83, 55, 70, 83.33, 76.67, 62.5, 77.78, 86.11, 80.56,
86.11, 70, 70, 86.67, 89.17, 86.67, 82.5, 74.17, 77.5, 70, 78.33, 69.17, 63.33, 70.83,
83.33, 71.67, 58.33, 51.67, 57.5, 68.33, 64.17, 81.67, 81.67, 65, 79.17, 51.67, 51.67,
74.17, 58.33, 79.17, 89.17, 89.17, 51.67, 50.83, 67.5, 55.83, 54.17, 64.17, 73.33, 69.17,
85, 77.5, 81.67, 60, 69.17, 63.33, 66.67, 95, 70, 78.33, 85.83, 80.83, 69.17, 74.17, 80,
82.5, 80, 77.5, 74.17, 80.83)), .Names = c("Person", "Date", "Age", "Sex", "DimBody",
"DimEmotion", "DimSelf", "DimFamily", "DimFriends", "DimSchool", "TotalScore"), row.names
= c(NA, -82L), class = "data.frame")
Beispiel 7
BearbeitenDie Ergebnisse eines Hochsprungwettbewerbs lauten wie folgt.
0bedeutet, dass die entsprechende Höhe nicht übersprungen wurde1bedeutet, dass die entsprechende Höhe übersprungen wurde
1.00 1.10 1.20 1.30 1.50 1.60 1.70 1.90 2.00 2.20 Hans 1 1 1 1 1 1 1 1 1 1 Karola 1 1 1 1 1 1 1 1 1 0 Matthias 1 1 1 1 1 1 1 1 0 0 Stefan 1 1 1 1 1 1 1 0 0 0 Sabine 1 1 1 1 1 1 1 0 0 0 Irma 1 1 1 1 1 1 0 0 0 0 Heike 1 1 1 1 1 1 0 0 0 0 Ralf 1 1 1 1 1 1 0 0 0 0 Rainer 1 1 1 1 1 0 0 0 0 0 Simon 1 1 1 1 1 0 0 0 0 0 Andreas 1 1 1 1 1 0 0 0 0 0 Elke 1 1 1 1 0 0 0 0 0 0 Gabi 1 1 1 1 0 0 0 0 0 0 David 1 1 1 1 0 0 0 0 0 0 Jonas 1 1 1 1 0 0 0 0 0 0 Nicklas 1 1 1 1 0 0 0 0 0 0 Sandra 1 1 1 0 0 0 0 0 0 0 Mario 1 1 1 0 0 0 0 0 0 0 Guido 1 1 1 0 0 0 0 0 0 0 Lisa 1 1 1 0 0 0 0 0 0 0 Peter 1 1 1 0 0 0 0 0 0 0 Justus 1 1 1 0 0 0 0 0 0 0 Josef 1 1 1 0 0 0 0 0 0 0 Brigitte 1 1 1 0 0 0 0 0 0 0 Kevin 1 1 0 0 0 0 0 0 0 0 Marcel 1 1 0 0 0 0 0 0 0 0 Nadine 1 1 0 0 0 0 0 0 0 0 Alex 1 1 0 0 0 0 0 0 0 0 Katharina 1 1 0 0 0 0 0 0 0 0 Daniel 1 1 0 0 0 0 0 0 0 0 Jens 1 1 0 0 0 0 0 0 0 0 Dieter 1 0 0 0 0 0 0 0 0 0 Sebastian 1 0 0 0 0 0 0 0 0 0 Anne 1 0 0 0 0 0 0 0 0 0
Diese Tabelle wird wie folgt erzeugt:
hochsprung <- structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1,
1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(34L, 10L), .Dimnames = list( c("Hans", "Karola",
"Matthias", "Stefan", "Sabine", "Irma", "Heike", "Ralf", "Rainer", "Simon", "Andreas", "Elke", "Gabi", "David",
"Jonas", "Nicklas", "Sandra", "Mario", "Guido", "Lisa", "Peter", "Justus", "Josef", "Brigitte", "Kevin", "Marcel",
"Nadine", "Alex", "Katharina", "Daniel", "Jens", "Dieter", "Sebastian", "Anne"), c("1.00", "1.10", "1.20", "1.30",
"1.50", "1.60", "1.70", "1.90", "2.00", "2.20")))
Beispiel 8
BearbeitenDie Ergebnisse eines Minigolfwettbewerbs lauten wie folgt.
0bedeutet, dass das entsprechende Loch nicht mit einem Schlag getroffen wurde1bedeutet, dass das entsprechende Loch mit einem Schlag getroffen wurde
Loch1 Loch2 Loch3 Loch4 Loch5 Loch6 Loch7 Loch8 Loch9 Loch10 Hans 0 1 1 0 1 1 0 1 1 1 Karola 1 0 1 1 1 0 1 1 1 0 Matthias 1 1 1 0 1 1 1 1 0 0 Stefan 0 0 1 1 0 1 1 0 0 1 Sabine 1 1 1 1 1 1 1 0 0 0 Irma 1 1 0 1 1 1 0 1 0 0 Heike 1 0 1 0 1 1 0 0 0 1 Ralf 1 1 1 0 1 1 0 0 0 0 Rainer 1 1 0 1 1 0 0 1 0 1 Simon 1 0 1 1 1 0 1 0 1 0 Andreas 1 1 1 0 1 0 0 0 0 0 Elke 1 1 0 1 0 1 0 0 1 0 Gabi 0 1 1 1 0 0 1 0 0 1 David 1 1 0 1 0 0 0 0 0 0 Jonas 1 1 0 1 1 0 1 1 0 0 Nicklas 1 1 1 1 0 1 0 0 1 0 Sandra 0 1 0 0 1 0 1 1 0 1 Mario 1 0 1 0 1 1 0 0 0 0 Guido 1 1 1 0 0 0 0 0 1 0 Lisa 0 1 1 0 0 0 1 0 0 0 Peter 1 0 1 0 1 0 0 0 1 0 Justus 1 1 1 0 0 0 1 0 0 1 Josef 1 0 1 0 0 0 0 0 0 0 Brigitte 1 1 1 0 0 0 1 0 1 0 Kevin 0 1 0 0 1 0 0 1 0 1 Marcel 1 1 0 0 0 0 0 0 0 0 Nadine 1 0 0 1 0 1 0 0 1 0 Alex 1 0 0 0 0 0 0 0 0 0 Katharina 0 1 0 0 0 1 1 0 1 1 Daniel 1 1 0 0 0 0 0 0 0 0 Jens 1 1 0 1 0 0 1 0 1 0 Dieter 1 0 0 0 0 0 1 1 0 0 Sebastian 1 0 1 0 1 0 0 0 1 1 Anne 0 0 0 0 1 0 1 0 0 1
Diese Tabelle wird wie folgt erzeugt:
minigolf <- structure(list(Loch1 = c(0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0,
1, 1, 1, 0, 1, 1, 1, 1, 0), Loch2 = c(1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1,
1, 0, 0, 1, 1, 1, 0, 0, 0), Loch3 = c(1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0,
0, 0, 0, 0, 0, 0, 0, 1, 0), Loch4 = c(0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 1, 0, 0, 0, 1, 0, 0, 0), Loch5 = c(1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1,
0, 0, 0, 0, 0, 0, 0, 1, 1), Loch6 = c(1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0,
0, 1, 0, 1, 0, 0, 0, 0, 0 ), Loch7 = c(0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0,
0, 0, 0, 1, 0, 1, 1, 0, 1), Loch8 = c(1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1,
0, 0, 0, 0, 0, 0, 1, 0, 0), Loch9 = c(1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0,
1, 0, 1, 0, 1, 0, 1, 0 ), Loch10 = c(1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0,
0, 1, 0, 0, 0, 1, 1)), .Names = c("Loch1", "Loch2", "Loch3", "Loch4", "Loch5", "Loch6", "Loch7", "Loch8", "Loch9",
"Loch10" ), class = "data.frame", row.names = c("Hans", "Karola", "Matthias", "Stefan", "Sabine", "Irma", "Heike",
"Ralf", "Rainer", "Simon", "Andreas", "Elke", "Gabi", "David", "Jonas", "Nicklas", "Sandra", "Mario", "Guido",
"Lisa", "Peter", "Justus", "Josef", "Brigitte", "Kevin", "Marcel", "Nadine", "Alex", "Katharina", "Daniel", "Jens",
"Dieter", "Sebastian", "Anne"))
Beispiel 9
BearbeitenEin Fragebogen besteht aus 27 Fragen, welche die Antworten "nie / selten / manchmal / oft / immer" zulassen. Die Antworten werden wie folgt codiert:
- 1 = nie
- 2 = selten
- 3 = manchmal
- 4 = oft
- 5 = immer
Der Fragebogen wird nun von 122 Personen ausgefüllt. Da dieser Datensatz relativ groß ist, wird auf eine Darstellung der Tabelle verzichtet. Der Code zum Erzeugen des Datensatzes lautet:
bsp9 <- structure(list(Frage1 = c(4, 4, 5, 5, 5, 1, 3, 3, 3, 3, 5, 5, 5, 3, 3, 4, 5, 4, 3, 2, 2, 2, 3, 4, 3, 4, 4, 2,
5, 5, 5, 5, 5, 5, 1, 3, 4, 3, 3, 4, 3, 3, 3, 3, 5, 3, 3, 3, 2, 5, 4, 5, 2, 4, 3, 2, 5, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage2 = c(3, 5, 4, 5, 4, 5, 3, 3, 5, 3, 5, 4, 4, 4, 2, 5, 5, 3, 2,
2, 2, 2, 3, 2, 3, 5, 4, 4, 3, 3, 5, 3, 5, 2, 3, 3, 5, 4, 3, 4, 1, 4, 4, 4, 5, 2, 2, 3, 2, 3, 5, 5, 3, 5, 3, 3, 5, 4,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage3 = c(4, 4, 4, 4, 3, 3, 2, 2, 4, 2, 5,
3, 1, 2, 3, 4, 4, 3, 3, 3, 4, 5, 4, 5, 4, 4, 3, 3, 5, 5, 2, 4, 4, 3, 2, 3, 4, 3, 3, 3, 1, 3, 3, 2, 4, 1, 1, 3, 3, 3, 5,
5, 4, 2, 5, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage4 = c(4, 3, 1, 3, 3,
4, 4, 3, 3, 3, 5, 5, 1, 3, 2, 2, 4, 4, 2, 2, 4, 5, 4, 5, 3, 4, 5, 5, 5, 3, 5, 2, 5, 3, 2, 3, 3, 4, 3, 4, 1, 2, 3, 4, 5,
2, 3, 2, 3, 2, 4, 5, 4, 1, 4, 2, 4, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5),
Frage5 = c(5, 1, 2, 5, 2, 4, 4, 1, 1, 4, 5, 4, 3, 5, 3, 5, 1, 1, 4, 5, 5, 4, 2, 4, 3, 1, 2, 1, 3, 4, 2, 1, 1, 4, 1, 1,
2, 4, 2, 3, 3, 4, 4, 4, 5, 2, 2, 2, 3, 3, 4, 2, 3, 3, 4, 3, 5, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4,
4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5,
5, 5, 5, 5, 5, 5, 5), Frage6 = c(5, 3, 1, 4, 5, 5, 4, 3, 3, 4, 5, 5, 4, 4, 3, 2, 4, 5, 3, 3, 3, 3, 3, 4, 3, 4, 5, 4, 2,
5, 5, 4, 5, 4, 2, 2, 5, 3, 3, 3, 1, 4, 4, 4, 5, 3, 2, 3, 1, 2, 5, 4, 3, 5, 4, 3, 4, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage7 = c(3, 3, 2, 4, 4, 3, 4, 3, 5, 3, 4, 5, 3, 4, 2, 3, 4, 3, 4, 3, 2, 2, 2,
1, 4, 4, 4, 4, 3, 3, 5, 5, 4, 4, 4, 2, 5, 3, 3, 4, 2, 5, 3, 3, 5, 4, 3, 5, 3, 3, 4, 5, 4, 3, 5, 4, 4, 5, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage8 = c(4, 5, 5, 5, 4, 5, 4, 2, 5, 4, 5, 5, 4, 4, 4, 4, 5,
3, 3, 1, 3, 4, 4, 3, 3, 5, 5, 5, 5, 4, 5, 5, 5, 3, 3, 4, 5, 3, 3, 4, 2, 5, 3, 4, 5, 3, 3, 4, 3, 4, 5, 4, 4, 4, 5, 4, 5,
4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage9 = c(5, 5, 5, 5, 5, 5, 5, 2, 5, 3, 5, 4,
4, 4, 2, 4, 5, 4, 2, 2, 3, 4, 4, 4, 3, 5, 5, 5, 5, 3, 4, 4, 5, 4, 5, 4, 5, 4, 4, 4, 2, 5, 4, 4, 5, 2, 3, 2, 4, 2, 4, 4, 4,
5, 2, 3, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage10 = c(2, 1, 5, 4, 3, 4, 2, 4,
5, 1, 3, 2, 1, 1, 1, 5, 4, 2, 2, 5, 3, 5, 2, 2, 3, 1, 1, 2, 5, 5, 2, 3, 3, 4, 2, 5, 4, 5, 5, 3, 2, 5, 4, 3, 4, 2, 4, 1, 4,
3, 5, 3, 3, 4, 5, 3, 5, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage11 = c(3, 1, 5, 4,
4, 3, 3, 2, 1, 3, 4, 4, 1, 4, 4, 4, 4, 1, 3, 5, 5, 5, 3, 5, 5, 2, 5, 2, 1, 2, 5, 3, 5, 5, 1, 1, 2, 5, 4, 4, 3, 3, 4, 4, 5,
3, 3, 3, 3, 3, 5, 5, 5, 5, 3, 3, 5, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage12 = c(1,
5, 3, 2, 5, 3, 2, 1, 1, 2, 1, 4, 3, 1, 3, 1, 1, 3, 3, 1, 3, 1, 2, 2, 4, 4, 5, 5, 3, 1, 3, 1, 1, 4, 2, 1, 5, 4, 3, 3, 2, 4,
3, 2, 5, 5, 1, 1, 3, 3, 4, 5, 4, 4, 4, 2, 5, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5),
Frage13 = c(2, 4, 2, 3, 3, 3, 3, 3, 2, 2, 4, 4, 1, 2, 1, 2, 4, 4, 2, 3, 2, 3, 3, 1, 2, 3, 5, 4, 4, 2, 1, 3, 5, 3, 4, 1, 5,
3, 3, 3, 1, 2, 3, 1, 4, 5, 3, 1, 4, 4, 2, 4, 2, 2, 5, 2, 3, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4,
4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5,
5, 5, 5), Frage14 = c(4, 3, 2, 4, 4, 5, 4, 3, 2, 4, 5, 4, 5, 3, 1, 4, 5, 5, 1, 3, 2, 3, 3, 5, 3, 3, 5, 4, 4, 3, 5, 3, 5, 3,
4, 3, 4, 4, 4, 2, 1, 4, 3, 3, 4, 2, 2, 5, 4, 4, 1, 2, 2, 3, 4, 3, 3, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4,
4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5,
5, 5, 5, 5, 5, 5), Frage15 = c(4, 3, 2, 5, 4, 5, 3, 2, 1, 4, 5, 4, 5, 3, 3, 3, 5, 5, 2, 3, 4, 4, 1, 2, 3, 4, 5, 5, 3, 5, 1,
2, 3, 3, 1, 4, 5, 3, 5, 2, 2, 5, 4, 4, 4, 5, 5, 4, 3, 3, 1, 5, 1, 1, 5, 2, 3, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4,
4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5,
5, 5, 5, 5, 5, 5, 5, 5, 5), Frage16 = c(3, 5, 1, 5, 4, 1, 3, 2, 3, 2, 5, 5, 5, 4, 4, 3, 4, 4, 4, 4, 4, 4, 3, 4, 4, 4, 5, 3,
1, 2, 5, 4, 3, 3, 5, 4, 4, 4, 5, 4, 4, 3, 4, 3, 4, 5, 5, 5, 4, 4, 5, 5, 1, 5, 5, 4, 5, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage17 = c(4, 4, 4, 2, 3, 2, 2, 4, 5, 3, 1, 4, 5, 3, 2, 4, 4, 4, 1, 2, 4, 5, 3, 4, 1,
4, 5, 3, 1, 3, 3, 4, 1, 5, 2, 4, 3, 5, 5, 4, 1, 5, 3, 4, 4, 5, 4, 5, 4, 4, 5, 5, 3, 4, 5, 4, 5, 5, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage18 = c(4, 2, 1, 5, 3, 5, 2, 4, 3, 4, 2, 3, 1, 3, 2, 2, 2, 1, 1, 4, 1, 5,
2, 5, 2, 1, 2, 5, 3, 2, 5, 4, 4, 1, 3, 1, 2, 5, 4, 5, 3, 5, 3, 3, 5, 3, 5, 2, 4, 5, 1, 2, 1, 3, 5, 2, 3, 4, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage19 = c(3, 1, 4, 5, 4, 5, 4, 2, 5, 5, 5, 3, 3, 5, 4, 4, 1, 2, 2,
2, 1, 1, 1, 1, 3, 3, 4, 2, 4, 1, 3, 5, 5, 5, 2, 4, 4, 4, 3, 5, 2, 4, 3, 4, 5, 3, 5, 2, 3, 4, 5, 5, 3, 1, 5, 3, 2, 5, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage20 = c(4, 3, 4, 3, 3, 5, 4, 1, 4, 3, 5, 4, 4, 2, 4, 2,
5, 4, 4, 1, 3, 3, 2, 5, 4, 5, 5, 5, 5, 4, 5, 4, 5, 4, 2, 4, 5, 2, 4, 3, 2, 4, 3, 3, 5, 5, 2, 3, 1, 2, 2, 4, 5, 5, 5, 3, 3,
5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage21 = c(4, 2, 3, 5, 3, 5, 4, 3, 3, 3, 5, 5, 5,
5, 4, 5, 5, 3, 5, 3, 3, 2, 3, 4, 3, 5, 5, 5, 5, 5, 5, 4, 4, 4, 4, 4, 4, 2, 4, 3, 2, 5, 3, 4, 5, 3, 2, 4, 4, 4, 3, 5, 5, 5,
4, 4, 3, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage22 = c(5, 3, 5, 4, 3, 5, 4, 1, 5, 3,
5, 4, 4, 4, 3, 5, 5, 3, 4, 4, 3, 3, 2, 3, 5, 5, 5, 5, 5, 4, 2, 2, 5, 5, 3, 4, 4, 4, 4, 3, 5, 3, 3, 4, 5, 5, 3, 3, 5, 5, 5,
5, 3, 5, 4, 4, 4, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage23 = c(4, 5, 4, 2, 2, 4, 3,
1, 5, 4, 5, 4, 4, 5, 5, 5, 5, 4, 5, 3, 2, 3, 2, 4, 4, 4, 4, 4, 5, 4, 5, 3, 3, 4, 3, 3, 1, 4, 4, 3, 3, 4, 4, 5, 5, 4, 4, 2,
4, 5, 5, 5, 3, 5, 5, 5, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage24 = c(5, 4, 1, 4,
4, 5, 4, 3, 5, 4, 4, 5, 4, 4, 3, 1, 4, 4, 3, 2, 3, 2, 2, 5, 4, 5, 3, 4, 3, 5, 5, 4, 4, 3, 1, 5, 4, 3, 2, 3, 3, 4, 3, 3, 3,
4, 1, 4, 3, 4, 5, 3, 2, 5, 2, 5, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), Frage25 = c(3,
3, 1, 3, 4, 5, 4, 3, 4, 3, 4, 4, 4, 5, 3, 3, 4, 5, 4, 1, 3, 2, 3, 1, 4, 4, 5, 5, 5, 4, 1, 4, 2, 4, 5, 4, 5, 4, 2, 4, 3, 4,
3, 4, 4, 5, 1, 5, 2, 3, 5, 5, 3, 5, 3, 5, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5),
Frage26 = c(4, 2, 5, 5, 5, 1, 5, 4, 3, 5, 5, 5, 5, 5, 5, 4, 4, 5, 5, 2, 2, 2, 4, 5, 4, 4, 3, 5, 5, 5, 5, 5, 3, 5, 3, 5, 5,
3, 3, 3, 2, 3, 3, 4, 4, 5, 2, 5, 3, 4, 5, 4, 3, 3, 4, 4, 4, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4,
4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5,
5, 5, 5), Frage27 = c(2, 5, 2, 4, 4, 4, 3, 1, 3, 5, 5, 5, 5, 4, 3, 4, 2, 2, 3, 3, 2, 2, 3, 4, 3, 5, 5, 4, 5, 3, 1, 3, 1, 2,
2, 4, 5, 4, 4, 3, 5, 4, 3, 4, 5, 5, 3, 5, 3, 4, 5, 4, 3, 5, 4, 4, 5, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4,
4, 4, 4, 4, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5,
5, 5, 5, 5, 5, 5)), .Names = c("Frage1", "Frage2", "Frage3", "Frage4", "Frage5", "Frage6", "Frage7", "Frage8", "Frage9",
"Frage10", "Frage11", "Frage12", "Frage13", "Frage14", "Frage15", "Frage16", "Frage17", "Frage18", "Frage19", "Frage20",
"Frage21", "Frage22", "Frage23", "Frage24", "Frage25", "Frage26", "Frage27"), row.names = c(NA, 122L), class = "data.frame",
na.action = structure(123:231, .Names = c("38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51",
"52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72",
"73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "158", "159", "160", "161", "162", "163", "164", "165", "166",
"167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184",
"185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201",
"202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219",
"220", "221"), class = "omit"))
Beispiel 10
BearbeitenIn einer Untersuchung wurde bei Kinder (Self) und deren Eltern (Proxy) bestimmte Werte über die Kinder abgefragt. Die Kinder schätzten sich also zunächst selber ein, anschließend haben die Eltern ihre Kinder eingeschätzt. Zusätzlich existieren zu jedem Item Normwerte (Norm), die den deutschen Durchschnitt widerspiegeln.
bsp10 <- structure(list(Case = c("1", "1", "1", "1", "1", "1", "2", "2", "2", "2", "2", "2", "3", "3", "3", "3", "3", "3", "6", "6", "6", "6", "6", "6", "8", "8", "8", "8", "8", "8", "87", "87", "87", "87", "87", "87", "97", "97", "97", "97", "97", "97", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "4", "4", "4", "4", "4", "4", "5", "5", "5", "5", "5", "5", "6", "6", "6", "6", "6", "6", "8", "8", "8", "8", "8", "8", "87", "87", "87", "87", "87", "87", "97", "97", "97", "97", "97", "97", "Norm", "Norm", "Norm", "Norm", "Norm", "Norm", "Norm", "Norm", "Norm", "Norm", "Norm", "Norm"), Item = structure(c(2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L, 2L, 3L, 4L, 5L, 6L, 7L), .Label = c("Item", "Body", "Emotion", "Family", "Friends", "School", "Index"), class = "factor"), Score = c(73.201612015845, 59.5103286592648, 51.211152156733, 57.8338409160427, 62.8406196084782, 59.8493862271105, 64.2956371038732, 43.2100676781528, 45.2472845564316, 53.2323487558682, 48.0853674487552, 59.8493862271105, 47.0820037411972, 50.611904867224, 38.3277278491481, 33.7624512920086, 42.9406488823006, 44.4784623272101, 49.6265680017606, 37.86511552469, 46.5337891235228, 57.8338409160427, 34.8124918251294, 42.2729427242036, 55.6028554137324, 44.7951224546969, 53.2511808274062, 49.7945287460269, 51.0750344123124, 48.2897549745108, 64.2956371038732, 46.5276241871987, 49.4651816728235, 46.928570478635, 51.0750344123124, 48.2897549745108, 64.2956371038732, 43.2100676781528, 47.9305655106504, 49.7945287460269, 54.4010389092698, 53.1070741073933, 52.679424728785, 40.0684105152636, 59.0810578447264, 9.28427673577973, 41.2400158442848, 40.2047327317923, 49.5401073855047, 44.2682553036083, 56.0092601714117, 9.28427673577973, 41.2400158442848, 41.7118474878159, 71.2257238675, 63.0762558775002, 49.1044321652144, 59.6677528939964, 63.6827432674325, 66.246501340745, 59.3808825999571, 49.3745883304313, 45.4684267559846, 52.5916164348338, 55.4046058734162, 52.6531091581688, 43.6611274898783, 34.6555670768689, 43.7937149049355, 59.6677528939964, 32.9468364077597, 34.7243154371611, 34.770256416197, 40.0684105152636, 53.4121134505333, 34.1372899040197, 51.4234786227506, 41.7118474878159, 55.8940393515167, 38.1771760608847, 42.1816928023213, 52.5916164348338, 47.6930520805652, 38.7563367324969, 49.5401073855047, 44.2682553036083, 42.1816928023213, 45.9407404477103, 35.348549195, 38.7563367324969, 75.22, 81.23, 79.16, 78.54, 72.52, 77.73, 74.36, 78.52, 79.77, 70.39, 72.07, 77.14), Number = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("First", "Norm"), class = "factor"), Proxy = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L), .Label = c("Proxy", "Self", "SelfNorm", "ProxyNorm" ), class = "factor")), .Names = c("Case", "Item", "Score", "Number", "Proxy"), row.names = 2:103, class = "data.frame")1>
Grafikbeispiele
BearbeitenDie hier verwendeten Grafiken stammen von Benutzer Thire und sollen die Themen des Kapitels GNU R: Diagramme veranschaulichen.
Grafikbeispiel 1
Bearbeiten
Quelltext:
class=c(0,18.5,25,30,35,40,100) cols=c("skyblue4","darkgreen","yellow","orange","red","darkred","black") gr=seq(1.4,2.2,length=100) bmi.k<-function(groesse,konstant) { return(groesse^2*konstant) } png(filename="BodyMassIndex.png", width=1024, height=768, pointsize=12) par(bg="whitesmoke") plot(gr,bmi.k(gr,18),type="n",xlim=c(1.60,1.99),ylim=c(40,125),xaxt="n",yaxt="n",cex.axis=1.4,cex.lab=1.3,cex.main=1.7,xlab="Größe [in m]",ylab="Gewicht [in kg]", main="Body Mass Index") polygon(c(gr,rev(gr)),c(bmi.k(gr,class[1]),rev(bmi.k(gr,class[2]))),col=cols[1]) polygon(c(gr,rev(gr)),c(bmi.k(gr,class[2]),rev(bmi.k(gr,class[3]))),col=cols[2]) polygon(c(gr,rev(gr)),c(bmi.k(gr,class[3]),rev(bmi.k(gr,class[4]))),col=cols[3]) polygon(c(gr,rev(gr)),c(bmi.k(gr,class[4]),rev(bmi.k(gr,class[5]))),col=cols[4]) polygon(c(gr,rev(gr)),c(bmi.k(gr,class[5]),rev(bmi.k(gr,class[6]))),col=cols[5]) polygon(c(gr,rev(gr)),c(bmi.k(gr,class[6]),rev(bmi.k(gr,class[7]))),col=cols[6]) polygon(c(gr,rev(gr)),c(bmi.k(gr,class[7]),rev(bmi.k(gr,class[8]))),col=cols[7]) box() grid(lty="dotdash",col="darkgrey") abline(v=seq(1.65,1.95,by=0.1),h=seq(50,110,by=20),lty="dotted",col="grey") legend(x="bottomright",inset=0.005,legend=c("Untergewicht","Normalgewicht","Präadipositas","Adipositas Grad I","Adipositas Grad II","Adipositas Grad III"),col=cols,lwd=6,bg="skyblue") axis(1,at=format(seq(1.60,2,by=0.1),nsmall=2),labels=format(seq(1.60,2,by=0.1),nsmall=2),cex.axis=1.5) axis(1,at=seq(1.65,2,by=0.1),cex.axis=1.2,col.axis="grey") axis(2,at=seq(40,120,by=10),cex.axis=1.5) dev.off()
Grafikbeispiel 2
Bearbeiten
Quelltext:
parliament<-function(x, labels=names(x), edges=5000, col=rainbow(length(x)), rad.in=0.25, ...) { plot(c(-1,1), c(0,1), type="n", axes=FALSE, xlab="", ylab="", ...) y=c(0,pi*cumsum(x)/sum(x)) ang=seq(0,pi,length=edges) for (aktiv in 1:(length(y)-1)) { poly=ang[ y[aktiv]<=ang & ang<=y[aktiv+1] ] polygon(c(cos(poly),0), c(sin(poly),0),col=col[aktiv],border=col[aktiv]) text( (cos(y[aktiv])+cos(y[aktiv+1])+rad.in*cos(y[aktiv])+rad.in*cos(y[aktiv+1]))/4, (sin(y[aktiv])+sin(y[aktiv+1])+rad.in*sin(y[aktiv])+rad.in*sin(y[aktiv+1]))/4, col="white", labels=paste(labels[aktiv], "\n" ,x[aktiv]), cex=1.2, adj=c(0.5,0.5)) } polygon(rad.in*cos(ang),rad.in*sin(ang),col=par("bg"),border=par("bg")) } x<-c(21,66,7,68,21) names(x)<-c("FPÖ", "ÖVP", "BZÖ", "SPÖ", "Grüne") png(filename="Mandate2006.png", width=1300, height=850, pointsize=12) par(bg="whitesmoke") parliament(x, col=c("#126ca8", "black", "#ec921a", "red", "#61bb46"), main="Nationalratswahl 2006 - Mandatsverteilung", cex.main=1.7) dev.off()
Grafikbeispiel 3
Bearbeiten
Quelltext:
qs=c(0,0.5,0.75,0.9,0.95,0.99) cs=heat.colors(length(qs)) qplot<-function(qs,x,pdf,cdf,pfl) { plot(x,pdf,type="n",ylim=range(pdf,0)*1.25,xlab="",ylab="") for (q in 1:(length(qs)-1)) { xd= x[(cdf>=qs[q])&(cdf<=qs[q+1])] yd= pdf[(cdf>=qs[q])&(cdf<=qs[q+1])] polygon(c(xd,xd[length(xd)],xd[1]),c(yd,0,0),col=cs[q],border=cs[q]) lines(c(xd[length(xd)],xd[length(xd)]),c(max(pdf)*1.1-0.01,max(pdf)*1.1+0.01),col=cs[q],lwd=3) arrows(xd[length(xd)]-pfl,max(pdf)*1.1,xd[length(xd)],max(pdf)*1.1,lwd=2,length=0.15) text(xd[length(xd)],max(pdf)*1.15,paste("q(",format(qs[q+1]*100),"%)=",format(xd[length(xd)],digits=1,nsmall=1,decimal.mark=","),sep=""),col=cs[q],cex=1.5,adj=c(1,0)) } } png(filename = "Quantile_graph.png", width=1500, height=1000, pointsize=12) par(mfrow=c(2,1),bg="whitesmoke") ## normalverteilung x=seq(-0.6,2.3,by=0.0001) pdf=dnorm(x=x) cdf=pnorm(q=x) qplot(qs,x,pdf,cdf,0.35) title(main="Quantile der Normalverteilung") ## chi-quadrat verteilung df=3 x=seq(0,11.3,length=10000) pdf=dchisq(x=x,df=df) cdf=pchisq(q=x,df=df) qplot(qs,x,pdf,cdf,1.3) title(main="Quantile der chi-Quadrat Verteilung") dev.off()
Grafikbeispiel 4
Bearbeiten
Quelltext:
#value at risk graph quant=0.10 min=-1.7 max=2.6 mean=2.1 s=seq(min,max,length=10000) d=dnorm(s,mean=mean) q=qnorm(quant,mean=mean) sq=c(s[s<q],q,min) dq=c(d[s<q],0,0) png(filename = "VaR_graph.png", width=1300, height=800, pointsize=12) par(bg="whitesmoke") plot(s,d,type="n",xlab="Portfoliowert [in Mio. EUR]",ylab="Wahrscheinlichkeit",main="Value at Risk",xlim=range(s)*0.935) abline(h=0,col="grey") polygon(x=c(s,max,min),y=c(d,0,0),col="snow3") polygon(x=sq,y=dq,col="skyblue") text(x=(q-min)*0.93+min,y=dnorm(q,mean=mean)*0.3,label=paste(format(100*quant),"%",sep=""),col="blue",cex=1.7) lines(x=c(q,q),y=c(0,dnorm(q,mean=mean)*1.35),col="red",lwd=3) text(x=(q-min)*0.9+min,y=dnorm(q,mean=mean)*1.4,label=paste("VaR=",format(q, digits=2)," Mio EUR",sep=""),col="red",cex=1.6) lines(x=c(mean,mean)*0.9,y=c(0,dnorm(mean,mean=mean)*0.95),col="darkgrey",lwd=2) text(x=mean*0.87,y=dnorm(mean*0.9,mean=mean)*0.66,label=paste("Portfoliowert heute: ",mean*0.9," Mio EUR",sep=""),col="black",srt=90) dev.off()
Grafikbeispiel 5
Bearbeiten
Verwendet werden die Daten aus Beispiel 10.
Der Befehl zum Erzeugen der Grafik lautet:
library(lattice) # Lädt das lattice-Grafikpaket
colors <- c("skyblue4", "blue", "darkgreen","#61bb46") # Farben für Werte und Labels
key.list <- list(space = "right", # Legende Ausrichtung
title="Assessed", cex.title=1.2, # Legendenüberschrift und Größe
points=list(pch=c(0,15,3,8), col=colors, cex=1), # Legendensymbole
text=list(levels(bsp10$Proxy), cex=1, font=1), # Legende mit Schriftgröße und -art
col=colors) # LegendenSchriftfarbe
grafik <- dotplot(Item ~ Score | Case , groups=Proxy, data=bsp10,
layout = c(3,4), # Diagramme werden in 3 Spalten und 4 Reihen aufgeteilt
key = key.list, # Verwende die Daten aus dem Objekt "key.list"
xlab = list(label="Score (T-Rasch)", cex=1.5, font=2), # Label für X-Achse, Schriftgröße, fett
ylab = list(label="Dimensions", cex=1.5, font=2), # Label für Y-Achse, Schriftgröße, fett,
main= list(label="Each kid: first measure self and proxy", cex=2,5), # Überschrift
#sub = list(label="Kinder: alle Erst- und Zweiterhebungen", cex=1, font=3),
scales = list(cex=1.2, ces=2), # Achsenbeschriftung (Schriftgröße)
between = list(x=0.5, y=0.5), # Abstand zwischen den Diagrammen
cex = 1, # Größe der Symbole
pch=c(0,15,3,8), col=colors) # Symbolart der Werte und deren Farbe
update(grafik,
panel = function(...){panel.grid(h=-1,v=-20) # Gitter hinzufügen
panel.dotplot(...) })
rm(colors,key.list,grafik)
siehe auch
Bearbeiten
InhaltsverzeichnisBearbeiten
|