Bevezetés az R-be 2.0 - Feladatgyűjtemény

Összefoglaló példa

1. feladat. Mutató több változóra és csoportra
Hozzuk létre az iskola adatbázist! Egy iskola 3. osztályos tanulóival felmérő dolgozatot irattak matematikából, természetismeretből és magyar nyelvtanból. A dolgozatok mindegyikén maximálisan 100 pontot lehet elérni. A tanulókkal kapcsolatban még eltároljuk a nevet, osztályt, nemet és a szülők legmagasabb iskolai végzettségét:

Tanuló neve Osztály Neme Szülő isk.v. Matematika Természet ism. Magyar ny.
Cs. Péter 3.a. fiú főiskola 85 49 71
K. Éva 3.a. lány szakközép 78 54 64
T. Tibor 3.a. fiú 8.általános 56 97 85
K. Katalin 3.a. lány gimnázium 100 24 79
P. Zsolt 3.a. fiú gimnázium 67 62 76
H. Ottó 3.a. fiú egyetem 100 48 98
K. Ferenc 3.a. fiú főiskola 90 100 77
J. Mór 3.a. fiú főiskola 98 97 100
B. Ferenc 3.a. fiú szakmunkásk. 72 67 89
W. Iván 3.a. fiú egyetem 81 90 71
H. Teréz 3.a. lány egyetem 100 62 91
A. József 3.a. fiú egyetem 86 65 96
P. Mihály 3.a. fiú szakközép 72 66 76
S. János 3.a. fiú főiskola 89 92 61
Ny. Béla 3.a. fiú 8.általános 89 80 71
T. Csilla 3.a. lány szakközép 89 98 72
B. Sándor 3.a. fiú gimnázium 66 54 74
K. Ilona 3.a. lány főiskola 92 76 80
T. Mária 3.a. lány főiskola 93 59 100
G. Gábor 3.a. fiú 8.általános 45 40 72
S. Sára 3.a. lány főiskola 94 100 69
B. Borbála 3.a. lány szakközép 86 21 77
G. György 3.a. fiú főiskola 88 57 53
K. Emma 3.a. lány egyetem 100 100 81
S. Sarolta 3.a. lány főiskola 84 83 28
D. Márta 3.a. lány szakmunkásk. 68 72 66
A. Gergő 3.a. fiú szakközép 61 57 72
V. Irma 3.a. lány főiskola 77 100 100
T. Mária 3.a. lány szakközép 64 21 71
P. Gergely 3.a. fiú főiskola 89 78 61
K. Ilona 3.a. lány egyetem 95 99 82
L. Tibor 3.a. fiú főiskola 88 93 91
S. Soma 3.a. fiú 8.általános 50 75 84
A. Kálmán 3.b. fiú egyetem 100 71 91
V. Benedek 3.b. fiú főiskola 99 91 36
K. Lilla 3.b. lány 8.általános 74 38 74
G. Laura 3.b. lány szakmunkásk. 75 8 74
K. Bea 3.b. lány főiskola 100 94 61
H. Mária 3.b. lány szakközép 95 51 72
S. Szilvia 3.b. lány egyetem 90 54 92
C. Csongor 3.b. fiú főiskola 85 92 39
O. Vera 3.b. lány szakközép 80 44 62
L. Kyra 3.b. lány egyetem 87 50 99
T. Mária 3.b. lány főiskola 83 60 57
B. György 3.b. fiú szakmunkásk. 57 20 67
T. Endre 3.b. fiú szakközép 94 33 54
T. Mária 3.b. lány szakközép 88 57 72
G. Gábor 3.b. fiú főiskola 77 100 100
J. Gyöngyi 3.b. lány egyetem 78 67 85
W. Ilona 3.b. lány főiskola 90 26 64
E. Erika 3.b. lány 8.általános 78 60 67
G. Vince 3.b. fiú gimnázium 69 49 72
K. Márton 3.b. fiú főiskola 89 85 100
T. Mária 3.b. lány 8.általános 78 100 80
U. Levente 3.b. fiú 8.általános 72 11 71
K. Kelemen 3.b. fiú szakmunkásk. 75 76 73
I. Panna 3.b. lány főiskola 88 70 100
D. Gábor 3.b. fiú szakközép 46 36 62
K. Károly 3.b. fiú főiskola 86 80 69
F. Huba 3.b. fiú szakközép 80 85 75
F. Béla 3.b. fiú főiskola 90 77 77
R. Róbert 3.b. fiú főiskola 100 75 72
E. Júlia 3.c. lány 8.általános 56 66 79
T. Matild 3.c. lány szakközép 86 68 87
O. Ilona 3.c. lány főiskola 94 61 44
T. Lajos 3.c. fiú főiskola 98 64 74
U. Benedek 3.c. fiú szakmunkásk. 87 50 68
L. Hanna 3.c. lány egyetem 84 59 83
L. Anikó 3.c. lány főiskola 90 81 58
S. Anita 3.c. lány 8.általános 76 41 71
P. Panna 3.c. lány egyetem 95 53 93
J. Júlia 3.c. lány szakközép 89 49 68
T. Erika 3.c. lány egyetem 95 81 78
H. Pál 3.c. fiú szakközép 76 70 75
T. István 3.c. fiú főiskola 85 82 46
F. Zoltán 3.c. fiú 8.általános 47 23 70
Z. Zsombor 3.c. fiú főiskola 100 53 85
U. Mátyás 3.c. fiú főiskola 82 43 38
S. Imre 3.c. fiú szakmunkásk. 92 55 61
F. Elemér 3.c. fiú szakmunkásk. 71 58 72
H. Ildikó 3.c. lány főiskola 92 100 96
O. Mária 3.c. lány gimnázium 98 89 68
K. Katalin 3.c. lány szakmunkásk. 93 37 70
D. Dénes 3.c. fiú főiskola 78 80 80
J. Péter 3.c. fiú 8.általános 75 30 87
I. Fanni 3.c. lány szakmunkásk. 88 33 83
J. Bence 3.c. fiú főiskola 86 56 100
C. Tünde 3.c. lány 8.általános 77 100 73
N. Boglárka 3.c. lány gimnázium 77 100 77

Az iskola adattábla létrehozása

