vize

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

library (lsr)

veri1 <- survey %>% 
 dplyr ::select(Sex,Age,Pulse,Exer, Height, Smoke)

veri2 <- veri1 %>% 
  rename (cinsiyet = Sex,
          yas = Age,
          boy = Height,
          sigara = Smoke,
          egzersiz = Exer,
          nabiz = Pulse,)

head (veri2)

##   cinsiyet    yas nabiz egzersiz    boy sigara
## 1   Female 18.250    92     Some 173.00  Never
## 2     Male 17.583   104     None 177.80  Regul
## 3     Male 16.917    87     None     NA  Occas
## 4     Male 20.333    NA     None 160.00  Never
## 5     Male 23.667    35     Some 165.00  Never
## 6   Female 21.000    64     Some 172.72  Never

names (veri2)

## [1] "cinsiyet" "yas"      "nabiz"    "egzersiz" "boy"      "sigara"

veri3 <- veri2 %>%
  mutate(
    cinsiyet = recode(cinsiyet,
                      "Female" = "Kadın",
                      "Male"   = "Erkek"),

    egzersiz = recode(egzersiz,
                      "None" = "Yok",
                      "Some" = "Bazen",
                      "Freq" = "Sık"),

    sigara = recode(sigara,
                    "Never" = "Hiç",
                    "Occas" = "Ara sıra",
                    "Regul" = "Düzenli",
                    "Heavy" = "Fazla")
  )

head (veri3)

##   cinsiyet    yas nabiz egzersiz    boy   sigara
## 1    Kadın 18.250    92    Bazen 173.00      Hiç
## 2    Erkek 17.583   104      Yok 177.80  Düzenli
## 3    Erkek 16.917    87      Yok     NA Ara sıra
## 4    Erkek 20.333    NA      Yok 160.00      Hiç
## 5    Erkek 23.667    35    Bazen 165.00      Hiç
## 6    Kadın 21.000    64    Bazen 172.72      Hiç

Tablodaki en kısa kişi 152 cmdir. 1.çeyrek kısım 165den kısadır Medyan değeri 171 dir Ortalamaları 172.5 cmdir 3.çeyrek 180 cmden kısadır Maksimum değer 200 cmdir en uzun kişi 200 cmdir

any(is.na(veri3))

## [1] TRUE

colSums(is.na(veri3))

## cinsiyet      yas    nabiz egzersiz      boy   sigara 
##        1        0       45        0       28        1

veri_son <- na.omit(veri3)

veri_son %>% 
  group_by(egzersiz) %>% 
  summarise(ortalama_nabiz = round(mean(nabiz),2))

## # A tibble: 3 × 2
##   egzersiz ortalama_nabiz
##   <fct>             <dbl>
## 1 Sık                71.4
## 2 Yok                75.9
## 3 Bazen              76.6

Bu tablo katılımcıların egzersiz yapma sıklığına göre ortalama nabız değerlerini göstermektedir sık egzersiz yapan insanlarda nabız daha düşük görülürken, bazen yapanlarda ise en çok görülmektedir hiç yapmayanlar 75.86 ile orta değer olarak kalmaktadır

median(survey $ Age)

## [1] 18.583

mean(survey $ Age)

## [1] 20.37451

modeOf(survey $ Age)

## [1] 17.5

Soru 5: Günlük yaşamımda sosyal medya kullanım süremi incelemek isterdim çünkü yemek yerken,birini beklerken,uyumaya çalışırken vb.zamanlarda sürekli Instagram,özellikle youtube tiktok gibi sosyal medyalarda çok fazla vakit geçiriyorum.İncelemek istediğim şeyler ise uyku süreme ruh halime,odaklanma süreme etkisi olurdu çünkü bazen ben bile odaklanamadığımı odak süremin geçmişe kıyasla sürekli düşüşte olduğunu hissedebiliyorun eğer böyle bir veri analizi yapma şansım olsaydı benden eksilttikleri şeyler veya belki kattığı şeyleri objektif bir şekilde anlayabilirdim.

summary(veri_son)

##   cinsiyet       yas            nabiz         egzersiz       boy       
##  Kadın:85   Min.   :16.92   Min.   : 35.00   Sık  :86   Min.   :152.0  
##  Erkek:85   1st Qu.:17.67   1st Qu.: 66.25   Yok  :14   1st Qu.:165.0  
##             Median :18.58   Median : 72.00   Bazen:70   Median :171.0  
##             Mean   :20.46   Mean   : 73.92              Mean   :172.5  
##             3rd Qu.:20.17   3rd Qu.: 80.00              3rd Qu.:180.0  
##             Max.   :70.42   Max.   :104.00              Max.   :200.0  
##       sigara   
##  Fazla   :  7  
##  Hiç     :136  
##  Ara sıra: 13  
##  Düzenli : 14  
##                
## 

en kısa kişi 152 cmdir 1. çeyrek 165 den kısadır medyan değeri 171 dir ortalama boy 172dir 3. çeyrek 180 cmden kısadır en uzun kişi 200 cmdir