Ekonometri proje

İlk Proje

.R yükleme

.markdown başlangıç

.Web sayfasını hazırlama

.Internete yükleme

FORMUL YAZMA

\[ \pi= \frac{P_t-P_{t-1}}{P_{t-1}} \]

library(WDI)
library(ggplot2)
# İlk olarak, gerekli kütüphaneleri yükleyelim
install.packages("ggplot2") # ggplot2 paketini yükleyin
## Warning: package 'ggplot2' is in use and will not be installed
library(ggplot2)

# Somali ve Japonya'nın yıllık enflasyon oranları
somali_enflasyon <- c(4.5, 5.2, 6.8, 7.3, 8.1) # 2019-2023 arası veriler varsayılan olarak
japonya_enflasyon <- c(0.5, 0.8, 1.2, 0.9, 1.5) # Aynı dönemde Japonya için varsayılan veriler

# Yıllar
yillar <- c(2019, 2020, 2021, 2022, 2023)

# Verileri bir veri çerçevesine koymak
enflasyon_verileri <- data.frame(Yıl = yillar, Somali = somali_enflasyon, Japonya = japonya_enflasyon)

# Grafik oluşturma
ggplot(enflasyon_verileri, aes(x = Yıl)) +
  geom_line(aes(y = Somali, color = "Somaliya")) +
  geom_line(aes(y = Japonya, color = "Japonya")) +
  scale_color_manual(values = c("Somaliya" = "red", "Japonya" = "blue")) + # Renkleri ayarlayın
  labs(title = "Somaliya ve Japonya Enflasyon Oranları",
       x = "Yıl",
       y = "Yıllık Enflasyon Oranı (%)") +
  theme_minimal() # Temayı ayarlayın

## Makine Öğrenmesi Açıklayın?

Makine öğrenmesi, bilgisayar sistemlerinin belirli bir görevi veya problemi, açıkça programlanmış olmadan, veri üzerinden öğrenme yeteneği kazanarak çözmelerini sağlayan bir yapay zeka alt dalıdır. Geleneksel yazılım geliştirme süreçlerinden farklı olarak, makine öğrenmesinde bilgisayarlar, deneyimlerinden (veri) öğrenir ve bu deneyimleri kullanarak gelecekteki kararlarını ve davranışlarını belirlerler.

Makine öğrenmesi genellikle üç ana kategori altında incelenir:

Denetimli Öğrenme (Supervised Learning): Denetimli öğrenme, giriş verileriyle birlikte eşleştirilmiş doğru çıkışlar kullanılarak modelin öğrenmesini sağlar. Amacı, modelin verilerdeki desenleri algılayıp yeni girişler için doğru çıktıları tahmin etmesini sağlamaktır. Denetimli öğrenme problemleri, sınıflandırma (classification) ve regresyon (regression) olarak iki ana kategoriye ayrılır. Sınıflandırma, verileri belirli bir kategoriye atamakla ilgilenirken, regresyon, sürekli bir çıktı değeri tahmin etmekle ilgilenir.

Denetimsiz Öğrenme (Unsupervised Learning): Denetimsiz öğrenme, giriş verilerinin etiketlenmemiş olduğu durumlarda kullanılır. Amacı, veri setindeki gizli yapıları ve desenleri bulmak ve veri setini anlamak için kullanılır. Kümelenme (clustering) ve boyut indirgeme (dimensionality reduction) gibi teknikler bu kategoride bulunur. Kümelenme, veri noktalarını benzerliklerine göre gruplara ayırırken, boyut indirgeme, veri setindeki gereksiz özellikleri veya gürültüyü ortadan kaldırarak işlemi daha etkili hale getirir.

Pekiştirmeli Öğrenme (Reinforcement Learning): Pekiştirmeli öğrenme, bir ajanın belirli bir ortamda, belirli bir hedefi elde etmek için doğru eylemleri seçmesini öğreten bir öğrenme yaklaşımıdır. Ajan, ortama göre farklı eylemler seçer ve bu eylemlerin sonuçlarına dayanarak ödüller veya cezalar alır. Amacı, uzun vadede en yüksek toplam ödülü (veya en düşük toplam cezayı) elde edecek şekilde davranışı öğrenmektir. Pekiştirmeli öğrenme, robot kontrolü, oyun stratejileri ve otomatik araç sürüşü gibi alanlarda kullanılır.

Makine öğrenmesi, geniş bir uygulama yelpazesine sahiptir ve birçok endüstride kullanılmaktadır. Örnek olarak, doğal dil işleme, görüntü ve ses tanıma, tıbbi teşhis, pazarlama analitiği, finansal tahminler ve otomotiv sektöründeki otonom araçlar gibi alanlarda yaygın olarak kullanılmaktadır.

kaggle projesi

spaceship titanic (kaggel tanıtımı)

Spacehip Titanic (Kaggle Tanıtımı) “2912 yılına hoş geldiniz, burada veri bilimi becerilerinizin bir kozmik gizemi çözmek için gerektiği bir zamandayız. Dört ışık yılı uzaklıktan bir ileti aldık ve durum iyi görünmüyor.

Uzay Gemisi Titanic, bir ay önce fırlatılan bir yıldızlararası yolcu gemisiydi. Yaklaşık 13.000 yolcuyla yola çıkan gemi, Güneş sistemimizden üç yeni yaşanabilir yıldız etrafında dönen gezegenlere göçmenleri taşıyarak ilk seferine başladı.

İlk varış noktası olan 55 Cancri E’ye, Alfa Centauri’yi dolaşırken, dikkatsiz Uzay Gemisi Titanic, bir toz bulutunun içinde gizlenmiş bir uzay-zaman anormalliğiyle çarpıştı. Ne yazık ki, adını taşıdığı gemiye bin yıl önceki kaderle benzer bir kaderi paylaştı. Gemi bütünlüğünü korudu, ancak neredeyse yolcuların yarısı alternatif bir boyuta taşındı!