nevek <- c("Cs. Péter", "K. Éva", "T. Tibor", "K. Katalin", "P. Zsolt", "H. Ottó", "K. Ferenc", "J. Mór", "B. Ferenc", "W. Iván", "H. Teréz", "A. József", "P. Mihály", "S. János", "Ny. Béla", "T. Csilla", "B. Sándor", "K. Ilona", "T. Mária", "G. Gábor", "S. Sára", "B. Borbála", "G. György", "K. Emma", "S. Sarolta", "D. Márta", "A. Gergő", "V. Irma", "T. Mária", "P. Gergely", "K. Ilona", "L. Tibor", "S. Soma", "A. Kálmán", "V. Benedek", "K. Lilla", "G. Laura", "K. Bea", "H. Mária", "S. Szilvia", "C. Csongor", "O. Vera", "L. Kyra", "T. Mária", "B. György", "T. Endre", "T. Mária", "G. Gábor", "J. Gyöngyi", "W. Ilona", "E. Erika", "G. Vince", "K. Márton", "T. Mária", "U. Levente", "K. Kelemen", "I. Panna", "D. Gábor", "K. Károly", "F. Huba", "F. Béla", "R. Róbert", "E. Júlia", "T. Matild", "O. Ilona", "T. Lajos", "U. Benedek", "L. Hanna", "L. Anikó", "S. Anita", "P. Panna", "J. Júlia", "T. Erika", "H. Pál", "T. István", "F. Zoltán", "Z. Zsombor", "U. Mátyás", "S. Imre", "F. Elemér", "H. Ildikó", "O. Mária", "K. Katalin", "D. Dénes", "J. Péter", "I. Fanni", "J. Bence", "C. Tünde", "N. Boglárka")
osztaly <- c("3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.a.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.b.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.", "3.c.")
neme <- c("fiú", "lány", "fiú", "lány", "fiú", "fiú", "fiú", "fiú", "fiú", "fiú", "lány", "fiú", "fiú", "fiú", "fiú", "lány", "fiú", "lány", "lány", "fiú", "lány", "lány", "fiú", "lány", "lány", "lány", "fiú", "lány", "lány", "fiú", "lány", "fiú", "fiú", "fiú", "fiú", "lány", "lány", "lány", "lány", "lány", "fiú", "lány", "lány", "lány", "fiú", "fiú", "lány", "fiú", "lány", "lány", "lány", "fiú", "fiú", "lány", "fiú", "fiú", "lány", "fiú", "fiú", "fiú", "fiú", "fiú", "lány", "lány", "lány", "fiú", "fiú", "lány", "lány", "lány", "lány", "lány", "lány", "fiú", "fiú", "fiú", "fiú", "fiú", "fiú", "fiú", "lány", "lány", "lány", "fiú", "fiú", "lány", "fiú", "lány", "lány")
isk <- c("főiskola", "szakközép", "8.általános", "gimnázium", "gimnázium", "egyetem", "főiskola", "főiskola", "szakmunkásk.", "egyetem", "egyetem", "egyetem", "szakközép", "főiskola", "8.általános", "szakközép", "gimnázium", "főiskola", "főiskola", "8.általános", "főiskola", "szakközép", "főiskola", "egyetem", "főiskola", "szakmunkásk.", "szakközép", "főiskola", "szakközép", "főiskola", "egyetem", "főiskola", "8.általános", "egyetem", "főiskola", "8.általános", "szakmunkásk.", "főiskola", "szakközép", "egyetem", "főiskola", "szakközép", "egyetem", "főiskola", "szakmunkásk.", "szakközép", "szakközép", "főiskola", "egyetem", "főiskola", "8.általános", "gimnázium", "főiskola", "8.általános", "8.általános", "szakmunkásk.", "főiskola", "szakközép", "főiskola", "szakközép", "főiskola", "főiskola", "8.általános", "szakközép", "főiskola", "főiskola", "szakmunkásk.", "egyetem", "főiskola", "8.általános", "egyetem", "szakközép", "egyetem", "szakközép", "főiskola", "8.általános", "főiskola", "főiskola", "szakmunkásk.", "szakmunkásk.", "főiskola", "gimnázium", "szakmunkásk.", "főiskola", "8.általános", "szakmunkásk.", "főiskola", "8.általános", "gimnázium")
matematika <- c(85, 78, 56, 100, 67, 100, 90, 98, 72, 81, 100, 86, 72, 89, 89, 89, 66, 92, 93, 45, 94, 86, 88, 100, 84, 68, 61, 77, 64, 89, 95, 88, 50, 100, 99, 74, 75, 100, 95, 90, 85, 80, 87, 83, 57, 94, 88, 77, 78, 90, 78, 69, 89, 78, 72, 75, 88, 46, 86, 80, 90, 100, 56, 86, 94, 98, 87, 84, 90, 76, 95, 89, 95, 76, 85, 47, 100, 82, 92, 71, 92, 98, 93, 78, 75, 88, 86, 77, 77)
termeszet.ism <- c(49, 54, 97, 24, 62, 48, 100, 97, 67, 90, 62, 65, 66, 92, 80, 98, 54, 76, 59, 40, 100, 21, 57, 100, 83, 72, 57, 100, 21, 78, 99, 93, 75, 71, 91, 38, 8, 94, 51, 54, 92, 44, 50, 60, 20, 33, 57, 100, 67, 26, 60, 49, 85, 100, 11, 76, 70, 36, 80, 85, 77, 75, 66, 68, 61, 64, 50, 59, 81, 41, 53, 49, 81, 70, 82, 23, 53, 43, 55, 58, 100, 89, 37, 80, 30, 33, 56, 100, 100)
magyar.ny <- c(71, 64, 85, 79, 76, 98, 77, 100, 89, 71, 91, 96, 76, 61, 71, 72, 74, 80, 100, 72, 69, 77, 53, 81, 28, 66, 72, 100, 71, 61, 82, 91, 84, 91, 36, 74, 74, 61, 72, 92, 39, 62, 99, 57, 67, 54, 72, 100, 85, 64, 67, 72, 100, 80, 71, 73, 100, 62, 69, 75, 77, 72, 79, 87, 44, 74, 68, 83, 58, 71, 93, 68, 78, 75, 46, 70, 85, 38, 61, 72, 96, 68, 70, 80, 87, 83, 100, 73, 77)

# adattábla létrehozása a fenti vektorokból
iskola <- data.frame(nevek, osztaly, neme, isk, matematika, termeszet.ism, magyar.ny)
str(iskola)  # szerkezet kiírása

'data.frame':    89 obs. of  7 variables:
 $ nevek        : Factor w/ 82 levels "A. Gergő","A. József",..: 10 38 74 42 58 26 39 34 5 81 ...
 $ osztaly      : Factor w/ 3 levels "3.a.","3.b.",..: 1 1 1 1 1 1 1 1 1 1 ...
 $ neme         : Factor w/ 2 levels "fiú","lány": 1 2 1 2 1 1 1 1 1 1 ...
 $ isk          : Factor w/ 6 levels "8.általános",..: 3 5 1 4 4 2 3 3 6 2 ...
 $ matematika   : num  85 78 56 100 67 100 90 98 72 81 ...
 $ termeszet.ism: num  49 54 97 24 62 48 100 97 67 90 ...
 $ magyar.ny    : num  71 64 85 79 76 98 77 100 89 71 ...

2. feladat. Iskolások száma
Hány diák szerepel az adatbázisban? (A feladat az iskola adatbázisra vonatkozik.)

nrow(iskola)

[1] 89

3. feladat. Iskolások száma osztályonként
Hány diák jár az egyes osztályokba? (A feladat az iskola adatbázisra vonatkozik.)

table(iskola$osztaly, useNA = "ifany")


3.a. 3.b. 3.c. 
  33   29   27

4. feladat. Iskolások száma nemenként
Hány fiú és lány jár a 3. évfolyamra? (A feladat az iskola adatbázisra vonatkozik.)

table(iskola$neme, useNA = "ifany")


 fiú lány 
  46   43

5. feladat. Iskolások száma nemenként és osztályonként
Hány fiú és lány jár az egyes osztályokba? (A feladat az iskola adatbázisra vonatkozik.)

addmargins(table(iskola$neme, iskola$osztaly, useNA = "ifany")) # beépített lehetőség


       3.a. 3.b. 3.c. Sum
  fiú    19   15   12  46
  lány   14   14   15  43
  Sum    33   29   27  89

# lehetőség a gmodels csomag CrossTable() függvényével
library(gmodels)
gmodels::CrossTable(iskola$neme, iskola$osztaly, format="SPSS", chisq = T,
                    prop.r = T, prop.c = F, prop.t = F, prop.chisq = F)


   Cell Contents
|-------------------------|
|                   Count |
|             Row Percent |
|-------------------------|

Total Observations in Table:  89 

             | iskola$osztaly 
 iskola$neme |     3.a.  |     3.b.  |     3.c.  | Row Total | 
-------------|-----------|-----------|-----------|-----------|
         fiú |       19  |       15  |       12  |       46  | 
             |   41.304% |   32.609% |   26.087% |   51.685% | 
-------------|-----------|-----------|-----------|-----------|
        lány |       14  |       14  |       15  |       43  | 
             |   32.558% |   32.558% |   34.884% |   48.315% | 
-------------|-----------|-----------|-----------|-----------|
Column Total |       33  |       29  |       27  |       89  | 
-------------|-----------|-----------|-----------|-----------|


Statistics for All Table Factors


Pearson's Chi-squared test 
------------------------------------------------------------
Chi^2 =  1.025433     d.f. =  2     p =  0.5988664 



       Minimum expected frequency: 13.04494

