İLK ÖDEV

SL.TLF.0714.FE.ZS(çalışan çocuklar,kız) SL.TLF.0714.MA.ZS(çalışan çocuklar,erkek)

##dünya bankasından veri indirmek

library(WDI)

data <- WDI(indicator = c("SL.TLF.0714.FE.ZS", "SL.TLF.0714.MA.ZS"))

##kesit veri

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

data2003 <- data %>% filter(year == 2003) 

##zaman serisi

dataTR <- data %>% filter(country == "Turkey")

names(dataTR)

## [1] "country"           "iso2c"             "iso3c"            
## [4] "year"              "SL.TLF.0714.FE.ZS" "SL.TLF.0714.MA.ZS"

library(ggplot2)

ggplot(dataTR, aes(SL.TLF.0714.MA.ZS)) + geom_line()

ggplot(dataTR, aes(SL.TLF.0714.MA.ZS, SL.TLF.0714.FE.ZS )) + geom_point()

ggplot(dataTR , aes(SL.TLF.0714.MA.ZS)) + geom_histogram()

##regresyon

model <- lm(SL.TLF.0714.FE.ZS ~ SL.TLF.0714.MA.ZS, data = data)

summary(model)

## 
## Call:
## lm(formula = SL.TLF.0714.FE.ZS ~ SL.TLF.0714.MA.ZS, data = data)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -20.3292  -1.6946   0.7608   2.5600  22.2164 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)       -2.86668    0.46557  -6.157 2.57e-09 ***
## SL.TLF.0714.MA.ZS  0.97199    0.01649  58.939  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 4.653 on 279 degrees of freedom
##   (16743 observations deleted due to missingness)
## Multiple R-squared:  0.9257, Adjusted R-squared:  0.9254 
## F-statistic:  3474 on 1 and 279 DF,  p-value: < 2.2e-16