Kurtarma ekiplerine yardım etmek ve kayıp yolcuları kurtarmak için, uzay gemisinin hasar görmüş bilgisayar sisteminden kurtarılan kayıtları kullanarak hangi yolcuların anormallik tarafından taşındığını tahmin etmeniz isteniyor.

Onları kurtarmaya yardım edin ve tarihi değiştirin!”

Ortalama, standart sapma, kovaryans ve korelasyon nedir?

ortalama nedir?

Ortalama, bir veri kümesindeki sayıların toplamının, veri sayısına bölünmesiyle elde edilen bir ölçüdür. Bir başka deyişle, bir veri kümesindeki değerlerin tipik veya genel bir temsilcisini bulmak için kullanılan bir ölçüdür.

Ortalama formülü

\[ \bar{X} = \frac {\Sigma^n_İ (X_i)}{n} \] ## Standart sapma nedir?

Standart sapma, bir veri kümesinin değerlerinin ne kadar yayıldığını veya değişkenlik gösterdiğini ölçen bir istatistiksel ölçüdür. Bir başka deyişle, standart sapma, bir veri kümesindeki değerlerin ortalama etrafında ne kadar değiştiğini ölçer.

Standart sapma formülü

\[ \sigma = \sqrt \frac {\Sigma^N_i (X_i-\bar{X})^2}{N} \] ## kovaryans nedir?

Kovaryans, iki değişken arasındaki ilişkinin doğrudan bir ölçüsüdür. İki değişkenin birlikte nasıl değiştiğini gösterir. Pozitif bir kovaryans, iki değişkenin birlikte arttığını, negatif bir kovaryans ise bir değişken artarken diğerinin azaldığını gösterir.

kovaryans formülü

\[ cov(X,Y)=\frac {\Sigma^n_i (X_i-X)(Y_i-Y)}{n-1} \] ## korelasyon nedir ?

korelasyon bir istatistik terimi olup, iki değişken arasındaki ilişkiyi ölçen bir ölçüdür. Bu ilişki, değişkenlerin birlikte nasıl değiştiğini ve birbirlerine ne kadar bağımlı olduklarını belirler. Daha basit bir tanımla, korelasyon, iki değişken arasındaki ilişkinin doğasını ve yönünü belirler. İki değişken arasında pozitif bir korelasyon varsa, bir değişken arttığında diğerinin de arttığı görülür. Negatif bir korelasyon ise bir değişken arttığında diğerinin azaldığını gösterir.

korelasyon formülü

\[ R = \frac {\Sigma (x_i-\bar{x})(y_i-\bar{y})}{ \sqrt {\Sigma (x_i-\bar{x})^2 \Sigma (y_i-\bar{y})}} \]

Train ve test nedir?

Eğitim ve test, makine öğrenimi ve yapay zeka gibi alanlarda sıkça kullanılan terimlerdir.

Eğitim (Training): Makine öğrenimi modellerinin geliştirildiği aşamadır. Eğitim sürecinde, bir modelin belirli bir görevi yerine getirebilmesi için girdi verileriyle beslenir. Bu girdi verileri, önceden etiketlenmiş (supervizyonlu öğrenme) veya etiketlenmemiş (etiketlenmemiş öğrenme) olabilir. Model, bu verilerden öğrenir ve ardından yeni verilere dayalı tahminler yapabilir.

Test (Testing): Bir modelin eğitim veri kümesi dışındaki veriler üzerinde ne kadar iyi performans gösterdiğini değerlendirmek için kullanılan aşamadır. Test aşamasında, genellikle modelin performansını ölçmek için ayrılmış bir test veri kümesi kullanılır. Bu veri kümesi, modelin daha önce görmediği verilerden oluşur ve modelin genelleme yeteneğini değerlendirmek için kullanılır. Test süreci, modelin gerçek dünya verilerinde ne kadar başarılı olduğunu belirlemeye yardımcı olur.

Eğitim ve test aşamaları, makine öğrenimi modellerinin geliştirilmesi ve değerlendirilmesinde temel adımlardır. Eğitim sürecinde model, veriye dayalı olarak öğrenirken, test sürecinde genelleme yeteneğini değerlendirir. Bu süreçler, bir modelin güvenilirliğini ve performansını anlamak için önemlidir.

library(readr)
test_1_ <- read_csv("test (1).csv")
## Rows: 4277 Columns: 13
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (5): PassengerId, HomePlanet, Cabin, Destination, Name
## dbl (6): Age, RoomService, FoodCourt, ShoppingMall, Spa, VRDeck
## lgl (2): CryoSleep, VIP
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
View(test_1_)
library(readr)
train <- read_csv("train.csv")
## Rows: 8693 Columns: 14
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (5): PassengerId, HomePlanet, Cabin, Destination, Name
## dbl (6): Age, RoomService, FoodCourt, ShoppingMall, Spa, VRDeck
## lgl (3): CryoSleep, VIP, Transported
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
View(train)
library(rmarkdown)
paged_table(train)
paged_table(test_1_)

.PassengerId : Her yolcu için benzersiz bir Kimlik. Her Kimlik gggg_pp biçimini alır; burada gggg yolcunun birlikte seyahat ettiği grubu belirtir ve pp grup içindeki numaradır. Bir gruptaki insanlar çoğunlukla aile üyeleridir, ancak her zaman değil.

.HomePlanet: Yolcunun ayrıldığı gezegen, genellikle daimi ikamet ettikleri gezegen.

.CryoSleep: Yolcunun yolculuk süresince askıya alınmış animasyona alınmayı seçip seçmediğini belirtir. Dondurucu uykudaki yolcular kabinlerine hapsedilir.

.Cabin: Yolcunun kaldığı kabin numarası. Güverte/numara/yan formunu alır; burada taraf, İskele için P veya Sancak için S olabilir.

.Destination: Yolcunun ineceği gezegen.

.Age: Yolcunun yaşı.

.VIP: Yolcunun yolculuk sırasında özel VIP hizmeti için ödeme yapıp yapmadığı.

.RoomService, FoodCourt, ShoppingMall, Spa, VRDeck: Yolcunun, Uzay Gemisi Titanic’in birçok lüks olanağının her birinde fatura ettiği tutar.