6. feladat. Szülők iskolai végzettsége az egyes oszályokban
A szülők legmagasabb iskolai végzettsége, hogy alakul az egyes osztályokban? (A feladat az iskola adatbázisra vonatkozik.)

addmargins(table(iskola$isk, iskola$osztaly, useNA = "ifany")) # beépített lehetőség


               3.a. 3.b. 3.c. Sum
  8.általános     4    4    5  13
  egyetem         6    4    3  13
  főiskola       12   11    9  32
  gimnázium       3    1    2   6
  szakközép       6    6    3  15
  szakmunkásk.    2    3    5  10
  Sum            33   29   27  89

# lehetőség a gmodels csomag CrossTable() függvényével
library(gmodels)
gmodels::CrossTable(iskola$isk, iskola$osztaly, format="SPSS", chisq = T,
                    prop.r = T, prop.c = F, prop.t = F, prop.chisq = F)


   Cell Contents
|-------------------------|
|                   Count |
|             Row Percent |
|-------------------------|

Total Observations in Table:  89 

             | iskola$osztaly 
  iskola$isk |     3.a.  |     3.b.  |     3.c.  | Row Total | 
-------------|-----------|-----------|-----------|-----------|
 8.általános |        4  |        4  |        5  |       13  | 
             |   30.769% |   30.769% |   38.462% |   14.607% | 
-------------|-----------|-----------|-----------|-----------|
     egyetem |        6  |        4  |        3  |       13  | 
             |   46.154% |   30.769% |   23.077% |   14.607% | 
-------------|-----------|-----------|-----------|-----------|
    főiskola |       12  |       11  |        9  |       32  | 
             |   37.500% |   34.375% |   28.125% |   35.955% | 
-------------|-----------|-----------|-----------|-----------|
   gimnázium |        3  |        1  |        2  |        6  | 
             |   50.000% |   16.667% |   33.333% |    6.742% | 
-------------|-----------|-----------|-----------|-----------|
   szakközép |        6  |        6  |        3  |       15  | 
             |   40.000% |   40.000% |   20.000% |   16.854% | 
-------------|-----------|-----------|-----------|-----------|
szakmunkásk. |        2  |        3  |        5  |       10  | 
             |   20.000% |   30.000% |   50.000% |   11.236% | 
-------------|-----------|-----------|-----------|-----------|
Column Total |       33  |       29  |       27  |       89  | 
-------------|-----------|-----------|-----------|-----------|


Statistics for All Table Factors


Pearson's Chi-squared test 
------------------------------------------------------------
Chi^2 =  4.700077     d.f. =  10     p =  0.910292 



       Minimum expected frequency: 1.820225 
Cells with Expected Frequency < 5: 14 of 18 (77.77778%)

7. feladat. Szülők iskolai végzettsége átalakítása
A szülők legmagasabb iskolai végzettségét megjelenítő faktor változóban a szintek sorrendjét változtassuk meg a természetes sorrendnek megfelelően! Újra vizsgáljuk meg, hogy a szülők legmagasabb iskolai végzettsége, hogy alakul az egyes osztályokban? (A feladat az iskola adatbázisra vonatkozik.)

iskola$isk <- factor(iskola$isk, levels=c("8.általános", "szakmunkásk.",
                               "szakközép", "gimnázium", "főiskola", "egyetem"))
addmargins(table(iskola$isk, iskola$osztaly, useNA = "ifany")) # beépített lehetőség


               3.a. 3.b. 3.c. Sum
  8.általános     4    4    5  13
  szakmunkásk.    2    3    5  10
  szakközép       6    6    3  15
  gimnázium       3    1    2   6
  főiskola       12   11    9  32
  egyetem         6    4    3  13
  Sum            33   29   27  89

# lehetőség a gmodels csomag CrossTable() függvényével
library(gmodels)
gmodels::CrossTable(iskola$isk, iskola$osztaly, format="SPSS", chisq = T,
                    prop.r = T, prop.c = F, prop.t = F, prop.chisq = F)


   Cell Contents
|-------------------------|
|                   Count |
|             Row Percent |
|-------------------------|

Total Observations in Table:  89 

             | iskola$osztaly 
  iskola$isk |     3.a.  |     3.b.  |     3.c.  | Row Total | 
-------------|-----------|-----------|-----------|-----------|
 8.általános |        4  |        4  |        5  |       13  | 
             |   30.769% |   30.769% |   38.462% |   14.607% | 
-------------|-----------|-----------|-----------|-----------|
szakmunkásk. |        2  |        3  |        5  |       10  | 
             |   20.000% |   30.000% |   50.000% |   11.236% | 
-------------|-----------|-----------|-----------|-----------|
   szakközép |        6  |        6  |        3  |       15  | 
             |   40.000% |   40.000% |   20.000% |   16.854% | 
-------------|-----------|-----------|-----------|-----------|
   gimnázium |        3  |        1  |        2  |        6  | 
             |   50.000% |   16.667% |   33.333% |    6.742% | 
-------------|-----------|-----------|-----------|-----------|
    főiskola |       12  |       11  |        9  |       32  | 
             |   37.500% |   34.375% |   28.125% |   35.955% | 
-------------|-----------|-----------|-----------|-----------|
     egyetem |        6  |        4  |        3  |       13  | 
             |   46.154% |   30.769% |   23.077% |   14.607% | 
-------------|-----------|-----------|-----------|-----------|
Column Total |       33  |       29  |       27  |       89  | 
-------------|-----------|-----------|-----------|-----------|


Statistics for All Table Factors


Pearson's Chi-squared test 
------------------------------------------------------------
Chi^2 =  4.700077     d.f. =  10     p =  0.910292 



       Minimum expected frequency: 1.820225 
Cells with Expected Frequency < 5: 14 of 18 (77.77778%)

8. feladat. Mutatók.
Az egész évfolyamban mennyi az egyes felmérőkön elért teljesítmény átlaga és szórása? (A feladat az iskola adatbázisra vonatkozik.)

colMeans(x = iskola[,5:7], na.rm = T) # átlag

   matematika termeszet.ism     magyar.ny 
     82.71910      64.92135      74.59551

sapply(X = iskola[,5:7], FUN = sd, na.rm = T) # szórás

   matematika termeszet.ism     magyar.ny 
     13.31778      24.19158      15.33617

9. feladat. Összesített mutató.
Mennyi a három felmérő átlagából számolt összesített eredmény az egyes diákok esetén? Új oszlopként (osszesitett) adjuk hozzá az adatbázishoz! Mekkora az összesített eredményeket tartalmazó változó átalaga a teljes évfolyamra? (A feladat az iskola adatbázisra vonatkozik.)

iskola$osszesitett <- round(rowMeans(x = iskola[,5:7], na.rm = T), digits = 1)
mean(iskola$osszesitett, na.rm = T)

[1] 74.07416

10. feladat. Összesített mutató.
A szülő legmagasabb iskolai végzettsége által meghatározott csoportokban határozzuk meg az egyes felmérőkön elért átlagos teljesítményt a teljes évfolyamra! Végezzük el a kitűzött feladatot a tapply(), aggregate() és by() függvénnyel is! (A feladat az iskola adatbázisra vonatkozik.)

tapply(iskola$matematika, iskola$isk, mean, na.rm=T)

 8.általános szakmunkásk.    szakközép    gimnázium     főiskola      egyetem 
    67.15385     77.80000     78.93333     79.50000     89.34375     91.61538

tapply(iskola$termeszet.ism, iskola$isk, mean, na.rm=T)

 8.általános szakmunkásk.    szakközép    gimnázium     főiskola      egyetem 
    58.53846     47.60000     54.00000     63.00000     76.68750     69.15385

tapply(iskola$magyar.ny, iskola$isk, mean, na.rm=T)

 8.általános szakmunkásk.    szakközép    gimnázium     főiskola      egyetem 
    75.69231     72.30000     70.60000     74.33333     71.46875     87.69231

