library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(MASS)
##
## Attaching package: 'MASS'
## The following object is masked from 'package:dplyr':
##
## select
data("survey")
head(survey)
## Sex Wr.Hnd NW.Hnd W.Hnd Fold Pulse Clap Exer Smoke Height M.I
## 1 Female 18.5 18.0 Right R on L 92 Left Some Never 173.00 Metric
## 2 Male 19.5 20.5 Left R on L 104 Left None Regul 177.80 Imperial
## 3 Male 18.0 13.3 Right L on R 87 Neither None Occas NA <NA>
## 4 Male 18.8 18.9 Right R on L NA Neither None Never 160.00 Metric
## 5 Male 20.0 20.0 Right Neither 35 Right Some Never 165.00 Metric
## 6 Female 18.0 17.7 Right L on R 64 Right Some Never 172.72 Imperial
## Age
## 1 18.250
## 2 17.583
## 3 16.917
## 4 20.333
## 5 23.667
## 6 21.000
tail(survey)
## Sex Wr.Hnd NW.Hnd W.Hnd Fold Pulse Clap Exer Smoke Height M.I
## 232 Male 18.0 16.0 Right R on L NA Right Some Never 180.34 Imperial
## 233 Female 18.0 18.0 Right L on R 85 Right Some Never 165.10 Imperial
## 234 Female 18.5 18.0 Right L on R 88 Right Some Never 160.00 Metric
## 235 Female 17.5 16.5 Right R on L NA Right Some Never 170.00 Metric
## 236 Male 21.0 21.5 Right R on L 90 Right Some Never 183.00 Metric
## 237 Female 17.6 17.3 Right R on L 85 Right Freq Never 168.50 Metric
## Age
## 232 20.750
## 233 17.667
## 234 16.917
## 235 18.583
## 236 17.167
## 237 17.750
names(survey)
## [1] "Sex" "Wr.Hnd" "NW.Hnd" "W.Hnd" "Fold" "Pulse" "Clap" "Exer"
## [9] "Smoke" "Height" "M.I" "Age"
veri1<-survey %>%
dplyr::select(Sex, Age, Smoke,Height,Exer, Pulse)
head(veri1,237)
## Sex Age Smoke Height Exer Pulse
## 1 Female 18.250 Never 173.00 Some 92
## 2 Male 17.583 Regul 177.80 None 104
## 3 Male 16.917 Occas NA None 87
## 4 Male 20.333 Never 160.00 None NA
## 5 Male 23.667 Never 165.00 Some 35
## 6 Female 21.000 Never 172.72 Some 64
## 7 Male 18.833 Never 182.88 Freq 83
## 8 Female 35.833 Never 157.00 Freq 74
## 9 Male 19.000 Never 175.00 Some 72
## 10 Male 22.333 Never 167.00 Some 90
## 11 Female 28.500 Never 156.20 Freq 80
## 12 Male 18.250 Never NA Freq 68
## 13 Female 18.750 Never 155.00 Some NA
## 14 Female 17.500 Never 155.00 Some 66
## 15 Male 17.167 Never NA Some 60
## 16 Female 17.167 Never 156.00 Freq NA
## 17 Female 19.333 Never 157.00 Freq 89
## 18 Male 18.333 Never 182.88 Some 74
## 19 Male 19.750 Never 190.50 Some NA
## 20 Male 17.917 Never 177.00 Freq 78
## 21 Male 17.917 Never 190.50 Freq 72
## 22 Male 18.167 Never 180.34 Freq 72
## 23 Male 17.833 Never 180.34 Freq 64
## 24 Male 18.250 Never 184.00 Some 62
## 25 Female 19.167 Never NA Some 64
## 26 Male 17.583 Never NA Some 90
## 27 Male 17.500 Never 172.72 Some 90
## 28 Male 18.083 Never 175.26 Freq 62
## 29 Male 21.917 Never NA Freq 76
## 30 Male 19.250 Never 167.00 Some 79
## 31 Female 41.583 Occas NA None 76
## 32 Male 17.500 Never 180.00 Freq 78
## 33 Female 39.750 Heavy 166.40 Freq 72
## 34 Male 17.167 Never 180.00 Some 70
## 35 Male 17.750 Regul NA Some 54
## 36 Male 18.000 Occas 190.00 Freq 66
## 37 Female 19.000 Never 168.00 Some NA
## 38 Male 17.917 Never 182.50 Freq 72
## 39 Male 35.500 Never 185.00 Some 80
## 40 Male 19.917 Occas 171.00 Freq NA
## 41 Female 17.500 Never 169.00 Some NA
## 42 Female 17.083 Never 154.94 Some 72
## 43 Male 28.583 Never 172.00 Some 60
## 44 Female 17.500 Never 176.50 Some 80
## 45 Female 17.417 Never 180.34 Freq 70
## 46 Male 18.500 Never 180.34 Freq NA
## 47 Male 18.917 Regul 180.00 Freq 84
## 48 Male 19.417 Never 170.00 None 96
## 49 Female 18.417 Occas 168.00 Some 60
## 50 Female 30.750 Never 165.00 None 50
## 51 Male 18.500 Never 200.00 Freq 55
## 52 Male 17.500 Never 190.00 Freq 68
## 53 Male 18.333 Never 170.18 Some 78
## 54 Male 17.417 Never 179.00 Freq 56
## 55 Male 20.000 Regul 182.00 Freq 65
## 56 Male 18.333 Never 171.00 Freq NA
## 57 Female 17.167 Never 157.48 None 70
## 58 Male 17.417 Never NA Freq 72
## 59 Male 17.667 Never 177.80 Freq 62
## 60 Male 18.417 Occas 175.26 Freq NA
## 61 Male 20.333 Never 187.00 Freq 66
## 62 Female 17.333 Never 167.64 Freq 72
## 63 Female 17.500 Never 178.00 Freq 70
## 64 Female 19.833 Never 170.00 None NA
## 65 Female 18.583 Never 164.00 Freq 64
## 66 Male 18.000 Never 183.00 Freq NA
## 67 Female 30.667 Never 172.00 Freq NA
## 68 Female 16.917 Never NA Freq 64
## 69 Male 19.917 Never 180.00 Some NA
## 70 Male 18.333 <NA> NA None 80
## 71 Female 17.583 Never 170.00 Freq 64
## 72 Male 17.833 Heavy 176.00 Freq NA
## 73 Female 17.667 Never 171.00 Some 68
## 74 Female 17.417 Never 167.64 Freq 40
## 75 Female 17.750 Never 165.00 Some 88
## 76 Female 20.667 Heavy 170.00 Freq 68
## 77 Female 23.583 Never 165.00 Some 76
## 78 Female 17.167 Heavy 165.10 Freq NA
## 79 Female 17.083 Never 165.10 Some 68
## 80 Male 18.750 Never 185.42 Freq NA
## 81 Male 16.750 Never NA Some 66
## 82 Male 20.167 Never 176.50 Freq 76
## 83 Female 17.667 Never NA Freq 98
## 84 Female 17.167 Never NA Some NA
## 85 Male 17.167 Never 167.64 Freq 90
## 86 Female 17.250 Never 167.00 Some 76
## 87 Female 18.000 Never 162.56 Some 70
## 88 Female 18.750 Never 170.00 Freq 75
## 89 Male 21.583 Never 179.00 Freq 60
## 90 Female 17.583 Never NA Some 92
## 91 Male 19.667 Never 183.00 Some 75
## 92 Female 18.000 Never NA Some NA
## 93 Female 19.667 Never 165.00 Some 70
## 94 Female 17.083 Never 168.00 Some NA
## 95 Male 22.833 Heavy 179.00 Freq 65
## 96 Female 17.083 Never NA Some NA
## 97 Male 19.417 Regul 190.00 Freq 68
## 98 Female 23.250 Never 166.50 Freq 60
## 99 Male 18.083 Never 165.00 Freq NA
## 100 Female 19.083 Never 175.26 Freq 68
## 101 Male 18.917 Never 187.00 Some NA
## 102 Male 17.750 Never 170.00 None 60
## 103 Female 20.833 Never 159.00 Some NA
## 104 Female 20.167 Never 175.00 Freq 72
## 105 Female 17.667 Heavy 163.00 Some 80
## 106 Female 18.250 Never 170.00 Some 80
## 107 Female 17.000 Occas 172.00 Freq NA
## 108 Female 18.500 Never NA Freq 85
## 109 Male 18.583 Never 180.00 Freq 64
## 110 Male 17.750 Regul 180.34 Some 67
## 111 Female 24.167 Never 175.00 Freq 76
## 112 Male 18.167 Never 190.50 None 80
## 113 Female 21.167 Never 170.18 Freq 75
## 114 Male 17.917 Never 185.00 Freq 60
## 115 Female 17.417 Never 162.56 Freq 60
## 116 Female 20.500 Never 158.00 None 70
## 117 Female 22.917 Never 159.00 Some 70
## 118 Male 18.917 Heavy 193.04 Some 83
## 119 Female 18.917 Never 171.00 Some 100
## 120 Male 20.083 Heavy 184.00 Freq 100
## 121 Male 17.500 Occas NA Freq 80
## 122 Male 18.250 Occas 177.00 Freq 76
## 123 Female 17.500 Never 172.00 Freq 92
## 124 Male 17.417 Never 180.00 Freq 59
## 125 Male 21.000 Never 175.26 Freq 66
## 126 Male 19.833 Never 180.34 Freq NA
## 127 Female 17.667 Never 172.72 Freq 68
## 128 Male 18.083 Regul 178.50 Freq 66
## 129 Female 18.000 Never 157.00 Freq 74
## 130 Female 18.333 Never 152.00 Some 90
## 131 Male 20.000 Never 187.96 Freq 86
## 132 Male 18.750 Never 178.00 Some 60
## 133 Female 19.083 Never NA Some 86
## 134 Female 18.500 Occas 160.02 Freq 80
## 135 Male 18.417 Never 175.26 Some 85
## 136 Male 19.167 Regul 189.00 Some 90
## 137 <NA> 21.500 Never 172.00 Freq 73
## 138 Male 19.333 Never 182.88 Freq 72
## 139 Male 21.417 Never 170.00 Freq NA
## 140 Female 18.667 Never 167.00 None 68
## 141 Female 17.500 Never 175.00 Some 84
## 142 Female 21.083 Never 165.00 None NA
## 143 Female 17.250 Never 172.72 Freq 65
## 144 Male 19.000 Never 180.00 Some 96
## 145 Female 19.167 Never 172.00 Freq 68
## 146 Male 19.000 Never 185.00 Some 75
## 147 Male 23.000 Regul 187.96 Freq 64
## 148 Male 32.667 Never 185.42 Freq 60
## 149 Female 20.000 Never 165.00 Freq 92
## 150 Female 20.167 Never 164.00 Freq 64
## 151 Male 25.500 Never 195.00 Freq 76
## 152 Female 18.167 Never 165.00 Freq 80
## 153 Female 23.500 Regul 152.40 Some 92
## 154 Male 70.417 Never 172.72 Freq 69
## 155 Male 43.833 Never 180.34 None 68
## 156 Male 23.583 Never 173.00 Freq 76
## 157 Male 21.083 Heavy NA Freq NA
## 158 Female 44.250 Never 167.64 Some 74
## 159 Male 19.667 Never 187.96 None NA
## 160 Male 17.917 Regul 187.00 Freq 84
## 161 Female 18.417 Never 167.00 None 80
## 162 Male 21.167 Never 168.00 Some NA
## 163 Male 17.500 Never 191.80 Some 72
## 164 Female 29.083 Occas 169.20 Freq 60
## 165 Male 19.917 Never 177.00 Some NA
## 166 Female 18.500 Never 168.00 Some 81
## 167 Female 18.167 Never 170.00 Some 70
## 168 Female 32.750 Regul 160.02 Some 65
## 169 Male 17.417 Never 189.00 Freq NA
## 170 Male 17.333 Never 180.34 Freq 72
## 171 Female 73.000 Never 168.00 Some NA
## 172 Male 18.667 Occas 182.88 Some 80
## 173 Female 18.500 Regul NA Some 50
## 174 Female 18.667 Never 165.00 Freq 48
## 175 Female 17.750 Never 157.48 Freq 68
## 176 Female 17.250 Never 170.00 Freq 104
## 177 Male 36.583 Regul 172.72 Freq 76
## 178 Female 23.083 Never 164.00 Freq 84
## 179 Female 19.250 Regul NA Freq NA
## 180 Female 17.167 Never 162.56 Some 70
## 181 Male 23.417 Occas 172.00 Freq 68
## 182 Female 17.083 Occas 165.10 Freq 87
## 183 Female 17.250 Never 162.50 Some 79
## 184 Male 23.833 Never 170.00 Freq 70
## 185 Male 18.750 Never 175.00 Some 90
## 186 Male 21.167 Never 168.00 Some 72
## 187 Female 24.667 Never 163.00 Some 79
## 188 Male 18.500 Never 165.00 None 65
## 189 Male 20.333 Never 173.00 Freq 62
## 190 Male 20.083 Never 196.00 Freq 63
## 191 Male 18.917 Never 179.10 Some 92
## 192 Male 27.333 Never 180.00 Some 60
## 193 Male 18.917 Occas 176.00 None 68
## 194 Female 17.250 Never 160.02 Some 72
## 195 Female 18.167 Never 157.48 None NA
## 196 Female 26.500 Never 165.00 Some 76
## 197 Female 17.000 Never 170.18 Freq 80
## 198 Male 17.167 Never 154.94 Freq 71
## 199 Female 19.167 Occas 170.00 Some 80
## 200 Female 17.500 Never 164.00 Some 80
## 201 Female 19.250 Occas 167.00 Some 61
## 202 Male 21.333 Never 174.00 Freq 48
## 203 Female 18.583 Never NA Some 76
## 204 Female 20.167 Never 160.00 None 86
## 205 Male 18.667 Regul 179.10 Some 80
## 206 Female 17.083 Occas 168.00 Freq 83
## 207 Female 17.417 Never 153.50 Some 76
## 208 Male 18.583 Never 160.00 Some 84
## 209 Male 19.500 Never 165.00 None 97
## 210 Female 18.500 Never 171.50 Freq NA
## 211 Female 17.167 Never 160.00 Some 74
## 212 Female 17.250 Never 163.00 Some 83
## 213 Male 17.500 Never NA Freq 78
## 214 Male 20.417 Never 165.00 Some 65
## 215 Female 17.083 Never 168.90 Some 68
## 216 Male 21.250 Never 170.00 Some NA
## 217 Female 19.250 Never NA None NA
## 218 Male 19.333 Never 185.00 Freq 88
## 219 Female 19.167 Never 173.00 Freq NA
## 220 Male 18.917 Never 188.00 Freq 75
## 221 Male 20.917 Heavy 171.00 None NA
## 222 Female 17.333 Never 167.64 Freq 70
## 223 Female 18.167 Never 162.56 Some 88
## 224 Female 20.750 Never 150.00 Freq NA
## 225 Female 19.917 Never NA Some NA
## 226 Female 18.667 Never NA Some 96
## 227 Female 18.417 Heavy 170.18 Some 80
## 228 Male 17.417 Never 185.00 Freq 68
## 229 Female 20.333 Regul 167.00 Freq 70
## 230 Male 19.333 Occas 185.00 Freq 71
## 231 Female 18.167 Never 169.00 Some 80
## 232 Male 20.750 Never 180.34 Some NA
## 233 Female 17.667 Never 165.10 Some 85
## 234 Female 16.917 Never 160.00 Some 88
## 235 Female 18.583 Never 170.00 Some NA
## 236 Male 17.167 Never 183.00 Some 90
## 237 Female 17.750 Never 168.50 Freq 85
names(veri1)
## [1] "Sex" "Age" "Smoke" "Height" "Exer" "Pulse"
veri2<-veri1 %>%
rename(yaş=Age,
cinsiyet=Sex,
sigara=Smoke,
nabız=Pulse,
egzersiz=Exer,
boy=Height)
head(veri2)
## cinsiyet yaş sigara boy egzersiz nabız
## 1 Female 18.250 Never 173.00 Some 92
## 2 Male 17.583 Regul 177.80 None 104
## 3 Male 16.917 Occas NA None 87
## 4 Male 20.333 Never 160.00 None NA
## 5 Male 23.667 Never 165.00 Some 35
## 6 Female 21.000 Never 172.72 Some 64
veri2 %>% count(egzersiz,sigara,cinsiyet) %>% mutate(yuzde=round((n/sum(n))* 100,2))
## egzersiz sigara cinsiyet n yuzde
## 1 Freq Heavy Female 3 1.27
## 2 Freq Heavy Male 4 1.69
## 3 Freq Never Female 39 16.46
## 4 Freq Never Male 47 19.83
## 5 Freq Never <NA> 1 0.42
## 6 Freq Occas Female 5 2.11
## 7 Freq Occas Male 7 2.95
## 8 Freq Regul Female 2 0.84
## 9 Freq Regul Male 7 2.95
## 10 None Heavy Male 1 0.42
## 11 None Never Female 10 4.22
## 12 None Never Male 8 3.38
## 13 None Occas Female 1 0.42
## 14 None Occas Male 2 0.84
## 15 None Regul Male 1 0.42
## 16 None <NA> Male 1 0.42
## 17 Some Heavy Female 2 0.84
## 18 Some Heavy Male 1 0.42
## 19 Some Never Female 50 21.10
## 20 Some Never Male 34 14.35
## 21 Some Occas Female 3 1.27
## 22 Some Occas Male 1 0.42
## 23 Some Regul Female 3 1.27
## 24 Some Regul Male 4 1.69
# öğrencilerin %20'si (n=50) hiç sigara içmemektedir.