.Name: Yolcunun adı ve soyadı.

.Transported: Yolcunun başka bir boyuta taşınıp taşınmadığı. Bu hedeftir, tahmin etmeye çalıştığınız sütundur.

VERI SETI ACIKLAYIN ?

Veri seti, bir araya getirilmiş veya düzenlenmiş verilerin yapılandırılmış bir koleksiyonudur. Bu veriler, belirli bir amaca hizmet etmek üzere toplanmış veya oluşturulmuş olabilir. Veri setleri genellikle bir veya birden fazla değişkenin (veri noktaları veya gözlemler) bir araya getirilmesinden oluşur ve genellikle bir tablo, matris veya diğer veri depolama biçimlerinde temsil edilirler.

Bir veri seti şu bileşenlerden oluşur:

Gözlemler (Samples): Her bir gözlem, veri setindeki bir biriktirilmiş veri noktasını veya bir örneği temsil eder. Örneğin, bir veri seti, bir müşterinin demografik bilgilerini içerebilir ve her bir gözlem bir müşteriyi temsil eder.

Değişkenler (Features): Değişkenler, her bir gözlemin özelliklerini tanımlayan ölçümler veya niteliklerdir. Örneğin, bir müşteri veri setinde, değişkenler müşterinin yaş, cinsiyet, gelir seviyesi gibi özelliklerini temsil eder.

Veri Tipi (Data Type): Her değişkenin bir veri tipi vardır, bu tip verinin hangi tür bilgiyi içerdiğini belirtir. Örneğin, bir değişken sayısal (örneğin, yaş) veya kategorik (örneğin, cinsiyet) olabilir.

Bağımlı ve Bağımsız Değişkenler: Bir veri setinde, genellikle bağımlı ve bağımsız değişkenler vardır. Bağımlı değişken, genellikle modelin tahmin etmeye çalıştığı veya açıklamaya çalıştığı değişkendir. Bağımsız değişkenler ise bağımlı değişkeni etkileyen faktörlerdir.

Veri Setinin Boyutu (Size of the Data Set): Veri setinin boyutu, içerdiği gözlem ve değişken sayısını ifade eder. Büyük veri setleri binlerce veya milyonlarca gözlem ve yüzlerce veya binlerce değişken içerebilirken, küçük veri setleri yalnızca birkaç gözlem ve değişkene sahip olabilir.

Veri setleri, veri bilimi ve makine öğrenimi gibi alanlarda analiz, modelleme ve keşif amaçları için kullanılır. Veri setlerinin iyi bir şekilde anlaşılması ve doğru bir şekilde kullanılması, veri odaklı karar verme süreçlerinin geliştirilmesi için önemlidir.

CABIN 3 FARKLI GRUP CIKARMAK?