aggregate(iskola[, c("matematika", "termeszet.ism", "magyar.ny")], 
          iskola[, "isk", drop=F], mean, na.rm=T)

           isk matematika termeszet.ism magyar.ny
1  8.általános   67.15385      58.53846  75.69231
2 szakmunkásk.   77.80000      47.60000  72.30000
3    szakközép   78.93333      54.00000  70.60000
4    gimnázium   79.50000      63.00000  74.33333
5     főiskola   89.34375      76.68750  71.46875
6      egyetem   91.61538      69.15385  87.69231

by(iskola[, "matematika"], iskola[, "isk", drop=F], mean, na.rm=T)

isk: 8.általános
[1] 67.15385
--------------------------------------------------------------------------- 
isk: szakmunkásk.
[1] 77.8
--------------------------------------------------------------------------- 
isk: szakközép
[1] 78.93333
--------------------------------------------------------------------------- 
isk: gimnázium
[1] 79.5
--------------------------------------------------------------------------- 
isk: főiskola
[1] 89.34375
--------------------------------------------------------------------------- 
isk: egyetem
[1] 91.61538

by(iskola[, "termeszet.ism"], iskola[, "isk", drop=F], mean, na.rm=T)

isk: 8.általános
[1] 58.53846
--------------------------------------------------------------------------- 
isk: szakmunkásk.
[1] 47.6
--------------------------------------------------------------------------- 
isk: szakközép
[1] 54
--------------------------------------------------------------------------- 
isk: gimnázium
[1] 63
--------------------------------------------------------------------------- 
isk: főiskola
[1] 76.6875
--------------------------------------------------------------------------- 
isk: egyetem
[1] 69.15385

by(iskola[, "magyar.ny"], iskola[, "isk", drop=F], mean, na.rm=T)

isk: 8.általános
[1] 75.69231
--------------------------------------------------------------------------- 
isk: szakmunkásk.
[1] 72.3
--------------------------------------------------------------------------- 
isk: szakközép
[1] 70.6
--------------------------------------------------------------------------- 
isk: gimnázium
[1] 74.33333
--------------------------------------------------------------------------- 
isk: főiskola
[1] 71.46875
--------------------------------------------------------------------------- 
isk: egyetem
[1] 87.69231

by(iskola[, c("matematika", "termeszet.ism", "magyar.ny")], 
   iskola[, "isk", drop=F], summary)

isk: 8.általános
   matematika    termeszet.ism      magyar.ny    
 Min.   :45.00   Min.   : 11.00   Min.   :67.00  
 1st Qu.:56.00   1st Qu.: 38.00   1st Qu.:71.00  
 Median :74.00   Median : 60.00   Median :73.00  
 Mean   :67.15   Mean   : 58.54   Mean   :75.69  
 3rd Qu.:77.00   3rd Qu.: 80.00   3rd Qu.:80.00  
 Max.   :89.00   Max.   :100.00   Max.   :87.00  
--------------------------------------------------------------------------- 
isk: szakmunkásk.
   matematika    termeszet.ism     magyar.ny    
 Min.   :57.00   Min.   : 8.00   Min.   :61.00  
 1st Qu.:71.25   1st Qu.:34.00   1st Qu.:67.25  
 Median :75.00   Median :52.50   Median :71.00  
 Mean   :77.80   Mean   :47.60   Mean   :72.30  
 3rd Qu.:87.75   3rd Qu.:64.75   3rd Qu.:73.75  
 Max.   :93.00   Max.   :76.00   Max.   :89.00  
--------------------------------------------------------------------------- 
isk: szakközép
   matematika    termeszet.ism   magyar.ny   
 Min.   :46.00   Min.   :21    Min.   :54.0  
 1st Qu.:74.00   1st Qu.:40    1st Qu.:66.0  
 Median :80.00   Median :54    Median :72.0  
 Mean   :78.93   Mean   :54    Mean   :70.6  
 3rd Qu.:88.50   3rd Qu.:67    3rd Qu.:75.0  
 Max.   :95.00   Max.   :98    Max.   :87.0  
--------------------------------------------------------------------------- 
isk: gimnázium
   matematika     termeszet.ism      magyar.ny    
 Min.   : 66.00   Min.   : 24.00   Min.   :68.00  
 1st Qu.: 67.50   1st Qu.: 50.25   1st Qu.:72.50  
 Median : 73.00   Median : 58.00   Median :75.00  
 Mean   : 79.50   Mean   : 63.00   Mean   :74.33  
 3rd Qu.: 92.75   3rd Qu.: 82.25   3rd Qu.:76.75  
 Max.   :100.00   Max.   :100.00   Max.   :79.00  
--------------------------------------------------------------------------- 
isk: főiskola
   matematika     termeszet.ism      magyar.ny     
 Min.   : 77.00   Min.   : 26.00   Min.   : 28.00  
 1st Qu.: 85.00   1st Qu.: 60.75   1st Qu.: 57.75  
 Median : 89.00   Median : 80.00   Median : 71.50  
 Mean   : 89.34   Mean   : 76.69   Mean   : 71.47  
 3rd Qu.: 93.25   3rd Qu.: 92.25   3rd Qu.: 92.25  
 Max.   :100.00   Max.   :100.00   Max.   :100.00  
--------------------------------------------------------------------------- 
isk: egyetem
   matematika     termeszet.ism      magyar.ny    
 Min.   : 78.00   Min.   : 48.00   Min.   :71.00  
 1st Qu.: 86.00   1st Qu.: 54.00   1st Qu.:82.00  
 Median : 95.00   Median : 65.00   Median :91.00  
 Mean   : 91.62   Mean   : 69.15   Mean   :87.69  
 3rd Qu.:100.00   3rd Qu.: 81.00   3rd Qu.:93.00  
 Max.   :100.00   Max.   :100.00   Max.   :99.00

11. feladat. Összesített mutató.
A szülő legmagasabb iskolai végzettsége által meghatározott csoportokban határozzuk meg az egyes felmérőkön elért átlagos teljesítményt az egyes osztályokban! Végezzük el a kitűzött feladatot a tapply(), aggregate() és by() függvénnyel is! (A feladat az iskola adatbázisra vonatkozik.)

tapply(iskola$matematika, iskola[c("isk","osztaly")], mean, na.rm=T)

              osztaly
isk                3.a.     3.b.     3.c.
  8.általános  60.00000 75.50000 66.20000
  szakmunkásk. 70.00000 69.00000 86.20000
  szakközép    75.00000 80.50000 83.66667
  gimnázium    77.66667 69.00000 87.50000
  főiskola     88.91667 89.72727 89.44444
  egyetem      93.66667 88.75000 91.33333

tapply(iskola$termeszet.ism, iskola[c("isk","osztaly")], mean, na.rm=T)

              osztaly
isk                3.a.     3.b.     3.c.
  8.általános  73.00000 52.25000 52.00000
  szakmunkásk. 69.50000 34.66667 46.60000
  szakközép    52.83333 51.00000 62.33333
  gimnázium    46.66667 49.00000 94.50000
  főiskola     82.00000 77.27273 68.88889
  egyetem      77.33333 60.50000 64.33333

tapply(iskola$magyar.ny, iskola[c("isk","osztaly")], mean, na.rm=T)

              osztaly
isk                3.a.     3.b.     3.c.
  8.általános  78.00000 73.00000 76.00000
  szakmunkásk. 77.50000 71.33333 70.80000
  szakközép    72.00000 66.16667 76.66667
  gimnázium    76.33333 72.00000 72.50000
  főiskola     74.25000 70.45455 69.00000
  egyetem      86.50000 91.75000 84.66667

aggregate(iskola[, c("matematika", "termeszet.ism", "magyar.ny")], 
          iskola[c("isk","osztaly")], mean, na.rm=T)

            isk osztaly matematika termeszet.ism magyar.ny
