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)
veri2<-veri1 %>%
rename(yas=Age,
cinsiyet=Sex,
sigara=Smoke,
nabiz=Pulse,
egzersiz=Exer,
boy=Height)
veri2 %>%
count(egzersiz)
## egzersiz n
## 1 Freq 115
## 2 None 24
## 3 Some 98
veri2 %>%
count(egzersiz,cinsiyet,sigara) %>%
mutate(yuzde=round((n/sum(n))*100,2))
## egzersiz cinsiyet sigara n yuzde
## 1 Freq Female Heavy 3 1.27
## 2 Freq Female Never 39 16.46
## 3 Freq Female Occas 5 2.11
## 4 Freq Female Regul 2 0.84
## 5 Freq Male Heavy 4 1.69
## 6 Freq Male Never 47 19.83
## 7 Freq Male Occas 7 2.95
## 8 Freq Male Regul 7 2.95
## 9 Freq <NA> Never 1 0.42
## 10 None Female Never 10 4.22
## 11 None Female Occas 1 0.42
## 12 None Male Heavy 1 0.42
## 13 None Male Never 8 3.38
## 14 None Male Occas 2 0.84
## 15 None Male Regul 1 0.42
## 16 None Male <NA> 1 0.42
## 17 Some Female Heavy 2 0.84
## 18 Some Female Never 50 21.10
## 19 Some Female Occas 3 1.27
## 20 Some Female Regul 3 1.27
## 21 Some Male Heavy 1 0.42
## 22 Some Male Never 34 14.35
## 23 Some Male Occas 1 0.42
## 24 Some Male Regul 4 1.69