Dünya bankasından veri indirmek

library(WDI)

SP.URB.TOTL NE.EXP.GNFS.ZS

data <- WDI(indicator= c("SP.URB.TOTL", "NE.EXP.GNFS.ZS"))

Kesit veri

2005

library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.1     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
data2005 <- data %>% filter(year==2005)

Zaman Serisi

dataTR <- data %>% filter(country=="Turkiye")
library(ggplot2)
ggplot(dataTR, aes(year, SP.URB.TOTL)) + geom_line()

Regresyon

  model <- lm(SP.URB.TOTL ~ NE.EXP.GNFS.ZS, data = dataTR)
summary(model)
## 
## Call:
## lm(formula = SP.URB.TOTL ~ NE.EXP.GNFS.ZS, data = dataTR)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -11074727  -3449845    236549   3567550  12426977 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     5523117    1287217   4.291 6.35e-05 ***
## NE.EXP.GNFS.ZS  1768441      68595  25.781  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 5314000 on 62 degrees of freedom
## Multiple R-squared:  0.9147, Adjusted R-squared:  0.9133 
## F-statistic: 664.7 on 1 and 62 DF,  p-value: < 2.2e-16

dsaldkasşlfjşe kdfjklwfw