1   8.általános    3.a.   60.00000      73.00000  78.00000
2  szakmunkásk.    3.a.   70.00000      69.50000  77.50000
3     szakközép    3.a.   75.00000      52.83333  72.00000
4     gimnázium    3.a.   77.66667      46.66667  76.33333
5      főiskola    3.a.   88.91667      82.00000  74.25000
6       egyetem    3.a.   93.66667      77.33333  86.50000
7   8.általános    3.b.   75.50000      52.25000  73.00000
8  szakmunkásk.    3.b.   69.00000      34.66667  71.33333
9     szakközép    3.b.   80.50000      51.00000  66.16667
10    gimnázium    3.b.   69.00000      49.00000  72.00000
11     főiskola    3.b.   89.72727      77.27273  70.45455
12      egyetem    3.b.   88.75000      60.50000  91.75000
13  8.általános    3.c.   66.20000      52.00000  76.00000
14 szakmunkásk.    3.c.   86.20000      46.60000  70.80000
15    szakközép    3.c.   83.66667      62.33333  76.66667
16    gimnázium    3.c.   87.50000      94.50000  72.50000
17     főiskola    3.c.   89.44444      68.88889  69.00000
18      egyetem    3.c.   91.33333      64.33333  84.66667

by(iskola[, "matematika"], iskola[c("isk","osztaly")], mean, na.rm=T)

isk: 8.általános
osztaly: 3.a.
[1] 60
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.a.
[1] 70
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.a.
[1] 75
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.a.
[1] 77.66667
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.a.
[1] 88.91667
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.a.
[1] 93.66667
--------------------------------------------------------------------------- 
isk: 8.általános
osztaly: 3.b.
[1] 75.5
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.b.
[1] 69
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.b.
[1] 80.5
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.b.
[1] 69
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.b.
[1] 89.72727
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.b.
[1] 88.75
--------------------------------------------------------------------------- 
isk: 8.általános
osztaly: 3.c.
[1] 66.2
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.c.
[1] 86.2
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.c.
[1] 83.66667
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.c.
[1] 87.5
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.c.
[1] 89.44444
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.c.
[1] 91.33333

by(iskola[, "termeszet.ism"], iskola[c("isk","osztaly")], mean, na.rm=T)

isk: 8.általános
osztaly: 3.a.
[1] 73
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.a.
[1] 69.5
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.a.
[1] 52.83333
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.a.
[1] 46.66667
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.a.
[1] 82
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.a.
[1] 77.33333
--------------------------------------------------------------------------- 
isk: 8.általános
osztaly: 3.b.
[1] 52.25
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.b.
[1] 34.66667
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.b.
[1] 51
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.b.
[1] 49
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.b.
[1] 77.27273
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.b.
[1] 60.5
--------------------------------------------------------------------------- 
isk: 8.általános
osztaly: 3.c.
[1] 52
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.c.
[1] 46.6
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.c.
[1] 62.33333
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.c.
[1] 94.5
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.c.
[1] 68.88889
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.c.
[1] 64.33333

by(iskola[, "magyar.ny"], iskola[c("isk","osztaly")], mean, na.rm=T)

isk: 8.általános
osztaly: 3.a.
[1] 78
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.a.
[1] 77.5
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.a.
[1] 72
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.a.
[1] 76.33333
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.a.
[1] 74.25
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.a.
[1] 86.5
--------------------------------------------------------------------------- 
isk: 8.általános
osztaly: 3.b.
[1] 73
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.b.
[1] 71.33333
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.b.
[1] 66.16667
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.b.
[1] 72
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.b.
[1] 70.45455
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.b.
[1] 91.75
--------------------------------------------------------------------------- 
isk: 8.általános
osztaly: 3.c.
[1] 76
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.c.
[1] 70.8
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.c.
[1] 76.66667
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.c.
[1] 72.5
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.c.
[1] 69
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.c.
[1] 84.66667

by(iskola[, c("matematika", "termeszet.ism", "magyar.ny")], iskola[c("isk","osztaly")], summary)

isk: 8.általános
osztaly: 3.a.
   matematika    termeszet.ism     magyar.ny    
 Min.   :45.00   Min.   :40.00   Min.   :71.00  
 1st Qu.:48.75   1st Qu.:66.25   1st Qu.:71.75  
 Median :53.00   Median :77.50   Median :78.00  
 Mean   :60.00   Mean   :73.00   Mean   :78.00  
 3rd Qu.:64.25   3rd Qu.:84.25   3rd Qu.:84.25  
 Max.   :89.00   Max.   :97.00   Max.   :85.00  
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.a.
   matematika termeszet.ism     magyar.ny    
 Min.   :68   Min.   :67.00   Min.   :66.00  
 1st Qu.:69   1st Qu.:68.25   1st Qu.:71.75  
 Median :70   Median :69.50   Median :77.50  
 Mean   :70   Mean   :69.50   Mean   :77.50  
 3rd Qu.:71   3rd Qu.:70.75   3rd Qu.:83.25  
 Max.   :72   Max.   :72.00   Max.   :89.00  
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.a.
   matematika termeszet.ism     magyar.ny    
 Min.   :61   Min.   :21.00   Min.   :64.00  
 1st Qu.:66   1st Qu.:29.25   1st Qu.:71.25  
 Median :75   Median :55.50   Median :72.00  
 Mean   :75   Mean   :52.83   Mean   :72.00  
 3rd Qu.:84   3rd Qu.:63.75   3rd Qu.:75.00  
 Max.   :89   Max.   :98.00   Max.   :77.00  
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.a.
   matematika     termeszet.ism     magyar.ny    
 Min.   : 66.00   Min.   :24.00   Min.   :74.00  
 1st Qu.: 66.50   1st Qu.:39.00   1st Qu.:75.00  
 Median : 67.00   Median :54.00   Median :76.00  
 Mean   : 77.67   Mean   :46.67   Mean   :76.33  
 3rd Qu.: 83.50   3rd Qu.:58.00   3rd Qu.:77.50  
 Max.   :100.00   Max.   :62.00   Max.   :79.00  
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.a.
   matematika    termeszet.ism      magyar.ny     
 Min.   :77.00   Min.   : 49.00   Min.   : 28.00  
 1st Qu.:87.25   1st Qu.: 71.75   1st Qu.: 61.00  
 Median :89.00   Median : 87.50   Median : 74.00  
 Mean   :88.92   Mean   : 82.00   Mean   : 74.25  
 3rd Qu.:92.25   3rd Qu.: 97.75   3rd Qu.: 93.25  
 Max.   :98.00   Max.   :100.00   Max.   :100.00  
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.a.
   matematika     termeszet.ism      magyar.ny    
 Min.   : 81.00   Min.   : 48.00   Min.   :71.00  
 1st Qu.: 88.25   1st Qu.: 62.75   1st Qu.:81.25  
 Median : 97.50   Median : 77.50   Median :86.50  
 Mean   : 93.67   Mean   : 77.33   Mean   :86.50  
 3rd Qu.:100.00   3rd Qu.: 96.75   3rd Qu.:94.75  
 Max.   :100.00   Max.   :100.00   Max.   :98.00  
