ödev1

dünya bankasından veri indirme

AG.PRD.LVSK.XD hayvancılık üretim endeksi AG.LND.FRST.K2 orman alanı

library(WDI)

data = WDI(indicator=c("AG.PRD.LVSK.XD","AG.LND.FRST.K2"))

kesit veri

2004

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

data2004 <- data %>% filter(year==2004)

zaman serisi

dataAU <- data %>% filter(country=="Australia")

library(ggplot2)

ggplot(dataAU, aes(year, AG.PRD.LVSK.XD))+ geom_line()

## Warning: Removed 2 rows containing missing values or values outside the scale range
## (`geom_line()`).

II. Dünya Savaşı, 1939’dan 1945’e kadar süren küresel savaştır. II. Dünya Savaşı’nın 1 Eylül 1939’da Almanya’nın Polonya’yı istila etmesi ve ardından 3 Eylül’de Birleşik Krallık ve Fransa’nın Almanya’ya savaş ilan etmesiyle başladığı kabul edilir. 1990’da Almanya’nın geleceğini ilgilendiren bir antlaşma, Doğu ve Batı Almanya’nın yeniden birleşmesine zemin hazırladı ve bu, II. Dünya Savaşı’nın sebep olduğu savaş sonrası sorunların çoğunu çözdü. Kuril adaları anlaşmazlığı sebebiyle Japonya ile Sovyetler Birliği arasında hiçbir zaman resmi bir barış antlaşması imzalanmadı.

regresyon

 model <- lm(AG.PRD.LVSK.XD ~ AG.LND.FRST.K2, data = dataAU)

summary(model)

## 
## Call:
## lm(formula = AG.PRD.LVSK.XD ~ AG.LND.FRST.K2, data = dataAU)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -8.9550 -3.2148 -0.3511  2.5290 12.9241 
## 
## Coefficients:
##                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)    3.632e+01  9.217e+01   0.394    0.696
## AG.LND.FRST.K2 3.993e-05  6.973e-05   0.573    0.571
## 
## Residual standard error: 5.68 on 30 degrees of freedom
##   (32 observations deleted due to missingness)
## Multiple R-squared:  0.01081,    Adjusted R-squared:  -0.02216 
## F-statistic: 0.3278 on 1 and 30 DF,  p-value: 0.5712

İki veri arasında pozitif yönlü bir ilişki vardır