library(explore)
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
train%>% describe_all()
## # A tibble: 14 × 8
##    variable     type     na na_pct unique   min   mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl>  <dbl> <dbl>
##  1 PassengerId  chr       0    0     8693    NA  NA       NA
##  2 HomePlanet   chr     201    2.3      4    NA  NA       NA
##  3 CryoSleep    lgl     217    2.5      3     0   0.36     1
##  4 Cabin        chr     199    2.3   6561    NA  NA       NA
##  5 Destination  chr     182    2.1      4    NA  NA       NA
##  6 Age          dbl     179    2.1     81     0  28.8     79
##  7 VIP          lgl     203    2.3      3     0   0.02     1
##  8 RoomService  dbl     181    2.1   1274     0 225.   14327
##  9 FoodCourt    dbl     183    2.1   1508     0 458.   29813
## 10 ShoppingMall dbl     208    2.4   1116     0 174.   23492
## 11 Spa          dbl     183    2.1   1328     0 311.   22408
## 12 VRDeck       dbl     188    2.2   1307     0 305.   24133
## 13 Name         chr     200    2.3   8474    NA  NA       NA
## 14 Transported  lgl       0    0        2     0   0.5      1
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ lubridate 1.9.3     ✔ tibble    3.2.1
## ✔ purrr     1.0.2     ✔ tidyr     1.3.1
## ── 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
library(tidyr)
train <- separate(train, Cabin, into = c("sutun1", "sutun2", "sutun3"), sep = "/", remove=FALSE)
test <- separate(`test_1_`, Cabin, into = c("sutun1", "sutun2", "sutun3"), sep = "/", remove=FALSE)
summary(train)
##  PassengerId         HomePlanet        CryoSleep          Cabin          
##  Length:8693        Length:8693        Mode :logical   Length:8693       
##  Class :character   Class :character   FALSE:5439      Class :character  
##  Mode  :character   Mode  :character   TRUE :3037      Mode  :character  
##                                        NA's :217                         
##                                                                          
##                                                                          
##                                                                          
##     sutun1             sutun2             sutun3          Destination       
##  Length:8693        Length:8693        Length:8693        Length:8693       
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##                                                                             
##       Age           VIP           RoomService        FoodCourt      
##  Min.   : 0.00   Mode :logical   Min.   :    0.0   Min.   :    0.0  
##  1st Qu.:19.00   FALSE:8291      1st Qu.:    0.0   1st Qu.:    0.0  
##  Median :27.00   TRUE :199       Median :    0.0   Median :    0.0  
##  Mean   :28.83   NA's :203       Mean   :  224.7   Mean   :  458.1  
##  3rd Qu.:38.00                   3rd Qu.:   47.0   3rd Qu.:   76.0  
##  Max.   :79.00                   Max.   :14327.0   Max.   :29813.0  
##  NA's   :179                     NA's   :181       NA's   :183      
##   ShoppingMall          Spa              VRDeck            Name          
##  Min.   :    0.0   Min.   :    0.0   Min.   :    0.0   Length:8693       
##  1st Qu.:    0.0   1st Qu.:    0.0   1st Qu.:    0.0   Class :character  
##  Median :    0.0   Median :    0.0   Median :    0.0   Mode  :character  
##  Mean   :  173.7   Mean   :  311.1   Mean   :  304.9                     
##  3rd Qu.:   27.0   3rd Qu.:   59.0   3rd Qu.:   46.0                     
##  Max.   :23492.0   Max.   :22408.0   Max.   :24133.0                     
##  NA's   :208       NA's   :183       NA's   :188                         
##  Transported    
##  Mode :logical  
##  FALSE:4315     
##  TRUE :4378     
##                 
##                 
##                 
## 
library(stringr)
train[c("ailenumara", "ailesira")] <- str_split_fixed(train$PassengerId, "_",2)
train <- train %>% select(-Cabin)
test <- test %>% select(-Cabin)
unique(train$HomePlanet) 
## [1] "Europa" "Earth"  "Mars"   NA
levels(test$HomePlanet)
## NULL
train$HomePlanet <- addNA(train$HomePlanet)
test$HomePlanet <- addNA(test$HomePlanet)
levels(train$HomePlanet)[is.na(levels(train$HomePlanet))] <- "NA"
levels(test$HomePlanet)[is.na(levels(test$HomePlanet))] <- "NA"
train %>% describe_all()
## # A tibble: 18 × 8
##    variable     type     na na_pct unique   min   mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl>  <dbl> <dbl>
##  1 PassengerId  chr       0    0     8693    NA  NA       NA
##  2 HomePlanet   fct       0    0        4    NA  NA       NA
##  3 CryoSleep    lgl     217    2.5      3     0   0.36     1
##  4 sutun1       chr     199    2.3      9    NA  NA       NA
##  5 sutun2       chr     199    2.3   1818    NA  NA       NA
##  6 sutun3       chr     199    2.3      3    NA  NA       NA
##  7 Destination  chr     182    2.1      4    NA  NA       NA
##  8 Age          dbl     179    2.1     81     0  28.8     79
##  9 VIP          lgl     203    2.3      3     0   0.02     1
## 10 RoomService  dbl     181    2.1   1274     0 225.   14327
## 11 FoodCourt    dbl     183    2.1   1508     0 458.   29813
## 12 ShoppingMall dbl     208    2.4   1116     0 174.   23492
## 13 Spa          dbl     183    2.1   1328     0 311.   22408
## 14 VRDeck       dbl     188    2.2   1307     0 305.   24133
## 15 Name         chr     200    2.3   8474    NA  NA       NA
## 16 Transported  lgl       0    0        2     0   0.5      1
## 17 ailenumara   chr       0    0     6217    NA  NA       NA
## 18 ailesira     chr       0    0        8    NA  NA       NA
test %>% describe_all()
## # A tibble: 15 × 8
##    variable     type     na na_pct unique   min   mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl>  <dbl> <dbl>
##  1 PassengerId  chr       0    0     4277    NA  NA       NA
##  2 HomePlanet   fct       0    0        4    NA  NA       NA
##  3 CryoSleep    lgl      93    2.2      3     0   0.37     1
##  4 sutun1       chr     100    2.3      9    NA  NA       NA
##  5 sutun2       chr     100    2.3   1506    NA  NA       NA
##  6 sutun3       chr     100    2.3      3    NA  NA       NA
##  7 Destination  chr      92    2.2      4    NA  NA       NA
##  8 Age          dbl      91    2.1     80     0  28.7     79
##  9 VIP          lgl      93    2.2      3     0   0.02     1
## 10 RoomService  dbl      82    1.9    843     0 219.   11567
## 11 FoodCourt    dbl     106    2.5    903     0 439.   25273
## 12 ShoppingMall dbl      98    2.3    716     0 177.    8292
## 13 Spa          dbl     101    2.4    834     0 303.   19844
## 14 VRDeck       dbl      80    1.9    797     0 311.   22272
## 15 Name         chr      94    2.2   4177    NA  NA       NA
train <- train %>%
  group_by(HomePlanet) %>%
  mutate_at(vars(Age), ~replace_na(., mean(., na.rm = TRUE)))
tesrt <- test %>%
  group_by(HomePlanet) %>%
  mutate_at(vars(Age), ~replace_na(., mean(., na.rm = TRUE)))