--------------------------------------------------------------------------- 
isk: 8.általános
osztaly: 3.b.
   matematika   termeszet.ism      magyar.ny   
 Min.   :72.0   Min.   : 11.00   Min.   :67.0  
 1st Qu.:73.5   1st Qu.: 31.25   1st Qu.:70.0  
 Median :76.0   Median : 49.00   Median :72.5  
 Mean   :75.5   Mean   : 52.25   Mean   :73.0  
 3rd Qu.:78.0   3rd Qu.: 70.00   3rd Qu.:75.5  
 Max.   :78.0   Max.   :100.00   Max.   :80.0  
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.b.
   matematika termeszet.ism     magyar.ny    
 Min.   :57   Min.   : 8.00   Min.   :67.00  
 1st Qu.:66   1st Qu.:14.00   1st Qu.:70.00  
 Median :75   Median :20.00   Median :73.00  
 Mean   :69   Mean   :34.67   Mean   :71.33  
 3rd Qu.:75   3rd Qu.:48.00   3rd Qu.:73.50  
 Max.   :75   Max.   :76.00   Max.   :74.00  
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.b.
   matematika   termeszet.ism    magyar.ny    
 Min.   :46.0   Min.   :33.0   Min.   :54.00  
 1st Qu.:80.0   1st Qu.:38.0   1st Qu.:62.00  
 Median :84.0   Median :47.5   Median :67.00  
 Mean   :80.5   Mean   :51.0   Mean   :66.17  
 3rd Qu.:92.5   3rd Qu.:55.5   3rd Qu.:72.00  
 Max.   :95.0   Max.   :85.0   Max.   :75.00  
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.b.
   matematika termeszet.ism   magyar.ny 
 Min.   :69   Min.   :49    Min.   :72  
 1st Qu.:69   1st Qu.:49    1st Qu.:72  
 Median :69   Median :49    Median :72  
 Mean   :69   Mean   :49    Mean   :72  
 3rd Qu.:69   3rd Qu.:49    3rd Qu.:72  
 Max.   :69   Max.   :49    Max.   :72  
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.b.
   matematika     termeszet.ism      magyar.ny     
 Min.   : 77.00   Min.   : 26.00   Min.   : 36.00  
 1st Qu.: 85.50   1st Qu.: 72.50   1st Qu.: 59.00  
 Median : 89.00   Median : 80.00   Median : 69.00  
 Mean   : 89.73   Mean   : 77.27   Mean   : 70.45  
 3rd Qu.: 94.50   3rd Qu.: 91.50   3rd Qu.: 88.50  
 Max.   :100.00   Max.   :100.00   Max.   :100.00  
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.b.
   matematika     termeszet.ism    magyar.ny    
 Min.   : 78.00   Min.   :50.0   Min.   :85.00  
 1st Qu.: 84.75   1st Qu.:53.0   1st Qu.:89.50  
 Median : 88.50   Median :60.5   Median :91.50  
 Mean   : 88.75   Mean   :60.5   Mean   :91.75  
 3rd Qu.: 92.50   3rd Qu.:68.0   3rd Qu.:93.75  
 Max.   :100.00   Max.   :71.0   Max.   :99.00  
--------------------------------------------------------------------------- 
isk: 8.általános
osztaly: 3.c.
   matematika   termeszet.ism   magyar.ny 
 Min.   :47.0   Min.   : 23   Min.   :70  
 1st Qu.:56.0   1st Qu.: 30   1st Qu.:71  
 Median :75.0   Median : 41   Median :73  
 Mean   :66.2   Mean   : 52   Mean   :76  
 3rd Qu.:76.0   3rd Qu.: 66   3rd Qu.:79  
 Max.   :77.0   Max.   :100   Max.   :87  
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.c.
   matematika   termeszet.ism    magyar.ny   
 Min.   :71.0   Min.   :33.0   Min.   :61.0  
 1st Qu.:87.0   1st Qu.:37.0   1st Qu.:68.0  
 Median :88.0   Median :50.0   Median :70.0  
 Mean   :86.2   Mean   :46.6   Mean   :70.8  
 3rd Qu.:92.0   3rd Qu.:55.0   3rd Qu.:72.0  
 Max.   :93.0   Max.   :58.0   Max.   :83.0  
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.c.
   matematika    termeszet.ism     magyar.ny    
 Min.   :76.00   Min.   :49.00   Min.   :68.00  
 1st Qu.:81.00   1st Qu.:58.50   1st Qu.:71.50  
 Median :86.00   Median :68.00   Median :75.00  
 Mean   :83.67   Mean   :62.33   Mean   :76.67  
 3rd Qu.:87.50   3rd Qu.:69.00   3rd Qu.:81.00  
 Max.   :89.00   Max.   :70.00   Max.   :87.00  
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.c.
   matematika    termeszet.ism      magyar.ny    
 Min.   :77.00   Min.   : 89.00   Min.   :68.00  
 1st Qu.:82.25   1st Qu.: 91.75   1st Qu.:70.25  
 Median :87.50   Median : 94.50   Median :72.50  
 Mean   :87.50   Mean   : 94.50   Mean   :72.50  
 3rd Qu.:92.75   3rd Qu.: 97.25   3rd Qu.:74.75  
 Max.   :98.00   Max.   :100.00   Max.   :77.00  
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.c.
   matematika     termeszet.ism      magyar.ny  
 Min.   : 78.00   Min.   : 43.00   Min.   : 38  
 1st Qu.: 85.00   1st Qu.: 56.00   1st Qu.: 46  
 Median : 90.00   Median : 64.00   Median : 74  
 Mean   : 89.44   Mean   : 68.89   Mean   : 69  
 3rd Qu.: 94.00   3rd Qu.: 81.00   3rd Qu.: 85  
 Max.   :100.00   Max.   :100.00   Max.   :100  
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.c.
   matematika    termeszet.ism     magyar.ny    
 Min.   :84.00   Min.   :53.00   Min.   :78.00  
 1st Qu.:89.50   1st Qu.:56.00   1st Qu.:80.50  
 Median :95.00   Median :59.00   Median :83.00  
 Mean   :91.33   Mean   :64.33   Mean   :84.67  
 3rd Qu.:95.00   3rd Qu.:70.00   3rd Qu.:88.00  
 Max.   :95.00   Max.   :81.00   Max.   :93.00

library(psych)
describeBy(x = iskola[, c("matematika", "termeszet.ism", "magyar.ny")], 
           group = iskola[c("isk","osztaly")])

isk: 8.általános
osztaly: 3.a.
              vars n mean    sd median trimmed   mad min max range  skew kurtosis    se
matematika       1 4   60 19.85   53.0      60  8.15  45  89    44  0.64    -1.76  9.92
termeszet.ism    2 4   73 23.93   77.5      73 16.31  40  97    57 -0.40    -1.84 11.97
magyar.ny        3 4   78  7.53   78.0      78  9.64  71  85    14  0.00    -2.42  3.76
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.a.
              vars n mean    sd median trimmed   mad min max range skew kurtosis   se
matematika       1 2 70.0  2.83   70.0    70.0  2.97  68  72     4    0    -2.75  2.0
termeszet.ism    2 2 69.5  3.54   69.5    69.5  3.71  67  72     5    0    -2.75  2.5
magyar.ny        3 2 77.5 16.26   77.5    77.5 17.05  66  89    23    0    -2.75 11.5
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.a.
              vars n  mean    sd median trimmed   mad min max range  skew kurtosis    se
matematika       1 6 75.00 11.42   75.0   75.00 16.31  61  89    28  0.00    -1.96  4.66
termeszet.ism    2 6 52.83 29.19   55.5   52.83 33.36  21  98    77  0.20    -1.57 11.91
magyar.ny        3 6 72.00  4.60   72.0   72.00  3.71  64  77    13 -0.55    -1.15  1.88
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.a.
              vars n  mean    sd median trimmed   mad min max range  skew kurtosis    se
matematika       1 3 77.67 19.35     67   77.67  1.48  66 100    34  0.38    -2.33 11.17
termeszet.ism    2 3 46.67 20.03     54   46.67 11.86  24  62    38 -0.32    -2.33 11.57
magyar.ny        3 3 76.33  2.52     76   76.33  2.97  74  79     5  0.13    -2.33  1.45
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.a.
              vars  n  mean    sd median trimmed   mad min max range  skew kurtosis   se
matematika       1 12 88.92  5.38   89.0    89.2  5.19  77  98    21 -0.48    -0.14 1.55
termeszet.ism    2 12 82.00 18.37   87.5    83.5 17.79  49 100    51 -0.55    -1.36 5.30
magyar.ny        3 12 74.25 21.93   74.0    76.3 22.24  28 100    72 -0.45    -0.75 6.33
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.a.
              vars n  mean    sd median trimmed   mad min max range  skew kurtosis   se
