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 ##
## 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.