train %>% describe_all()
## # A tibble: 18 × 8
##    variable     type     na na_pct unique   min   mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl>  <dbl> <dbl>
##  1 PassengerId  chr       0    0     8693    NA  NA       NA
##  2 HomePlanet   fct       0    0        4    NA  NA       NA
##  3 CryoSleep    lgl     217    2.5      3     0   0.36     1
##  4 sutun1       chr     199    2.3      9    NA  NA       NA
##  5 sutun2       chr     199    2.3   1818    NA  NA       NA
##  6 sutun3       chr     199    2.3      3    NA  NA       NA
##  7 Destination  chr     182    2.1      4    NA  NA       NA
##  8 Age          dbl       0    0       84     0  28.8     79
##  9 VIP          lgl     203    2.3      3     0   0.02     1
## 10 RoomService  dbl     181    2.1   1274     0 225.   14327
## 11 FoodCourt    dbl     183    2.1   1508     0 458.   29813
## 12 ShoppingMall dbl     208    2.4   1116     0 174.   23492
## 13 Spa          dbl     183    2.1   1328     0 311.   22408
## 14 VRDeck       dbl     188    2.2   1307     0 305.   24133
## 15 Name         chr     200    2.3   8474    NA  NA       NA
## 16 Transported  lgl       0    0        2     0   0.5      1
## 17 ailenumara   chr       0    0     6217    NA  NA       NA
## 18 ailesira     chr       0    0        8    NA  NA       NA
train$CryoSleep <- addNA(train$CryoSleep)
test$CryoSleep <- addNA(test$CryoSleep)
levels(train$CryoSleep)[is.na(levels(train$CryoSleep))] <- "NA"
levels(test$CryoSleep)[is.na(levels(test$CryoSleep))] <- "NA"
train %>% describe_all()
## # A tibble: 18 × 8
##    variable     type     na na_pct unique   min   mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl>  <dbl> <dbl>
##  1 PassengerId  chr       0    0     8693    NA  NA       NA
##  2 HomePlanet   fct       0    0        4    NA  NA       NA
##  3 CryoSleep    fct       0    0        3    NA  NA       NA
##  4 sutun1       chr     199    2.3      9    NA  NA       NA
##  5 sutun2       chr     199    2.3   1818    NA  NA       NA
##  6 sutun3       chr     199    2.3      3    NA  NA       NA
##  7 Destination  chr     182    2.1      4    NA  NA       NA
##  8 Age          dbl       0    0       84     0  28.8     79
##  9 VIP          lgl     203    2.3      3     0   0.02     1
## 10 RoomService  dbl     181    2.1   1274     0 225.   14327
## 11 FoodCourt    dbl     183    2.1   1508     0 458.   29813
## 12 ShoppingMall dbl     208    2.4   1116     0 174.   23492
## 13 Spa          dbl     183    2.1   1328     0 311.   22408
## 14 VRDeck       dbl     188    2.2   1307     0 305.   24133
## 15 Name         chr     200    2.3   8474    NA  NA       NA
## 16 Transported  lgl       0    0        2     0   0.5      1
## 17 ailenumara   chr       0    0     6217    NA  NA       NA
## 18 ailesira     chr       0    0        8    NA  NA       NA
test %>% describe_all()
## # A tibble: 15 × 8
##    variable     type     na na_pct unique   min   mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl>  <dbl> <dbl>
##  1 PassengerId  chr       0    0     4277    NA  NA       NA
##  2 HomePlanet   fct       0    0        4    NA  NA       NA
##  3 CryoSleep    fct       0    0        3    NA  NA       NA
##  4 sutun1       chr     100    2.3      9    NA  NA       NA
##  5 sutun2       chr     100    2.3   1506    NA  NA       NA
##  6 sutun3       chr     100    2.3      3    NA  NA       NA
##  7 Destination  chr      92    2.2      4    NA  NA       NA
##  8 Age          dbl      91    2.1     80     0  28.7     79
##  9 VIP          lgl      93    2.2      3     0   0.02     1
## 10 RoomService  dbl      82    1.9    843     0 219.   11567
## 11 FoodCourt    dbl     106    2.5    903     0 439.   25273
## 12 ShoppingMall dbl      98    2.3    716     0 177.    8292
## 13 Spa          dbl     101    2.4    834     0 303.   19844
## 14 VRDeck       dbl      80    1.9    797     0 311.   22272
## 15 Name         chr      94    2.2   4177    NA  NA       NA
unique(train$Destination)
## [1] "TRAPPIST-1e"   "PSO J318.5-22" "55 Cancri e"   NA
train$Destination <- addNA(train$Destination)
test$Destination <- addNA(test$Destination)
levels(train$Destination)[is.na(levels(train$Destination))] <- "NA"
levels(test$Destination)[is.na(levels(test$Destination))] <- "NA"
train$sutun1 <- addNA(train$sutun1)
test$sutun1 <- addNA(test$sutun1)
levels(train$sutun1)[is.na(levels(train$sutun1))] <- "NA"
levels(test$sutun1)[is.na(levels(test$sutun1))] <- "NA"
train %>% describe_all()
## # A tibble: 18 × 8
##    variable     type     na na_pct unique   min   mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl>  <dbl> <dbl>
##  1 PassengerId  chr       0    0     8693    NA  NA       NA
##  2 HomePlanet   fct       0    0        4    NA  NA       NA
##  3 CryoSleep    fct       0    0        3    NA  NA       NA
##  4 sutun1       fct       0    0        9    NA  NA       NA
##  5 sutun2       chr     199    2.3   1818    NA  NA       NA
##  6 sutun3       chr     199    2.3      3    NA  NA       NA
##  7 Destination  fct       0    0        4    NA  NA       NA
##  8 Age          dbl       0    0       84     0  28.8     79
##  9 VIP          lgl     203    2.3      3     0   0.02     1
## 10 RoomService  dbl     181    2.1   1274     0 225.   14327
## 11 FoodCourt    dbl     183    2.1   1508     0 458.   29813
## 12 ShoppingMall dbl     208    2.4   1116     0 174.   23492
## 13 Spa          dbl     183    2.1   1328     0 311.   22408
## 14 VRDeck       dbl     188    2.2   1307     0 305.   24133
## 15 Name         chr     200    2.3   8474    NA  NA       NA
## 16 Transported  lgl       0    0        2     0   0.5      1
## 17 ailenumara   chr       0    0     6217    NA  NA       NA
## 18 ailesira     chr       0    0        8    NA  NA       NA
test %>% describe_all()
## # A tibble: 15 × 8
##    variable     type     na na_pct unique   min   mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl>  <dbl> <dbl>
##  1 PassengerId  chr       0    0     4277    NA  NA       NA
##  2 HomePlanet   fct       0    0        4    NA  NA       NA
##  3 CryoSleep    fct       0    0        3    NA  NA       NA
##  4 sutun1       fct       0    0        9    NA  NA       NA
##  5 sutun2       chr     100    2.3   1506    NA  NA       NA
##  6 sutun3       chr     100    2.3      3    NA  NA       NA
##  7 Destination  fct       0    0        4    NA  NA       NA
##  8 Age          dbl      91    2.1     80     0  28.7     79
##  9 VIP          lgl      93    2.2      3     0   0.02     1
## 10 RoomService  dbl      82    1.9    843     0 219.   11567
## 11 FoodCourt    dbl     106    2.5    903     0 439.   25273
## 12 ShoppingMall dbl      98    2.3    716     0 177.    8292
## 13 Spa          dbl     101    2.4    834     0 303.   19844
## 14 VRDeck       dbl      80    1.9    797     0 311.   22272
## 15 Name         chr      94    2.2   4177    NA  NA       NA
train$VIP <- addNA(train$VIP)
test$VIP <- addNA(test$VIP)
levels(train$VIP)[is.na(levels(train$VIP))] <- "NA"
levels(test$VIP)[is.na(levels(test$VIP))] <- "NA"
train <- train %>%
  group_by(Destination) %>%
  mutate_at(vars(RoomService), ~replace_na(., mean(., na.rm = TRUE)))