matematika       1 6 93.67  8.26   97.5   93.67  3.71  81 100    19 -0.51    -1.78 3.37
termeszet.ism    2 6 77.33 21.87   77.5   77.33 27.43  48 100    52 -0.11    -2.03 8.93
magyar.ny        3 6 86.50 10.33   86.5   86.50 11.12  71  98    27 -0.23    -1.75 4.22
--------------------------------------------------------------------------- 
isk: 8.általános
osztaly: 3.b.
              vars n  mean    sd median trimmed   mad min max range  skew kurtosis    se
matematika       1 4 75.50  3.00   76.0   75.50  2.97  72  78     6 -0.14    -2.28  1.50
termeszet.ism    2 4 52.25 37.62   49.0   52.25 36.32  11 100    89  0.17    -1.98 18.81
magyar.ny        3 4 73.00  5.48   72.5   73.00  5.19  67  80    13  0.18    -1.97  2.74
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.b.
              vars n  mean    sd median trimmed   mad min max range  skew kurtosis    se
matematika       1 3 69.00 10.39     75   69.00  0.00  57  75    18 -0.38    -2.33  6.00
termeszet.ism    2 3 34.67 36.30     20   34.67 17.79   8  76    68  0.34    -2.33 20.95
magyar.ny        3 3 71.33  3.79     73   71.33  1.48  67  74     7 -0.35    -2.33  2.19
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.b.
              vars n  mean    sd median trimmed   mad min max range  skew kurtosis   se
matematika       1 6 80.50 18.11   84.0   80.50 10.38  46  95    49 -0.99    -0.68 7.39
termeszet.ism    2 6 51.00 18.92   47.5   51.00 15.57  33  85    52  0.74    -1.06 7.72
magyar.ny        3 6 66.17  8.11   67.0   66.17  7.41  54  75    21 -0.27    -1.81 3.31
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.b.
              vars n mean sd median trimmed mad min max range skew kurtosis se
matematika       1 1   69 NA     69      69   0  69  69     0   NA       NA NA
termeszet.ism    2 1   49 NA     49      49   0  49  49     0   NA       NA NA
magyar.ny        3 1   72 NA     72      72   0  72  72     0   NA       NA NA
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.b.
              vars  n  mean    sd median trimmed   mad min max range  skew kurtosis   se
matematika       1 11 89.73  7.38     89   90.00  5.93  77 100    23  0.10    -1.20 2.22
termeszet.ism    2 11 77.27 20.63     80   80.44 16.31  26 100    74 -1.22     0.73 6.22
magyar.ny        3 11 70.45 22.70     69   71.00 17.79  36 100    64  0.02    -1.39 6.85
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.b.
              vars n  mean    sd median trimmed   mad min max range skew kurtosis   se
matematika       1 4 88.75  9.07   88.5   88.75  8.90  78 100    22 0.06    -1.91 4.53
termeszet.ism    2 4 60.50 10.08   60.5   60.50 12.60  50  71    21 0.00    -2.33 5.04
magyar.ny        3 4 91.75  5.74   91.5   91.75  5.19  85  99    14 0.10    -1.88 2.87
--------------------------------------------------------------------------- 
isk: 8.általános
osztaly: 3.c.
              vars n mean    sd median trimmed   mad min max range  skew kurtosis    se
matematika       1 5 66.2 13.81     75    66.2  2.97  47  77    30 -0.40    -2.03  6.18
termeszet.ism    2 5 52.0 31.41     41    52.0 26.69  23 100    77  0.50    -1.70 14.05
magyar.ny        3 5 76.0  7.07     73    76.0  4.45  70  87    17  0.56    -1.66  3.16
--------------------------------------------------------------------------- 
isk: szakmunkásk.
osztaly: 3.c.
              vars n mean    sd median trimmed   mad min max range  skew kurtosis   se
matematika       1 5 86.2  8.87     88    86.2  5.93  71  93    22 -0.86    -1.17 3.97
termeszet.ism    2 5 46.6 11.06     50    46.6 11.86  33  58    25 -0.19    -2.13 4.95
magyar.ny        3 5 70.8  7.98     70    70.8  2.97  61  83    22  0.34    -1.45 3.57
--------------------------------------------------------------------------- 
isk: szakközép
osztaly: 3.c.
              vars n  mean    sd median trimmed   mad min max range  skew kurtosis   se
matematika       1 3 83.67  6.81     86   83.67  4.45  76  89    13 -0.30    -2.33 3.93
termeszet.ism    2 3 62.33 11.59     68   62.33  2.97  49  70    21 -0.37    -2.33 6.69
magyar.ny        3 3 76.67  9.61     75   76.67 10.38  68  87    19  0.17    -2.33 5.55
--------------------------------------------------------------------------- 
isk: gimnázium
osztaly: 3.c.
              vars n mean    sd median trimmed   mad min max range skew kurtosis   se
matematika       1 2 87.5 14.85   87.5    87.5 15.57  77  98    21    0    -2.75 10.5
termeszet.ism    2 2 94.5  7.78   94.5    94.5  8.15  89 100    11    0    -2.75  5.5
magyar.ny        3 2 72.5  6.36   72.5    72.5  6.67  68  77     9    0    -2.75  4.5
--------------------------------------------------------------------------- 
isk: főiskola
osztaly: 3.c.
              vars n  mean    sd median trimmed   mad min max range  skew kurtosis   se
matematika       1 9 89.44  7.33     90   89.44  7.41  78 100    22 -0.04    -1.50 2.44
termeszet.ism    2 9 68.89 17.98     64   68.89 23.72  43 100    57  0.22    -1.35 5.99
magyar.ny        3 9 69.00 23.26     74   69.00 32.62  38 100    62 -0.03    -1.81 7.75
--------------------------------------------------------------------------- 
isk: egyetem
osztaly: 3.c.
              vars n  mean    sd median trimmed  mad min max range  skew kurtosis   se
matematika       1 3 91.33  6.35     95   91.33 0.00  84  95    11 -0.38    -2.33 3.67
termeszet.ism    2 3 64.33 14.74     59   64.33 8.90  53  81    28  0.31    -2.33 8.51
magyar.ny        3 3 84.67  7.64     83   84.67 7.41  78  93    15  0.21    -2.33 4.41

12. feladat. Oszlopdiagram.
Jelenítsük meg grafikusan a 3. évfolyamban a nemek arányát! (A feladat az iskola adatbázisra vonatkozik.)

par(las=1); par(mar=c(3, 4, 3, 1)); par(mgp=c(2, 0.2, 0)); par(tcl=0.2)
bp <- barplot(table(iskola$neme), ylab="Gyakoriság", main="Nemek eloszlása", ylim=c(0,60))
text(bp, table(iskola$neme)+4, labels = table(iskola$neme))

plot of chunk op_oszlopdiagram_1

13. feladat. Oszlopdiagram.
Jelenítsük meg grafikusan a 3. évfolyamban a szülök legmagasabb iskolai végzettségének eloszlását! Használjunk függőleges oszlopdiagramot! (A feladat az iskola adatbázisra vonatkozik.)

library(dichromat) # színek kezelése
par(las=2); par(mar=c(7, 3, 3, 1)); par(mgp=c(2, 0.2, 0)); par(tcl=0.2)
bp <- barplot(table(iskola$isk), ylab="Gyakoriság", 
              main="Szülő isk.v. eloszlása", ylim=c(0,40), 
              col = colorschemes$Categorical.12)
text(bp, table(iskola$isk)+4, labels = table(iskola$isk))

plot of chunk op_oszlopdiagram_2

14. feladat. Oszlopdiagram.
Jelenítsük meg grafikusan a 3. évfolyamban a szülök legmagasabb iskolai végzettségének eloszlását! Használjunk vízszintes oszlopdiagramot és állítsuk a betűtípust Times New Roman-ra! (A feladat az iskola adatbázisra vonatkozik.)

