1. feladat. Adattábla beolvasása.
A következő táblázat adatait gépeljük be egy táblázatkezelő programba! Exportáljuk tagolt szöveges állományként, majd olvassuk be az R-be aread.table()segítségével!
| Sorszám | Nem | Testmagasság (cm) | Testtömeg (kg) |
|---|---|---|---|
| 1 | fiú | 142 | 38,0 |
| 2 | lány | 137 | 39,5 |
| 3 | fiú | 140 | 47,5 |
| 4 | lány | 138 | 35,0 |
| 5 | fiú | 151 | 49,0 |
| 6 | fiú | 129 | 37,5 |
| 7 | lány | 142 | 39,0 |
| 8 | lány | 147 | 38,0 |
| 9 | fiú | 146 | 35,5 |
| 10 | fiú | 132 | 32,5 |
| 11 | fiú | 128 | 33,5 |
| 12 | lány | 152 | 34,0 |
# 1. Adatok begépelése táblázatkezelőbe.
# 2. Mentés
# 3. Mentés tabulátorral tagolt szöveges állományként:
# Az állomány elérhető: http://users.atw.hu/rdata/ber2/diakok.txt
# 4. Beolvasás a read.table() segítségével:
d <- read.table(file = "http://users.atw.hu/rdata/ber2/diakok.txt",
sep="\t", header = T, dec=",")
str(d)
'data.frame': 12 obs. of 4 variables:
$ sorszam : int 1 2 3 4 5 6 7 8 9 10 ...
$ nem : Factor w/ 2 levels "fiú","lány": 1 2 1 2 1 1 2 2 1 1 ...
$ testmagassag: int 142 137 140 138 151 129 142 147 146 132 ...
$ testtomeg : num 38 39.5 47.5 35 49 37.5 39 38 35.5 32.5 ...
2. feladat. Adattábla beolvasása.
Olvassuk be ahttp://users.atw.hu/rdata/ber2/tanulok.txttagolt szöveges állomány tartalmát! Ellenőrizzük le a beolvasás helyességét!
tanulok <- read.table(file = "http://users.atw.hu/rdata/ber2/tanulok.txt",
sep="\t", header = T, dec=",")
str(tanulok)
'data.frame': 15 obs. of 5 variables:
$ NEV : Factor w/ 14 levels "Erika","Ervin",..: 3 13 NA 5 14 9 4 6 1 2 ...
$ MAT.PONT : int 13 16 17 14 9 11 17 20 12 18 ...
$ KORNY.PONT: int 24 31 40 19 36 31 29 37 18 16 ...
$ NEME : Factor w/ 3 levels "fiú","Fiú","lány": 3 1 NA 3 1 2 1 1 3 1 ...
$ DICSERET : int 0 0 1 0 0 0 0 1 0 NA ...
2. feladat. Adattábla beolvasása.
Olvassuk be az adatok könyvtárból ahttp://users.atw.hu/rdata/ber2/egyetem.csvtagolt szöveges állomány tartalmát! Ellenőrizzük le a beolvasás helyességét!
hallgatok <- read.table(file = "http://users.atw.hu/rdata/ber2/egyetem.csv",
sep=";", header = T, dec=",")
str(hallgatok)
'data.frame': 657 obs. of 6 variables:
$ hallgato: int 1 2 3 4 5 6 7 8 9 10 ...
$ Height : num 67 64 61 61 70 63 61 64 66 65 ...
$ neme : Factor w/ 2 levels "female","male": 1 1 1 1 2 1 1 1 1 2 ...
$ lefekves: num -2.5 1.5 -1.5 2 0 1 1.5 0.5 -0.5 2.5 ...
$ felkeles: num 5.5 8 7.5 8.5 9 8.5 7.5 7.5 7 8.5 ...
$ Drink : Factor w/ 3 levels "tej","üdítő",..: 3 2 1 3 2 3 3 2 3 1 ...
3. feladat. Adattábla beolvasása.
Olvassuk be az adatok könyvtárból ahttp://users.atw.hu/rdata/ber2/Forbes2000.txttagolt szöveges állomány tartalmát! Ellenőrizzük le a beolvasás helyességét!
Forbes2000 <- read.table(file = "http://users.atw.hu/rdata/ber2/Forbes2000.txt",
sep=" ", header = T, dec=".")
str(Forbes2000)
'data.frame': 2000 obs. of 8 variables:
$ rank : int 1 2 3 4 5 6 7 8 9 10 ...
$ name : Factor w/ 2000 levels "Aareal Bank",..: 438 747 100 659 311 219 870 1827 663 1921 ...
$ country : Factor w/ 61 levels "Africa","Australia",..: 60 60 60 60 56 60 56 28 60 60 ...
$ category : Factor w/ 27 levels "Aerospace & defense",..: 2 6 16 19 19 2 2 8 9 20 ...
$ sales : num 94.7 134.2 76.7 222.9 232.6 ...
$ profits : num 17.85 15.59 6.46 20.96 10.27 ...
$ assets : num 1264 627 648 167 178 ...
$ marketvalue: num 255 329 195 277 174 ...