Untitled

Mann Whitney U Testi

Bir üniversitenin psikoloji bölümünde çalışan araştırmacılar, öğrencilerin yoğun sosyal medya kullanımı nedeniyle odaklanma sürelerinin düştüğünü fark etmiştir. Özellikle haftada bir gün tam gün sosyal medya detoksu yapan öğrencilerin derslerde daha uzun süre odaklanabildiği dikkat çekmiştir. Bunun üzerine araştırmacılar şu soruya yanıt aramıştır: > “Düzenli sosyal medya detoksu yapan psikoloji öğrencilerinin odaklanma süreleri (dakika), detoks yapmayan öğrencilerden farklı mıdır?” > Veriler normal dağılım varsayımını sağlamadığı için parametrik olmayan (nonparametrik) testlerden biri olan Mann-Whitney U testi kullanılmıştır. * Bağımsız değişken: Detoks durumu (Yapan / Yapmayan) * Bağımlı değişken: Odaklanma süresi (Dakika)

library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.2.1     ✔ readr     2.2.0
## ✔ forcats   1.0.1     ✔ stringr   1.6.0
## ✔ ggplot2   4.0.3     ✔ tibble    3.3.0
## ✔ lubridate 1.9.5     ✔ tidyr     1.3.2
## ✔ purrr     1.2.0     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(lsr)
library(broom)
library(ggplot2)

detoks_yapan <- c(45, 50, 42, 48, 55, 47, 52, 49)
detoks_yapmayan <- c(30, 25, 28, 35, 32, 27, 22, 29)

odaklanma <- c(detoks_yapan, detoks_yapmayan)
grup <- factor(c(rep("Detoks Yapan", length(detoks_yapan)),
                 rep("Detoks Yapmayan", length(detoks_yapmayan))))

odak_veri <- data.frame(grup, odaklanma)
odak_veri

##               grup odaklanma
## 1     Detoks Yapan        45
## 2     Detoks Yapan        50
## 3     Detoks Yapan        42
## 4     Detoks Yapan        48
## 5     Detoks Yapan        55
## 6     Detoks Yapan        47
## 7     Detoks Yapan        52
## 8     Detoks Yapan        49
## 9  Detoks Yapmayan        30
## 10 Detoks Yapmayan        25
## 11 Detoks Yapmayan        28
## 12 Detoks Yapmayan        35
## 13 Detoks Yapmayan        32
## 14 Detoks Yapmayan        27
## 15 Detoks Yapmayan        22
## 16 Detoks Yapmayan        29

sonuc_detoks <- wilcox.test(odaklanma ~ grup, data = odak_veri)
sonuc_detoks

## 
##  Wilcoxon rank sum exact test
## 
## data:  odaklanma by grup
## W = 64, p-value = 0.0001554
## alternative hypothesis: true location shift is not equal to 0

wilcox.test(odaklanma ~ grup, data = odak_veri) %>% tidy()

## # A tibble: 1 × 4
##   statistic  p.value method                       alternative
##       <dbl>    <dbl> <chr>                        <chr>      
## 1        64 0.000155 Wilcoxon rank sum exact test two.sided

ggplot(odak_veri, aes(x = grup, y = odaklanma, fill = grup)) +
  geom_boxplot(alpha = 0.6) +
  geom_jitter(width = 0.1, alpha = 0.6) +
  labs(title = "Sosyal Medya Detoksuna Gore Odaklanma Sureleri",
       x = "Grup",
       y = "Odaklanma Suresi (Dakika)") +
  theme_minimal()

Analiz sonucunda düzenli sosyal medya detoksu yapan ve yapmayan öğrencilerin odaklanma süreleri arasında anlamlı bir fark bulunmuştur. * Mann-Whitney U testi sonucu: W = 64, p < .001 Buna göre düzenli detoks yapan öğrencilerin odaklanma süreleri, detoks yapmayan öğrencilere göre belirgin şekilde daha yüksektir.

##yorumlama Düzenli sosyal medya detoksu yapan ve yapmayan öğrencilerin odaklanma süreleri arasında anlamlı bir fark olup olmadığını incelemek amacıyla Mann-Whitney U testi uygulanmıştır. Analiz sonucunda gruplar arasında anlamlı farklılık bulunmuştur, W = 64, p < .001. Bulgular, sosyal medya detoksu yapan öğrencilerin ders çalışırken veya akademik işlerle ilgilenirken daha yüksek odaklanma süresine sahip olduğunu göstermektedir.