odevimm
Ali Fatih ÇAM
2024-10-24
Dünya bankasından veri indirmek
library(WDI)
library(ggplot2)
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionturkiye_veri <- WDI(indicator = c("SP.POP.TOTL", "EN.ATM.CO2E.KT"), country = "TUR", start = 1960, end = 2023)abd_veri <- WDI(indicator = c("SP.POP.TOTL", "EN.ATM.CO2E.KT"), country = "USA", start = 1960, end = 2023)summary(turkiye_veri)## country iso2c iso3c year
## Length:64 Length:64 Length:64 Min. :1960
## Class :character Class :character Class :character 1st Qu.:1976
## Mode :character Mode :character Mode :character Median :1992
## Mean :1992
## 3rd Qu.:2007
## Max. :2023
##
## SP.POP.TOTL EN.ATM.CO2E.KT
## Min. :27510980 Min. :139198
## 1st Qu.:40294145 1st Qu.:193040
## Median :55811604 Median :235003
## Mean :55852661 Mean :260557
## 3rd Qu.:70381504 3rd Qu.:324443
## Max. :85326000 Max. :418098
## NA's :33summary(abd_veri)## country iso2c iso3c year
## Length:64 Length:64 Length:64 Min. :1960
## Class :character Class :character Class :character 1st Qu.:1976
## Mode :character Mode :character Mode :character Median :1992
## Mean :1992
## 3rd Qu.:2007
## Max. :2023
##
## SP.POP.TOTL EN.ATM.CO2E.KT
## Min. :180671000 Min. :4320532
## 1st Qu.:217519500 1st Qu.:4965677
## Median :254747500 Median :5156425
## Mean :258734856 Mean :5246397
## 3rd Qu.:301946897 3rd Qu.:5601021
## Max. :334914895 Max. :5775807
## NA's :33turkiye_non_finite <- turkiye_veri[!is.finite(turkiye_veri$EN.ATM.CO2E.KT), ]abd_non_finite <- abd_veri[!is.finite(abd_veri$EN.ATM.CO2E.KT), ]turkiye_veri_clean <- turkiye_veri[is.finite(turkiye_veri$EN.ATM.CO2E.KT), ]
abd_veri_clean <- abd_veri[is.finite(abd_veri$EN.ATM.CO2E.KT), ]ggplot(turkiye_veri_clean, aes(x = EN.ATM.CO2E.KT)) +
geom_histogram(binwidth = 5000, fill = "blue", color = "green") +
labs(title = "Turkiye'de CO2 Emisyonları",
x = "CO2 Emisyonları (Bin Ton)",
y = "Frekans")
ggplot(abd_veri_clean, aes(x = EN.ATM.CO2E.KT)) +
geom_histogram(binwidth = 5000, fill = "red", color = "black") +
labs(title = "ABD'de CO2 Emisyonları",
x = "CO2 Emisyonları (Bin Ton)",
y = "Frekans")
ggplot(abd_veri_clean, aes(x = year, y = SP.POP.TOTL))
geom_line(color = "orange") ## geom_line: na.rm = FALSE, orientation = NA
## stat_identity: na.rm = FALSE
## position_identity labs(title = "ABD'de Nüfus Artışı", x = "Yil", y = "Toplam Nufus")## $x
## [1] "Yil"
##
## $y
## [1] "Toplam Nufus"
##
## $title
## [1] "ABD'de Nüfus Artışı"
##
## attr(,"class")
## [1] "labels"ggplot(turkiye_veri_clean, aes(x = year, y = SP.POP.TOTL))
geom_line(color = "red")## geom_line: na.rm = FALSE, orientation = NA
## stat_identity: na.rm = FALSE
## position_identity labs(title = "Türkiye'de Nüfus Artışı", x = "Yil", y = "Toplam Nufus")## $x
## [1] "Yil"
##
## $y
## [1] "Toplam Nufus"
##
## $title
## [1] "Türkiye'de Nüfus Artışı"
##
## attr(,"class")
## [1] "labels"turkiye_model <- lm(EN.ATM.CO2E.KT ~ SP.POP.TOTL, data = turkiye_veri_clean)
summary(turkiye_model)##
## Call:
## lm(formula = EN.ATM.CO2E.KT ~ SP.POP.TOTL, data = turkiye_veri_clean)
##
## Residuals:
## Min 1Q Median 3Q Max
## -26559 -7797 -701 9578 40898
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.308e+05 2.388e+04 -18.05 <2e-16 ***
## SP.POP.TOTL 1.006e-02 3.448e-04 29.18 <2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 16370 on 29 degrees of freedom
## Multiple R-squared: 0.9671, Adjusted R-squared: 0.9659
## F-statistic: 851.5 on 1 and 29 DF, p-value: < 2.2e-16abd_model <- lm(EN.ATM.CO2E.KT ~ SP.POP.TOTL, data = abd_veri_clean)
summary(abd_model)##
## Call:
## lm(formula = EN.ATM.CO2E.KT ~ SP.POP.TOTL, data = abd_veri_clean)
##
## Residuals:
## Min 1Q Median 3Q Max
## -805756 -268621 -51650 335265 513073
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.187e+06 8.303e+05 7.452 3.27e-08 ***
## SP.POP.TOTL -3.200e-03 2.815e-03 -1.137 0.265
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 381600 on 29 degrees of freedom
## Multiple R-squared: 0.04268, Adjusted R-squared: 0.009671
## F-statistic: 1.293 on 1 and 29 DF, p-value: 0.2648ggplot(turkiye_veri_clean, aes(x = SP.POP.TOTL, y = EN.ATM.CO2E.KT)) +
geom_point() +
geom_smooth(method = "lm", color = "blue") +
labs(title = "Türkiye'de Nüfus ve CO2 Emisyonları Arasındaki İlişki",
x = "Toplam Nufus",
y = "CO2 Emisyonları (Bin Ton)")## `geom_smooth()` using formula = 'y ~ x'
ggplot(abd_veri_clean, aes(x = SP.POP.TOTL, y = EN.ATM.CO2E.KT)) +
geom_point() +
geom_smooth(method = "lm", color = "green") +
labs(title = "ABD'de Nüfus ve CO2 Emisyonları Arasındaki İlişki",
x = "Toplam Nufus",
y = "CO2 Emisyonları (Bin Ton)")## `geom_smooth()` using formula = 'y ~ x'
Sonuç olarak:
CO2 emisyonları, bir ülkenin çevresel sürdürülebilirliğini ve iklim değişikliği üzerindeki etkisini anlamak için kritik bir göstergedir. Türkiye ve ABD arasındaki CO2 emisyonları açısından yapılan analizler, farklı ekonomik, sanayi ve politik dinamiklerin bu emisyonlar üzerindeki etkilerini ortaya koymaktadır.
Türkiye: Emisyon Trendleri:
Türkiye’nin CO2 emisyonları, son birkaç on yılda önemli bir artış göstermiştir. Özellikle sanayileşme ve urbanizasyon süreçleri, emisyonların artışına katkıda bulunmuştur. 2020’lerde, Türkiye’nin CO2 emisyonları, enerji üretimi ve ulaşım sektöründeki artışlarla paralel bir seyir izlemiştir. Politikalar ve Hedefler:
Türkiye, 2030 yılına kadar sera gazı emisyonlarını azaltmayı hedeflemektedir. Bu hedefler, uluslararası anlaşmalar ve iklim değişikliği ile mücadele politikaları çerçevesinde şekillenmektedir. Yenilenebilir enerji kaynaklarının kullanımı artırılmakta, fosil yakıt bağımlılığını azaltma çabaları sürdürülmektedir. ABD: Emisyon Trendleri:
ABD, dünyanın en büyük CO2 emisyon kaynağıdır, ancak son yıllarda emisyonlar, enerji verimliliği ve yenilenebilir enerji yatırımları sayesinde azalma göstermiştir. 2019’dan itibaren, ABD’nin CO2 emisyonları COVID-19 pandemisi sırasında önemli ölçüde düşmüştür, ancak bu düşüş, kısa vadeli bir etkiden öteye gitmemiştir. Politikalar ve Hedefler:
ABD, Paris İklim Anlaşması’na yeniden katılma kararının ardından, emisyonları azaltma taahhütlerini güçlendirmiştir. Federal hükümet, yenilenebilir enerjiye geçişi hızlandırmayı ve karbon ayak izini azaltmayı amaçlamaktadır. Eyalet bazında uygulanan farklı politikalar, emisyon hedeflerine ulaşmada çeşitlilik göstermektedir. Karşılaştırmalı Analiz Ekonomik Farklılıklar: ABD’nin daha büyük bir ekonomi ve sanayi kapasitesine sahip olması, toplam emisyonlarının yüksek olmasına neden olurken, Türkiye’nin gelişmekte olan bir ülke olarak sanayileşme sürecinde emisyonlarının artması dikkat çekicidir. Politik Yaklaşımlar: Türkiye’nin emisyon azaltma hedefleri, ekonomik büyüme ve sanayileşme ile dengelemeye çalışırken, ABD, daha önceki hedeflerinden geri adım atmakla eleştirilmiştir, ancak son dönemde yeniden sert önlemler almaya yönelmiştir. Sonuç Türkiye ve ABD, CO2 emisyonları açısından farklı dinamikler ve politikalar izlemektedir. Her iki ülkenin de iklim değişikliği ile mücadele için attığı adımlar, uluslararası işbirliği ve yerel politikaların entegrasyonu açısından önem taşımaktadır. Emisyonların azaltılması, hem iklim hedeflerine ulaşmak hem de sürdürülebilir bir gelecek sağlamak için kritik bir öneme sahiptir.