library (gapminder)
## Warning: package 'gapminder' was built under R version 4.5.2
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, union
library (ggplot2)
data("gapminder")
gapminder_tr<-gapminder
ulke (country)
yil (year)
yasam_beklentisi (lifeExp)
kisi_basi_gelir (gdpPercap)
kita (continent)
gapminder_tr<-gapminder %>%
rename(ulke = country,
yil = year,
yasam_beklentisi = lifeExp,
kisi_basi_gelir = gdpPercap,
kita = continent
)
summary(gapminder_tr)
## ulke kita yil yasam_beklentisi
## Afghanistan: 12 Africa :624 Min. :1952 Min. :23.60
## Albania : 12 Americas:300 1st Qu.:1966 1st Qu.:48.20
## Algeria : 12 Asia :396 Median :1980 Median :60.71
## Angola : 12 Europe :360 Mean :1980 Mean :59.47
## Argentina : 12 Oceania : 24 3rd Qu.:1993 3rd Qu.:70.85
## Australia : 12 Max. :2007 Max. :82.60
## (Other) :1632
## pop kisi_basi_gelir
## Min. :6.001e+04 Min. : 241.2
## 1st Qu.:2.794e+06 1st Qu.: 1202.1
## Median :7.024e+06 Median : 3531.8
## Mean :2.960e+07 Mean : 7215.3
## 3rd Qu.:1.959e+07 3rd Qu.: 9325.5
## Max. :1.319e+09 Max. :113523.1
##
data(gapminder_tr)
## Warning in data(gapminder_tr): data set 'gapminder_tr' not found
count(gapminder_tr)
## # A tibble: 1 × 1
## n
## <int>
## 1 1704
mean(gapminder_tr$yasam_beklentisi)
## [1] 59.47444
median(gapminder_tr$yasam_beklentisi)
## [1] 60.7125
range(gapminder_tr$yasam_beklentisi)
## [1] 23.599 82.603
table(gapminder_tr$kita)
##
## Africa Americas Asia Europe Oceania
## 624 300 396 360 24
prop.table(table(gapminder_tr$kita)) * 100
##
## Africa Americas Asia Europe Oceania
## 36.619718 17.605634 23.239437 21.126761 1.408451
glimpse(gapminder_tr)
## Rows: 1,704
## Columns: 6
## $ ulke <fct> "Afghanistan", "Afghanistan", "Afghanistan", "Afghani…
## $ kita <fct> Asia, Asia, Asia, Asia, Asia, Asia, Asia, Asia, Asia,…
## $ yil <int> 1952, 1957, 1962, 1967, 1972, 1977, 1982, 1987, 1992,…
## $ yasam_beklentisi <dbl> 28.801, 30.332, 31.997, 34.020, 36.088, 38.438, 39.85…
## $ pop <int> 8425333, 9240934, 10267083, 11537966, 13079460, 14880…
## $ kisi_basi_gelir <dbl> 779.4453, 820.8530, 853.1007, 836.1971, 739.9811, 786…
names(gapminder_tr)
## [1] "ulke" "kita" "yil" "yasam_beklentisi"
## [5] "pop" "kisi_basi_gelir"
data(gapminder_tr)
## Warning in data(gapminder_tr): data set 'gapminder_tr' not found
gapminder_tr <- lm(kisi_basi_gelir ~ yasam_beklentisi, data = gapminder_tr)
summary(gapminder_tr)
##
## Call:
## lm(formula = kisi_basi_gelir ~ yasam_beklentisi, data = gapminder_tr)
##
## Residuals:
## Min 1Q Median 3Q Max
## -11483 -4539 -1223 2482 106950
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -19277.25 914.09 -21.09 <2e-16 ***
## yasam_beklentisi 445.44 15.02 29.66 <2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 8006 on 1702 degrees of freedom
## Multiple R-squared: 0.3407, Adjusted R-squared: 0.3403
## F-statistic: 879.6 on 1 and 1702 DF, p-value: < 2.2e-16
coef(gapminder_tr)
## (Intercept) yasam_beklentisi
## -19277.2490 445.4447
gapminder_tr<-gapminder_tr
#gapminder_tr<-gapminder_tr|>
# select(yasam_beklentisi, kisi_basi_gelir)|>
# na.omit()
eğim (β₁)
kesişim (β₀)
R-kare (R²)
geom_jitter fonksiyonunun kullanım amacı
nedir?Jitter geom, kullanışlı bir kısayoldur. geom_point. Her noktanın konumuna küçük bir miktar rastgele varyasyon ekler ve daha küçük veri kümelerindeki süreksizlikten kaynaklanan üst üste binmeyi ele almanın faydalı bir yoludur. Geom_jitter R/ggplot2 paketinde kullanılan ve özellikle üst üste binen (overlapping) veri noktalarını görünür hale getirmek için tasarlanmış bir geometridir. *Aynı değere sahip çok sayıda gözlem varsa, noktalar grafikte tek bir nokta gibi görünüyorsa, “kaç tane veri var, nerede yoğunlaşıyorlar?” sorusuna cevap veremiyorsak geom_jitter kullanılır.