# ============================================================
# R ggplot2 ile Tez Grafikleri
# Senaryo: Bir kazi alaninda donemlere gore buluntu sayilari
#          (arkeoloji) farkli grafik turleriyle gorsellestiriliyor.
# Kullanim: Bu dosyayi, r-ggplot2-grafik-cizimi-veri.csv ve
#           r-ggplot2-grafik-cizimi-acma.csv dosyalarini ayni
#           klasore koyun, RStudio'da calistirin.
# Kaynak: veriakademi.com
# ============================================================

library(ggplot2)

# --- 1. Verileri oku ----------------------------------------
kayit <- read.csv("r-ggplot2-grafik-cizimi-veri.csv", fileEncoding = "UTF-8")
acma  <- read.csv("r-ggplot2-grafik-cizimi-acma.csv",  fileEncoding = "UTF-8")
kayit$donem <- factor(kayit$donem,
                      levels = c("Erken Tunc","Orta Tunc","Gec Tunc","Demir Cagi"))
head(kayit)

# --- 2. ggplot mantigi: veri + estetik + geometri -----------
# ggplot(veri, aes(x=..., y=...)) + geom_*()
# Her katman + ile eklenir; grafik parca parca kurulur.

# --- 3. Gruplu sutun grafigi --------------------------------
g1 <- ggplot(kayit, aes(x = donem, y = adet, fill = tur)) +
  geom_col(position = "dodge") +
  labs(x = "Donem", y = "Buluntu Sayisi", fill = "Buluntu Turu",
       title = "Donemlere Gore Buluntu Dagilimi") +
  theme_minimal(base_size = 13)
g1
ggsave("r-ggplot2-grafik-cizimi-grafik.png", g1, width = 9, height = 4.5, dpi = 100)

# --- 4. Sacilim: derinlik ile buluntu iliskisi --------------
g2 <- ggplot(acma, aes(x = derinlik_cm, y = buluntu, color = donem)) +
  geom_point(size = 2.5) +
  labs(x = "Derinlik (cm)", y = "Buluntu Adedi", color = "Donem",
       title = "Acma Derinligine Gore Buluntu Yogunlugu") +
  theme_minimal(base_size = 13)
g2
ggsave("r-ggplot2-grafik-cizimi-sacilim.png", g2, width = 9, height = 4.5, dpi = 100)

# --- 5. Tez icin cikti kalitesi -----------------------------
# ggsave ile boyut ve cozunurluk kontrol edilir:
# ggsave("grafik.png", g1, width = 16, height = 8, units = "cm", dpi = 300)
# Dergiler cogunlukla 300 dpi ister; width/height cm cinsinden verilebilir.