# ============================================================
# R ile Ki-Kare Bagimsizlik Testi
# Senaryo: 240 katilimcili ankette cinsiyet ile en cok
#          kullanilan sosyal medya platformu arasindaki iliski.
# Kullanim: Bu dosyayi ve r-ki-kare-testi-veri.csv dosyasini
#           ayni klasore koyun, RStudio'da calistirin.
# Kaynak: veriakademi.com
# ============================================================

# --- 1. Veriyi oku ------------------------------------------
veri <- read.csv("r-ki-kare-testi-veri.csv", fileEncoding = "UTF-8")
head(veri)

# --- 2. Capraz tablo (kontenjans tablosu) -------------------
tablo <- table(veri$cinsiyet, veri$platform)
tablo
prop.table(tablo, margin = 1)  # satir yuzdeleri

# --- 3. Ki-kare bagimsizlik testi ---------------------------
sonuc <- chisq.test(tablo)
sonuc

# --- 4. Varsayim kontrolu: beklenen frekanslar --------------
# Kural: beklenen degerlerin %20'sinden fazlasi 5'in altinda
# olmamali. Ihlal varsa Fisher testi kullanilir.
sonuc$expected
# Ihtiyac halinde: fisher.test(tablo)

# --- 5. Etki buyuklugu (Cramer V) ---------------------------
library(effectsize)
cramers_v(tablo)

# --- 6. Gruplu sutun grafigi (teze eklenebilir) -------------
library(ggplot2)
grafik <- ggplot(veri, aes(x = platform, fill = cinsiyet)) +
  geom_bar(position = "dodge") +
  labs(x = "Platform", y = "Katilimci Sayisi", fill = "Cinsiyet",
       title = "Cinsiyete Gore Platform Tercihi") +
  theme_minimal(base_size = 13)
grafik
ggsave("r-ki-kare-testi-grafik.png", grafik, width = 9, height = 4.5, dpi = 100)