test <- test %>%
  group_by(Destination) %>%
  mutate_at(vars(RoomService), ~replace_na(., mean(., na.rm = TRUE)))
train %>% describe_all()
## # A tibble: 18 × 8
##    variable     type     na na_pct unique   min  mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl> <dbl> <dbl>
##  1 PassengerId  chr       0    0     8693    NA  NA      NA
##  2 HomePlanet   fct       0    0        4    NA  NA      NA
##  3 CryoSleep    fct       0    0        3    NA  NA      NA
##  4 sutun1       fct       0    0        9    NA  NA      NA
##  5 sutun2       chr     199    2.3   1818    NA  NA      NA
##  6 sutun3       chr     199    2.3      3    NA  NA      NA
##  7 Destination  fct       0    0        4    NA  NA      NA
##  8 Age          dbl       0    0       84     0  28.8    79
##  9 VIP          fct       0    0        3    NA  NA      NA
## 10 RoomService  dbl       0    0     1277     0 225.  14327
## 11 FoodCourt    dbl     183    2.1   1508     0 458.  29813
## 12 ShoppingMall dbl     208    2.4   1116     0 174.  23492
## 13 Spa          dbl     183    2.1   1328     0 311.  22408
## 14 VRDeck       dbl     188    2.2   1307     0 305.  24133
## 15 Name         chr     200    2.3   8474    NA  NA      NA
## 16 Transported  lgl       0    0        2     0   0.5     1
## 17 ailenumara   chr       0    0     6217    NA  NA      NA
## 18 ailesira     chr       0    0        8    NA  NA      NA
test %>% describe_all()
## # A tibble: 15 × 8
##    variable     type     na na_pct unique   min  mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl> <dbl> <dbl>
##  1 PassengerId  chr       0    0     4277    NA  NA      NA
##  2 HomePlanet   fct       0    0        4    NA  NA      NA
##  3 CryoSleep    fct       0    0        3    NA  NA      NA
##  4 sutun1       fct       0    0        9    NA  NA      NA
##  5 sutun2       chr     100    2.3   1506    NA  NA      NA
##  6 sutun3       chr     100    2.3      3    NA  NA      NA
##  7 Destination  fct       0    0        4    NA  NA      NA
##  8 Age          dbl      91    2.1     80     0  28.7    79
##  9 VIP          fct       0    0        3    NA  NA      NA
## 10 RoomService  dbl       0    0      846     0 219.  11567
## 11 FoodCourt    dbl     106    2.5    903     0 439.  25273
## 12 ShoppingMall dbl      98    2.3    716     0 177.   8292
## 13 Spa          dbl     101    2.4    834     0 303.  19844
## 14 VRDeck       dbl      80    1.9    797     0 311.  22272
## 15 Name         chr      94    2.2   4177    NA  NA      NA
train <- train %>% mutate(FoodCourt = coalesce(FoodCourt, 0))
test <- test %>% mutate(FoodCourt = coalesce(FoodCourt, 0))
train %>% describe_all()
## # A tibble: 18 × 8
##    variable     type     na na_pct unique   min  mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl> <dbl> <dbl>
##  1 PassengerId  chr       0    0     8693    NA  NA      NA
##  2 HomePlanet   fct       0    0        4    NA  NA      NA
##  3 CryoSleep    fct       0    0        3    NA  NA      NA
##  4 sutun1       fct       0    0        9    NA  NA      NA
##  5 sutun2       chr     199    2.3   1818    NA  NA      NA
##  6 sutun3       chr     199    2.3      3    NA  NA      NA
##  7 Destination  fct       0    0        4    NA  NA      NA
##  8 Age          dbl       0    0       84     0  28.8    79
##  9 VIP          fct       0    0        3    NA  NA      NA
## 10 RoomService  dbl       0    0     1277     0 225.  14327
## 11 FoodCourt    dbl       0    0     1507     0 448.  29813
## 12 ShoppingMall dbl     208    2.4   1116     0 174.  23492
## 13 Spa          dbl     183    2.1   1328     0 311.  22408
## 14 VRDeck       dbl     188    2.2   1307     0 305.  24133
## 15 Name         chr     200    2.3   8474    NA  NA      NA
## 16 Transported  lgl       0    0        2     0   0.5     1
## 17 ailenumara   chr       0    0     6217    NA  NA      NA
## 18 ailesira     chr       0    0        8    NA  NA      NA
test %>% describe_all()
## # A tibble: 15 × 8
##    variable     type     na na_pct unique   min  mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl> <dbl> <dbl>
##  1 PassengerId  chr       0    0     4277    NA  NA      NA
##  2 HomePlanet   fct       0    0        4    NA  NA      NA
##  3 CryoSleep    fct       0    0        3    NA  NA      NA
##  4 sutun1       fct       0    0        9    NA  NA      NA
##  5 sutun2       chr     100    2.3   1506    NA  NA      NA
##  6 sutun3       chr     100    2.3      3    NA  NA      NA
##  7 Destination  fct       0    0        4    NA  NA      NA
##  8 Age          dbl      91    2.1     80     0  28.7    79
##  9 VIP          fct       0    0        3    NA  NA      NA
## 10 RoomService  dbl       0    0      846     0 219.  11567
## 11 FoodCourt    dbl       0    0      902     0 429.  25273
## 12 ShoppingMall dbl      98    2.3    716     0 177.   8292
## 13 Spa          dbl     101    2.4    834     0 303.  19844
## 14 VRDeck       dbl      80    1.9    797     0 311.  22272
## 15 Name         chr      94    2.2   4177    NA  NA      NA
train <- train %>% mutate(ShoppingMall = coalesce(ShoppingMall, 0),
                          Spa = coalesce(Spa, 0),
                          VRDeck = coalesce(VRDeck, 0))
test <- test %>% mutate(ShoppingMall = coalesce(ShoppingMall, 0),
                          Spa = coalesce(Spa, 0),
                          VRDeck = coalesce(VRDeck, 0))
