SSB201-28.11.2025

R Markdown

Soru 1: Bu veri setini etkinleştirerek Sex (cinsiyet)“,”Age (yaş)“,”Pulse (nabiz)” ve “Exer (egzersiz)”, “Height (boy)”, “Smoke (sigara) değişkenlerini seçin. Seçtiğiniz bu değişkenlerden oluşan veri setini veri_1 olarak isimlendirin

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)

data("survey")

names("survey")

## NULL

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

Soru 1.1: veri_1 veri setindeki değişkenlerin isimlerini Türkçeleştirin ve bu veri setini veri_2 olarak isimlendirin.

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

Soru 1.2: veri_2’nin ilk 10 satırını görüntüleyin.

head(veri_2,10)

##    cinsiyet    yas sigara    boy egzersiz nabiz
## 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

Soru 2: veri_2 veri setindeki kategorik değişkenlerin etiketlerini (örn. never, some, heavy) Türkçeleştirin ve bu veri setini veri_3 olarak isimlendirin.

veri_3<-veri_2 %>% 
  mutate(
    cinsiyet=recode(cinsiyet,
                    "Female"="Kadin",
                    "Male"="Erkek"),
    egzersiz=recode(egzersiz,
                    "None"="Yok",
                    "Some"="Bazen",
                    "Freq"="Sik"),
    sigara=recode(sigara,
                  "Never"="Hic",
                  "Occas"="Ara Sira",
                  "Regul"="Düzenli",
                  "Heavy"="Fazla"))

Soru 3: veri_3 veri setindeki eksik değerleri sorgulayın. Eksik değer varsa çıkarın ve gözlem sayısındaki farkı açıklayın. Veri setinin son halini veri_son olarak isimlendirin.

any(is.na(veri_3))

## [1] TRUE

colSums(is.na(veri_3))

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

veri_son<-na.omit(veri_3)

Soru 4: veri_son için yas, nabiz ve boy değişkenlerinin değerlerini açıklayın

summary(veri_son[, c("yas","nabiz","boy")])

##       yas            nabiz             boy       
##  Min.   :16.92   Min.   : 35.00   Min.   :152.0  
##  1st Qu.:17.67   1st Qu.: 66.25   1st Qu.:165.0  
##  Median :18.58   Median : 72.00   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

Soru 4.1: Egzersiz sıklığına göre ortalama nabzı hesapladığınız bir tablo oluşturun. Bu tablodaki değerlerin açıklamasını yazın.

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

## # A tibble: 3 × 2
##   egzersiz ortalama_nabiz
##   <fct>             <dbl>
## 1 Sik                  71
## 2 Yok                  76
## 3 Bazen                77

Soru 4.2: veri_son için yas değişkenine ait mod, medyan ve aritmetik ortalama değerlerini hesaplayın.

mean(veri_son$yas)

## [1] 20.46377

median(veri_son$yas)

## [1] 18.583

modeOf(veri_son$yas)

## [1] 17.5

Soru 5: Günlük yaşamınızda veri toplayarak analiz etmek isteyebileceğiniz bir durum düşünün (sosyal medya kullanım süresi, kahve tüketimi, sınav kaygısı…). Bu durumu kısaca açıklayın.

şuan sınav haftasındayım bu dosyayı da sınav haftasında hazırlıyorum bu yüzden bu hafta yaşadığım bir sorun üzerine bir açıklama hazırladım bu hafta benim için tamamen ders çalışmakla geçti ancak ders çalışırken evdeki ses düzeyleri okuduğum şeyleri algılamamda sorun çıkardı. bu yüzden durum olarak evdeki gürültü seviyesi ile ders çalışma verimim arasındaki etkiyi incelemek istedim.

kimlerden veri toplayacağım? evimde yaşadığım aile kişilerimden: annem,babam,ablam,kardeşim aynı ortamda yaşasak bile herkesin gürültü seviyesinde anlama düzeyinin farklı olduğunu düşünüyorum.

bu kişilerden hangi bilgileri almak anlamlı olur? -Gün içinde televizyon,tablet,bilgisayar veya müzik açtıkları ortalama süre - Evde ses çıkardıkları aktiviteler (süpürge yapmak,televizyon,müzik açmak) - Evdeki gürültünün onların kendi anlama seviyelerini etkileyip etkilemediği - hangi saatlerde daha yoğun gürültü hissettikleri

Bu bilgiler hem genel gürültü seviyesini ölçmemi hem de kendi ders verimimle ilişki kurmamı sağlayacaktır Toplayacağım bilgiler kapsamındaki değişken türleri:

Bu çalışmada kullanacağım değişken türleri şunlar olabilir 1.Gürültü düzeyi örneğin: tv ses düzeyi 0-100 arası , dış ortamdan gelen ses düzeyi 0-10 arası 2. Gürültünün beni ders çalışırken rahatsız etme derecesi örneğin; 1 = hiç rahatsız etmiyor 5 = çok rahatsız ediyor gibi. 3. Gün içinde ders çalışma sürem Örneğin: 0–5 saat arası

topladığım verilerle ilgili frekans tablosu yapmak için üç değişken seçtim 
bunlar;
1-televizyon/radyo/müzik sesi
2- dış ortamdan gelen gürültü 
3- benim ders çalışırken dikkat seviyem 

tanımlayısı değerleri hesaplayabileceğim üç değişken olarak
1.Televizyon/radyo sesi (0-10)
= Evdeki televizyon veya radyonun ses düzeyi.
    Ölçüm: 0 = kapalı, 10 = çok yüksek.
2.  Dışarı gürültüsü (0-10)

= Sokak, komşu veya trafik seslerinin yoğunluğu. Ölçüm: 0 = hiç gürültü yok, 10 = çok yoğun gürültü. 3. Ders çalışma verimim (0-10) = Gürültüye rağmen ders çalışırken kendimi ne kadar verimli hissettiğim. Ölçüm: 0 = hiç verimli değilim, 10 = çok verimli hissediyorum.

topladığım bu verilerle oluşturduğum bu veri setinde ev ortamındaki televizyon/radyo/müzik sesi ve dış ortamdan gelen seslerin ders çalışma verimim üzerine etkisini sayısal olarak ölçmemi sağladı