library(RColorBrewer) # színek kezelése
windowsFonts(Times="Times New Roman"); par(family="Times") # font beállítása
par(las=1); par(mar=c(3, 7, 3, 1)); par(mgp=c(2, 0.2, 0)); par(tcl=0.2)
bp <- barplot(table(iskola$isk), xlab="Gyakoriság", 
              main="Szülő isk.v. eloszlása", xlim=c(0,40), horiz=T, 
              col = brewer.pal(n = 8, name = "Accent"))
text(table(iskola$isk)+2, bp, labels = table(iskola$isk))

plot of chunk op_oszlopdiagram_3

15. feladat. Oszlopdiagram.
Jelenítsük meg grafikusan az egyes osztályokban a nemek arányát! (A feladat az iskola adatbázisra vonatkozik.)

library(RColorBrewer) # színek kezelése
par(las=1); par(mar=c(3, 4, 3, 1)); par(mgp=c(2, 0.2, 0)); par(tcl=0.2)
barplot(table(iskola$neme, iskola$osztaly), ylab="Gyakoriság", 
        main="Nemek eloszlása", ylim=c(0,30), beside = T, border=NA,
        legend.text = T, col=brewer.pal(n = 12, name = "Paired")[2:1])

plot of chunk op_oszlopdiagram_4

16. feladat. Oszlopdiagram.
Jelenítsük meg grafikusan az egyes osztályokban a szülök legmagasabb iskolai végzettségének eloszlását! (A feladat az iskola adatbázisra vonatkozik.)

library(RColorBrewer) # színek kezelése
par(las=1); par(mar=c(2, 3, 3, 1)); par(mgp=c(2, 0.2, 0)); par(tcl=0.2)
barplot(table(iskola$isk, iskola$osztaly), ylab="Gyakoriság", 
        main="Szülő isk.v. eloszlása", ylim=c(0,25), beside = T, border=NA,
        legend.text = T, col=brewer.pal(n = 12, name = "Paired")[1:6])

plot of chunk op_oszlopdiagram_5

17. feladat. Egydimenziós pontdiagram.
Jelenítsük meg grafikusan a felmérés eredményének egydimenziós pontdiagramját! (A feladat az iskola adatbázisra vonatkozik.)

par(las=1); par(mar=c(2, 3, 3, 1)); par(mgp=c(2, 0.2, 0)); par(tcl=0.2)
stripchart(iskola[,c("matematika", "termeszet.ism", "magyar.ny")], pch=1,
           vertical = T, method = "jitter", main="Felmérés", 
           ylab="Eredmény (pont)", ylim=c(0,100))

plot of chunk op_egydimpont_1

18. feladat. Egydimenziós pontdiagram.
Jelenítsük meg grafikusan a felmérés eredményének egydimenziós pontdiagramját a 3 különböző osztályra! (A feladat az iskola adatbázisra vonatkozik.)

par(mfrow=c(2,2))
par(las=1); par(mar=c(2, 3, 3, 1)); par(mgp=c(2, 0.2, 0)); par(tcl=0.2)
stripchart(matematika~osztaly, data=iskola, pch=1, vertical = T, 
           method = "jitter", main="Felmérés - matematika", 
           ylab="Eredmény (pont)", ylim=c(0,100))
stripchart(termeszet.ism~osztaly, data=iskola, pch=1, vertical = T, 
           method = "jitter", main="Felmérés - természet ism.", 
           ylab="Eredmény (pont)", ylim=c(0,100))
stripchart(magyar.ny~osztaly, data=iskola, pch=1, vertical = T, 
           method = "jitter", main="Felmérés - magyar ny.", 
           ylab="Eredmény (pont)", ylim=c(0,100))
par(mfrow=c(1,1))

plot of chunk op_egydimpont_2

19. feladat. Dobozdiagram.
Jelenítsük meg grafikusan a felmérés eredményének eloszlását dobozdiagram segítségével! (A feladat az iskola adatbázisra vonatkozik.)

par(las=1); par(mar=c(2, 3, 3, 1)); par(mgp=c(2, 0.2, 0)); par(tcl=0.2)
boxplot(iskola[,c("matematika", "termeszet.ism", "magyar.ny")], 
        main="Felmérés", ylab="Eredmény (pont)", ylim=c(0,100))

plot of chunk op_dobozdiagram_1

20. feladat. Dobozdiagram.
Jelenítsük meg grafikusan a felmérés eredményének eloszlását dobozdiagram segítségével a 3 különböző osztályra! (A feladat az iskola adatbázisra vonatkozik.)

par(mfrow=c(2,2))
par(las=1); par(mar=c(2, 3, 3, 1)); par(mgp=c(2, 0.2, 0)); par(tcl=0.2)
boxplot(matematika~osztaly, data=iskola, main="Felmérés - matematika", 
        ylab="Eredmény (pont)", ylim=c(0,100))
boxplot(termeszet.ism~osztaly, data=iskola, main="Felmérés - természet ism.",
        ylab="Eredmény (pont)", ylim=c(0,100))
boxplot(magyar.ny~osztaly, data=iskola, main="Felmérés - magyar ny.", 
        ylab="Eredmény (pont)", ylim=c(0,100))
par(mfrow=c(1,1))

plot of chunk op_dobozdiagram_2

21. feladat. Hisztogram.
Jelenítsük meg grafikusan a felmérés eredményének eloszlását hisztogram segítségével! (A feladat az iskola adatbázisra vonatkozik.)

par(mfrow=c(2,2))
par(las=1); par(mar=c(2, 3, 3, 1)); par(mgp=c(2, 0.2, 0)); par(tcl=0.2)
hist(iskola$matematika, main="Felmérés - matematika")
hist(iskola$termeszet.ism, main="Felmérés - természet.ism.")
hist(iskola$magyar.ny, main="Felmérés - magyar.ny.")
par(mfrow=c(1,1))

plot of chunk op_hisztogram_1

22. feladat. Hisztogram.
Jelenítsük meg grafikusan a felmérés eredményének eloszlását hisztogram segítségével a 3 különböző osztályra! (A feladat az iskola adatbázisra vonatkozik.)

library(lattice)
histogram(~matematika|osztaly, data=iskola)

plot of chunk op_hisztogram_2 

histogram(~termeszet.ism|osztaly, data=iskola)

plot of chunk op_hisztogram_2 

histogram(~magyar.ny|osztaly, data=iskola)

plot of chunk op_hisztogram_2

23. feladat. Kétdimenziós pontdiagram.
Jelenítsük meg grafikusan a matematika és a természetismeret felmérés eredményének kapcsolatát! (A feladat az iskola adatbázisra vonatkozik.)

par(las=1); par(mar=c(3, 3, 3, 1)); par(mgp=c(2, 0.2, 0)); par(tcl=0.2)
plot(matematika~termeszet.ism, data=iskola, xlim=c(0,100), ylim=c(0,100))

plot of chunk op_ketdimpont_1

24. feladat. Kétdimenziós pontdiagram.
Jelenítsük meg grafikusan a matematika és a természetismeret felmérés eredményének kapcsolatát az egyes osztályokban! (A feladat az iskola adatbázisra vonatkozik.)

par(las=1); par(mar=c(3, 3, 3, 1)); par(mgp=c(2, 0.2, 0)); par(tcl=0.2)
coplot(matematika~termeszet.ism|osztaly, data=iskola, xlim=c(0,100), ylim=c(0,100), columns = 3)

plot of chunk op_ketdimpont_2

25. feladat. Kétdimenziós pontdiagram.
Jelenítsük meg grafikusan a matematika, természetismeret és magyar nyelvtan felmérés eredményének kapcsolatát! (A feladat az iskola adatbázisra vonatkozik.)

par(las=1); par(mar=c(3, 3, 3, 1)); par(mgp=c(2, 0.2, 0)); par(tcl=0.2)
pairs(iskola[, 5:7], xlim=c(0,100), ylim=c(0,100))

plot of chunk op_ketdimpont_3