train <- train %>% select(-Name)
train %>% describe_all()
## # A tibble: 17 × 8
##    variable     type     na na_pct unique   min  mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl> <dbl> <dbl>
##  1 PassengerId  chr       0    0     8693    NA  NA      NA
##  2 HomePlanet   fct       0    0        4    NA  NA      NA
##  3 CryoSleep    fct       0    0        3    NA  NA      NA
##  4 sutun1       fct       0    0        9    NA  NA      NA
##  5 sutun2       chr     199    2.3   1818    NA  NA      NA
##  6 sutun3       chr     199    2.3      3    NA  NA      NA
##  7 Destination  fct       0    0        4    NA  NA      NA
##  8 Age          dbl       0    0       84     0  28.8    79
##  9 VIP          fct       0    0        3    NA  NA      NA
## 10 RoomService  dbl       0    0     1277     0 225.  14327
## 11 FoodCourt    dbl       0    0     1507     0 448.  29813
## 12 ShoppingMall dbl       0    0     1115     0 170.  23492
## 13 Spa          dbl       0    0     1327     0 305.  22408
## 14 VRDeck       dbl       0    0     1306     0 298.  24133
## 15 Transported  lgl       0    0        2     0   0.5     1
## 16 ailenumara   chr       0    0     6217    NA  NA      NA
## 17 ailesira     chr       0    0        8    NA  NA      NA
train$sutun2 <- addNA(train$sutun2)
test$sutun2 <- addNA(test$sutun2)
levels(train$sutun2)[is.na(levels(train$sutun2))] <- "NA"
levels(test$sutun2)[is.na(levels(test$sutun2))] <- "NA"
train %>% describe_all()
## # A tibble: 17 × 8
##    variable     type     na na_pct unique   min  mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl> <dbl> <dbl>
##  1 PassengerId  chr       0    0     8693    NA  NA      NA
##  2 HomePlanet   fct       0    0        4    NA  NA      NA
##  3 CryoSleep    fct       0    0        3    NA  NA      NA
##  4 sutun1       fct       0    0        9    NA  NA      NA
##  5 sutun2       fct       0    0     1818    NA  NA      NA
##  6 sutun3       chr     199    2.3      3    NA  NA      NA
##  7 Destination  fct       0    0        4    NA  NA      NA
##  8 Age          dbl       0    0       84     0  28.8    79
##  9 VIP          fct       0    0        3    NA  NA      NA
## 10 RoomService  dbl       0    0     1277     0 225.  14327
## 11 FoodCourt    dbl       0    0     1507     0 448.  29813
## 12 ShoppingMall dbl       0    0     1115     0 170.  23492
## 13 Spa          dbl       0    0     1327     0 305.  22408
## 14 VRDeck       dbl       0    0     1306     0 298.  24133
## 15 Transported  lgl       0    0        2     0   0.5     1
## 16 ailenumara   chr       0    0     6217    NA  NA      NA
## 17 ailesira     chr       0    0        8    NA  NA      NA
test %>% describe_all()
## # A tibble: 15 × 8
##    variable     type     na na_pct unique   min  mean   max
##    <chr>        <chr> <int>  <dbl>  <int> <dbl> <dbl> <dbl>
##  1 PassengerId  chr       0    0     4277    NA  NA      NA
##  2 HomePlanet   fct       0    0        4    NA  NA      NA
##  3 CryoSleep    fct       0    0        3    NA  NA      NA
##  4 sutun1       fct       0    0        9    NA  NA      NA
##  5 sutun2       fct       0    0     1506    NA  NA      NA
##  6 sutun3       chr     100    2.3      3    NA  NA      NA
##  7 Destination  fct       0    0        4    NA  NA      NA
##  8 Age          dbl      91    2.1     80     0  28.7    79
##  9 VIP          fct       0    0        3    NA  NA      NA
## 10 RoomService  dbl       0    0      846     0 219.  11567
## 11 FoodCourt    dbl       0    0      902     0 429.  25273
## 12 ShoppingMall dbl       0    0      715     0 173.   8292
## 13 Spa          dbl       0    0      833     0 296.  19844
## 14 VRDeck       dbl       0    0      796     0 305.  22272
## 15 Name         chr      94    2.2   4177    NA  NA      NA

character nedir? Character”, İngilizce kökenli bir terim olup farklı bağlamlarda farklı anlamlara gelebilir. Genel olarak kullanıldığında, “character” kelimesi bir kişinin veya varlığın kişilik özelliklerini, davranışlarını ve değerlerini ifade eder. Ancak bu terim farklı alanlarda da farklı anlamlar taşıyabilir:

Edebiyat ve Sinema: Bir hikaye veya filmdeki karakterler, o hikayenin veya filmin yaratılmış kişileridir. Bu karakterler, yazarın veya senaristin belirlediği özelliklere, motivasyonlara ve gelişimlere sahip olabilirler. Örneğin, Harry Potter serisindeki “Harry Potter” veya “Hermione Granger” gibi karakterler edebi eserlerin karakterleridir.

Yazılı Metinlerde Kullanımı: Metinlerde kullanıldığında, “character” kelimesi bir harfi veya sembolü ifade edebilir. Örneğin, bir yazılı metinde “A”, “B”, “C” gibi harfler karakterler olarak adlandırılabilir.

Karakter kodlaması (Character Encoding): Bilgisayar biliminde, karakterlerin sayısal değerlere dönüştürülmesi ve saklanması için kullanılan sistemdir. ASCII ve Unicode gibi karakter kodlamaları yaygın olarak kullanılan örneklerdir.

Kişilik Özellikleri ve Değerler: “Good character” veya “bad character” gibi ifadelerde kullanıldığında, kişinin sahip olduğu karakter; yani dürüstlük, cesaret, adanmışlık gibi kişilik özellikleri ve değerlerdir.

Karakter Analizi: Psikolojide, “character” terimi bir kişinin davranışlarını, duygularını, düşüncelerini ve motivasyonlarını içeren kompleks bir yapıyı ifade edebilir. Karakter analizi, bu yapıyı anlamak ve tanımlamak için kullanılır.

