Giriş

Bu ödevde Dünya Bankası (World Bank) verilerini kullanarak Türkiye’nin GSYİH yani Gayri Safi Yurtiçi Hasıla verilerine baktım. Ekonomimiz yıllar içinde nasıl değişmiş onu görmek istedim. Verileri çekmek için derste bahsettiğiniz WDI paketini kullandım.

# Türkiye'nin (TR) dolar bazlı GSYİH verisini indiriyorum.
# Başlangıç olarak 2000 yılını seçtim.
# Veriyi Dünya Bankası'ndan çekiyoruz
veri <- WDI(country = "TR", indicator = "NY.GDP.MKTP.CD", start = 2000, end = 2023)

# Gerekli sütunları seçip sıralıyoruz
veri <- veri[, c("iso2c", "country", "NY.GDP.MKTP.CD", "year")]

# Sütun isimlerini Türkçeleştiriyoruz
colnames(veri) <- c("Ulke_Kodu", "Ulke", "GSYIH", "Yil")
ggplot(veri, aes(x = Yil, y = GSYIH / 1000000000)) +
  geom_line(color = "blue") +
  geom_point() +
  labs(title = "Türkiye GSYİH Grafiği",
       x = "Yıl",
       y = "Milyar Dolar") +
  theme_minimal()

Cevap 1: Grafiğe baktığımda 2000 yılından sonra ekonominin genel olarak büyüdüğünü görüyorum fakat ekonomik kriz zamanları düşüşler olmuş. Sonra tekrar toparlanarak yükselmeye devam etmiş.

Soru 2: En yüksek GSYİH hangi yılda olmuş?

Veriler içindeki en yüksek rakamı bulup hangi yılda olduğuna baktım.

en_yuksek <- veri %>% filter(GSYIH == max(GSYIH))
print(en_yuksek)
##   Ulke_Kodu    Ulke        GSYIH  Yil
## 1        TR Turkiye 1.141243e+12 2023

Cevap 2: Tabloya göre Türkiye’nin dolar bazında en yüksek GSYİH değeri 2023 yılında görülmüş. O yıldan sonra biraz düşüş var.

Soru 3: 2002 ile 2022 arasında ne kadar fark var?

2002 yılındaki veriyle 2022 yılındaki veriyi oranlayarak kaç katına çıktığını hesapladım.

veri_2002 <- veri %>% filter(Yil == 2002) %>% pull(GSYIH)
veri_2022 <- veri %>% filter(Yil == 2022) %>% pull(GSYIH)

kat <- veri_2022 / veri_2002
print(kat)
## [1] 3.846271
## attr(,"label")
## [1] "GDP (current US$)"

Cevap 3: Hesaplamama göre 2022 yılındaki ekonomi, 2002 yılındakinin yaklaşık 3.85 katı büyüklüğünde büyük bir artış olmuş.

Soru 4: Bu yılların ortalaması kaç?

2000 ile 2023 yılları arasındaki ortalama milli gelirimizi hesapladım.

ort <- mean(veri$GSYIH)
print(paste("Ortalama:", format(ort, scientific = FALSE)))
## [1] "Ortalama: 701984970271"

Cevap 4: Yaptığım hesaba göre 23 yıllık ortalama GSYİH değerimiz yaklaşık 702 Milyar Dolar civarında.

Sonuç

Bu ödevde R kullanarak Dünya Bankası’ndan veri çekmeyi öğrendim. Türkiye’nin verilerini incelediğimde ekonominin 2000’lerin başına göre büyüdüğünü ama son yıllarda biraz dalgalı olduğunu gördüm. Grafiğe dökünce verileri daha iyi yorumladım.