1. GSYİH Karşılaştırması (2015-2024)

gsyih_data <- data.frame(
  Yil = rep(2015:2024, 2),
  Ulke = rep(c("ABD", "Türkiye"), each = 10),
  GSYİH = c(18200, 18700, 19500, 20600, 21400, 20900, 23300, 25500, 27400, 28000,
            860, 863, 851, 771, 761, 720, 815, 906, 1030, 1100)
)

ggplot(gsyih_data, aes(x = Yil, y = GSYİH, color = Ulke, group = Ulke)) +
  geom_line(size = 1.5) +
  geom_point(size = 3) +
  labs(title = "GSYİH Karşılaştırması (Milyar USD)",
       x = "Yıl", y = "GSYİH (Milyar USD)") +
  theme_minimal() +
  scale_color_manual(values = c("ABD" = "blue", "Türkiye" = "red"))

2. Enflasyon Oranları (2015-2024)

enflasyon_data <- data.frame(
  Yil = rep(2015:2024, 2),
  Ulke = rep(c("ABD", "Türkiye"), each = 10),
  Enflasyon = c(0.1, 1.3, 2.1, 2.4, 1.8, 1.2, 4.7, 8.0, 4.1, 2.9,
                7.7, 7.8, 11.1, 16.3, 15.2, 12.3, 19.6, 64.8, 51.9, 44.2)
)

ggplot(enflasyon_data, aes(x = Yil, y = Enflasyon, fill = Ulke)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(title = "Yıllık Enflasyon Oranları (%)",
       x = "Yıl", y = "Enflasyon (%)") +
  theme_minimal() +
  scale_fill_manual(values = c("ABD" = "steelblue", "Türkiye" = "coral"))

3. İşsizlik Oranı Karşılaştırması

issizlik_data <- data.frame(
  Yil = rep(2015:2024, 2),
  Ulke = rep(c("ABD", "Türkiye"), each = 10),
  Issizlik = c(5.3, 4.9, 4.4, 3.9, 3.7, 8.1, 5.4, 3.6, 3.6, 4.1,
               10.3, 10.9, 10.9, 11.0, 13.7, 13.1, 12.0, 10.4, 9.4, 8.6)
)

ggplot(issizlik_data, aes(x = factor(Yil), y = Issizlik, fill = Ulke)) +
  geom_boxplot() +
  labs(title = "İşsizlik Oranları Dağılımı (%)",
       x = "Dönem (2015-2024)", y = "İşsizlik Oranı (%)") +
  theme_minimal() +
  scale_fill_manual(values = c("ABD" = "#4477AA", "Türkiye" = "#EE6677"))

4. Kişi Başına GSYİH (2024)

kisi_basina <- data.frame(
  Ulke = c("ABD", "Türkiye"),
  Kisi_Basina_GSYİH = c(85000, 12800)
)

ggplot(kisi_basina, aes(x = Ulke, y = Kisi_Basina_GSYİH, fill = Ulke)) +
  geom_bar(stat = "identity", width = 0.6) +
  geom_text(aes(label = paste0("$", Kisi_Basina_GSYİH)), 
            vjust = -0.5, size = 5, fontface = "bold") +
  labs(title = "Kişi Başına GSYİH (2024)",
       x = "", y = "USD") +
  theme_minimal() +
  scale_fill_manual(values = c("ABD" = "darkblue", "Türkiye" = "darkred")) +
  theme(legend.position = "none")

5. Faiz Oranları Trendi (2020-2024)

faiz_data <- data.frame(
  Tarih = rep(seq(as.Date("2020-01-01"), as.Date("2024-12-01"), by = "6 months"), 2),
  Ulke = rep(c("ABD", "Türkiye"), each = 10),
  Faiz = c(1.75, 0.25, 0.25, 0.25, 0.25, 1.50, 4.50, 5.25, 5.50, 4.75,
           11.25, 8.25, 10.25, 14.00, 19.00, 35.00, 45.00, 50.00, 42.50, 47.50)
)

ggplot(faiz_data, aes(x = Tarih, y = Faiz, color = Ulke)) +
  geom_line(size = 1.2) +
  geom_point(size = 2.5) +
  labs(title = "Merkez Bankası Faiz Oranları (%)",
       x = "Tarih", y = "Faiz Oranı (%)") +
  theme_minimal() +
  scale_color_manual(values = c("ABD" = "navy", "Türkiye" = "firebrick"))

6. Dış Ticaret Dengesi (2024)

ticaret_data <- data.frame(
  Kategori = rep(c("İhracat", "İthalat"), 2),
  Ulke = rep(c("ABD", "Türkiye"), each = 2),
  Deger = c(2100, 3300, 260, 370)
)

ggplot(ticaret_data, aes(x = Ulke, y = Deger, fill = Kategori)) +
  geom_bar(stat = "identity", position = "dodge", width = 0.7) +
  labs(title = "Dış Ticaret Karşılaştırması (2024)",
       x = "", y = "Milyar USD") +
  theme_minimal() +
  scale_fill_manual(values = c("İhracat" = "darkgreen", "İthalat" = "darkorange"))

7. Ekonomik Büyüme Oranları Dağılımı (2015-2024)

buyume_data <- data.frame(
  Yil = rep(2015:2024, 2),
  Ulke = rep(c("ABD", "Türkiye"), each = 10),
  Buyume = c(2.7, 1.7, 2.3, 3.0, 2.3, -2.8, 5.8, 5.9, 2.5, 2.8,
             6.1, 3.3, 7.5, 3.0, 0.9, 1.8, 11.4, 5.5, 4.5, 3.2)
)

ggplot(buyume_data, aes(x = Buyume, fill = Ulke)) +
  geom_density(alpha = 0.6) +
  labs(title = "Ekonomik Büyüme Oranları Yoğunluk Dağılımı (%)",
       x = "Büyüme Oranı (%)", y = "Yoğunluk") +
  theme_minimal() +
  scale_fill_manual(values = c("ABD" = "dodgerblue", "Türkiye" = "tomato"))

Sonuç

Bu grafikler ABD ve Türkiye ekonomilerinin 2015-2024 dönemindeki temel makroekonomik göstergelerini karşılaştırmaktadır. Veriler, iki ülke arasındaki yapısal farklılıkları ve ekonomik gelişmeleri net bir şekilde ortaya koymaktadır.