Bu bağlamlardan hangisinin sorunuzla ilgili olduğunu belirtirseniz daha spesifik bir açıklama yapabilirim.

factor nedir? “Factor” kelimesi, İngilizce kökenli olup farklı bağlamlarda farklı anlamlara gelebilir. İşte yaygın kullanım alanlarından bazıları:

Matematik ve İstatistik: Bir sayıyı veya terimi tam bölen bir sayı veya terimdir. Örneğin, 6’nın faktörleri 1, 2, 3 ve 6’dır çünkü bu sayılar 6’yı tam böler.

Faktör Analizi: Bu terim, özellikle sosyal bilimler ve istatistik alanlarında kullanılır. Faktör analizi, çok değişkenli veri setlerindeki değişkenler arasındaki ilişkileri inceleyen bir istatistiksel yöntemdir. Bu analiz, veri setindeki yapıyı anlamak ve daha az sayıda temel faktörü açıklamak için kullanılır.

İşletme ve Ekonomi: “Faktör” terimi, ekonomide ve işletme yönetiminde, bir sonucu etkileyen veya belirleyen unsurları ifade eder. Örneğin, ekonominin büyüme hızını etkileyen faktörler arasında tüketim harcamaları, yatırımlar ve dış ticaret dengesi gibi unsurlar sayılabilir.

Bilgisayar Bilimi: “Faktör” kelimesi, algoritmik karmaşıklığı ifade etmek için kullanılabilir. Örneğin, bir algoritmanın performansı genellikle giriş boyutunun bir fonksiyonu olarak ifade edilir ve bu faktör algoritmanın etkinliğini belirler.

Genetik: Genetik biliminde, “faktör” terimi, belirli bir özellik veya hastalığın oluşumunda rol oynayan genetik veya çevresel bileşenleri ifade eder. Örneğin, bir hastalığın oluşumunda genetik faktörlerin rolü olduğu söylenebilir.

Bağlamına bağlı olarak, “faktör” kelimesinin anlamı değişebilir. Bu nedenle, hangi alanda kullanıldığına bağlı olarak daha spesifik bir açıklama yapılabilir.

hist(train$Age)

hist(train$RoomService)

hist(train$FoodCourt)

hist(train$ShoppingMall)

hist(train$Spa)

summary(train)
##  PassengerId         HomePlanet   CryoSleep        sutun1         sutun2    
##  Length:8693        Earth :4602   FALSE:5439   F      :2794   NA     : 199  
##  Class :character   Europa:2131   TRUE :3037   G      :2559   82     :  28  
##  Mode  :character   Mars  :1759   NA   : 217   E      : 876   19     :  22  
##                     NA    : 201                B      : 779   86     :  22  
##                                                C      : 747   176    :  21  
##                                                D      : 478   56     :  21  
##                                                (Other): 460   (Other):8380  
##     sutun3                 Destination        Age           VIP      
##  Length:8693        55 Cancri e  :1800   Min.   : 0.00   FALSE:8291  
##  Class :character   PSO J318.5-22: 796   1st Qu.:20.00   TRUE : 199  
##  Mode  :character   TRAPPIST-1e  :5915   Median :27.00   NA   : 203  
##                     NA           : 182   Mean   :28.83               
##                                          3rd Qu.:37.00               
##                                          Max.   :79.00               
##                                                                      
##   RoomService        FoodCourt        ShoppingMall          Spa         
##  Min.   :    0.0   Min.   :    0.0   Min.   :    0.0   Min.   :    0.0  
##  1st Qu.:    0.0   1st Qu.:    0.0   1st Qu.:    0.0   1st Qu.:    0.0  
##  Median :    0.0   Median :    0.0   Median :    0.0   Median :    0.0  
##  Mean   :  224.7   Mean   :  448.4   Mean   :  169.6   Mean   :  304.6  
##  3rd Qu.:   78.0   3rd Qu.:   61.0   3rd Qu.:   22.0   3rd Qu.:   53.0  
##  Max.   :14327.0   Max.   :29813.0   Max.   :23492.0   Max.   :22408.0  
##                                                                         
##      VRDeck        Transported      ailenumara          ailesira        
##  Min.   :    0.0   Mode :logical   Length:8693        Length:8693       
##  1st Qu.:    0.0   FALSE:4315      Class :character   Class :character  
##  Median :    0.0   TRUE :4378      Mode  :character   Mode  :character  
##  Mean   :  298.3                                                        
##  3rd Qu.:   40.0                                                        
##  Max.   :24133.0                                                        
## 
library(VIM)
## Loading required package: colorspace
## Loading required package: grid
## VIM is ready to use.
## Suggestions and bug-reports can be submitted at: https://github.com/statistikat/VIM/issues
## 
## Attaching package: 'VIM'
## The following object is masked from 'package:datasets':
## 
##     sleep
VIM::aggr(x= train, sortVars=T)

## 
##  Variables sorted by number of missings: 
##      Variable      Count
##        sutun3 0.02289198
##   PassengerId 0.00000000
##    HomePlanet 0.00000000
##     CryoSleep 0.00000000
##        sutun1 0.00000000
##        sutun2 0.00000000
##   Destination 0.00000000
##           Age 0.00000000
##           VIP 0.00000000
##   RoomService 0.00000000
##     FoodCourt 0.00000000
##  ShoppingMall 0.00000000
##           Spa 0.00000000
##        VRDeck 0.00000000
##   Transported 0.00000000
##    ailenumara 0.00000000
##      ailesira 0.00000000
VIM::aggr(x= test, sortVars=T)

## 
##  Variables sorted by number of missings: 
##      Variable      Count
##        sutun3 0.02338087
##          Name 0.02197802
##           Age 0.02127660
##   PassengerId 0.00000000
##    HomePlanet 0.00000000
##     CryoSleep 0.00000000
##        sutun1 0.00000000
##        sutun2 0.00000000
##   Destination 0.00000000
##           VIP 0.00000000
##   RoomService 0.00000000
##     FoodCourt 0.00000000
##  ShoppingMall 0.00000000
##           Spa 0.00000000
##        VRDeck 0.00000000