EKONOMETRI PROJESI

KAGGLE PROJESI

Ilk proje

.R yükleme

.Rmarkdown başlangıç

.Web sayfasını hazırlama

.İnternete yükleme

FORMUL YAZMA

\[ Y=(A-B)(A+B) \]

library(WDI)
## Warning: package 'WDI' was built under R version 4.3.3
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.3.3
# Örnek enflasyon verilerini oluşturalım
years <- c(2015, 2016, 2017, 2018, 2019, 2020, 2021)
ukraine_inflation <- c(48.7, 12.4, 13.9, 9.8, 4.1, 5.2, 7.3)
somalia_inflation <- c(3.2, 4.5, 5.8, 7.1, 8.4, 9.7, 11.0)

# Verileri bir veri çerçevesine dönüştürelim
inflation_data <- data.frame(Year = years,
                             Ukraine = ukraine_inflation,
                             Somalia = somalia_inflation)

# Grafik çizimi
library(ggplot2)

ggplot(inflation_data, aes(x = Year)) +
  geom_line(aes(y = Ukraine, color = "Ukraine")) +
  geom_line(aes(y = Somalia, color = "Somalia")) +
  labs(title = "Ukraine vs Somalia Enflasyon",
       x = "Yıl",
       y = "Enflasyon Oranı (%)",
       color = "Ülke") +
  scale_color_manual(values = c("Ukraine" = "blue", "Somalia" = "red")) +
  theme_minimal()

Makine Öğrenmesi Açıklayın

Makine öğrenimi, bilgisayar sistemlerinin deneyimlerinden veya verilerden öğrenme yeteneğidir, böylece belirli bir görevi daha iyi yapabilirler. Genellikle algoritmalar ve istatistiksel modeller kullanılarak gerçekleştirilir. Makine öğrenimi, birçok alanda kullanılır ve günümüzde hızla yaygınlaşmaktadır. İşte makine öğreniminin temel kavramları:

Veri: Makine öğrenimi, veriye dayalıdır. Veri, öğrenme algoritmalarının eğitilmesi ve test edilmesi için kullanılır. Veri, çeşitli kaynaklardan gelir, örneğin sensörler, web sayfaları, satış kayıtları, görüntüler, metinler vb.

Algoritmalar: Makine öğrenimi algoritmaları, verileri analiz etmek ve desenler bulmak için kullanılır. Bu algoritmalar, veriye dayalı model oluşturma, sınıflandırma, regresyon, kümeleme, boyut indirgeme ve takip gibi çeşitli görevleri yerine getirebilir.

Modelleme: Makine öğrenimi modelleri, veri içindeki desenleri tanımlamak ve tahminlerde bulunmak için kullanılır. Modeller, öğrenme algoritmaları tarafından eğitilir ve genellikle bir test veri kümesi kullanılarak değerlendirilir.

Eğitim ve Test: Makine öğrenimi modelleri, eğitim veri kümesi üzerinde eğitilir ve daha sonra test veri kümesi üzerinde test edilir. Eğitim veri kümesi, modelin parametrelerini öğrenmek için kullanılırken, test veri kümesi, modelin performansını değerlendirmek için kullanılır.

Değerlendirme: Model performansı, doğruluk, hassasiyet, hatırlama, F1 puanı, ortalama karesel hata (MSE) gibi metriklerle değerlendirilir. Bu metrikler, modelin ne kadar iyi veya kötü performans gösterdiğini belirlemeye yardımcı olur.

Uygulamalar: Makine öğrenimi, birçok alanda kullanılır, örneğin otomatik sürüş, tıbbi teşhis, finansal analiz, doğal dil işleme, görüntü tanıma, reklam hedefleme ve daha fazlası.

Sürekli Öğrenme: Makine öğrenimi sürekli olarak gelişen bir alandır. Yeni verilerle ve deneylerle modeller sürekli olarak güncellenir ve iyileştirilir.

Makine öğrenimi, karmaşık veri analitiği ve problemlerin çözümü için güçlü bir araçtır. Ancak, veri güvenilirliği, etik sorunlar ve modelin yorumlanabilirliği gibi bazı zorluklarla da karşılaşabilir. Bu nedenle, makine öğrenimi uygulamaları oluştururken bu faktörleri göz önünde bulundurmak önemlidir.

Spaceship titanic ( Kaggle tanitimi )

“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, Varyansı, Standart sapma, Kovaryansı, ve Korelasyon

Ortalama

bir veri kumsindeki sayilarin toplaminin veri sayisina bolumasi

Ortalama formülü

\[ \bar{x} =\sum_{i=1}^{n} x_i \frac{1}{n} \] ## standart sapma

veri noktalarının ortalama değerden ne kadar uzaklaştığını ölçen istastistiksel bir ölçüdür

standart sapma formülü

\[ s = \sqrt{\frac{\sum_{i=1}^{n} (x_i - \bar{x})^2}{n-1}} \] ## Kovaryansı

iki değişken arasındaki ilişkinin yönünü ve büyüklüğünü ölçen istatistiksel bir ölçüdür.

Kovaryansı formülü

\[ \text{cov}(X, Y) =\sum_{i=1}^{n} (x_i - \bar{X}) \cdot (y_i - \bar{Y})\ \frac{1}{n-1} \] ## korelasyon

iki değişken arasındaki ilişkinin yönünü ve gücünün ölçen istatistiksel bir yöntemdir

korelasyon formülü

\[ \[r = \frac{\text{cov}(X, Y)}{\sqrt{\text{var}(X) \cdot \text{var}(Y)}}\] \] [14:35, 05/04/2024] Anisa: #### Örnek

Bir pazar araştırması yapıldı ve 10 farklı kişinin gelirleri ve harcamaları miktarını inceleyerek tüketim alışkanlarını gözlenebilmektidir.

Gözlem_no <- c(1,2,3,4,5,6,7,8,9,10)
Harcamalar <- c(150,200,120,80,250,180,90,200,160,120)
Gelirler <- c(3000,4000,2500,1800,5000,3500,2000,4000,3200,2500)

Bu pazar araştırması, gelirlerin artışı ile harcamalar arasındaki güçlü pozitif ilişkiyi anlamak için gerçekleştirilmiştir. Elde edilen verilere göre, gelir miktarındaki artışın genellikle harcamaları artırdığı gözlemlenmiştir. Bu durum, bireylerin gelir seviyelerindeki yükselişin, tüketim alışkanlıklarında olumlu bir etkiye neden olduğunu göstermektedir.

Train ve Test Nedir

“Train set” ve “test set” genellikle makine öğrenimi ve veri bilimi alanlarında kullanılan terimlerdir. “Train set” eğitim veri kümesini ifade eder ve modelinizi eğitmek için kullanılır. “Test set” ise eğitilen modelin performansını değerlendirmek için ayrılan veri kümesidir. Model eğitildikten sonra, test seti üzerindeki performansı, modelin gerçek dünya verilerine ne kadar iyi genelleme yaptığını gösterir.

library(readr)
## Warning: package 'readr' was built under R version 4.3.3
test <- read_csv("test.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
## 
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.
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
## 
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.
library(rmarkdown)
paged_table(train)
paged_table(test)

.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)
## Warning: package 'explore' was built under R version 4.3.3
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.3.3
## 
## 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 x 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)
## Warning: package 'tidyverse' was built under R version 4.3.3
## Warning: package 'tibble' was built under R version 4.3.3
## Warning: package 'tidyr' was built under R version 4.3.3
## Warning: package 'purrr' was built under R version 4.3.3
## Warning: package 'stringr' was built under R version 4.3.3
## Warning: package 'forcats' was built under R version 4.3.3
## Warning: package 'lubridate' was built under R version 4.3.3
## -- Attaching core tidyverse packages ------------------------ tidyverse 2.0.0 --
## v forcats   1.0.0     v stringr   1.5.1
## v lubridate 1.9.3     v tibble    3.2.1
## v purrr     1.0.2     v tidyr     1.3.1
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
## i 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, 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)
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      ailenumara          ailesira        
##  Mode :logical   Length:8693        Length:8693       
##  FALSE:4315      Class :character   Class :character  
##  TRUE :4378      Mode  :character   Mode  :character  
##                                                       
##                                                       
##                                                       
## 
test[c("ailenumara", "ailesira")] <- str_split_fixed(test$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 x 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: 17 x 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
## 16 ailenumara   chr       0    0     3063    NA  NA       NA
## 17 ailesira     chr       0    0        8    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 x 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
test %>% describe_all()
## # A tibble: 17 x 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
## 16 ailenumara   chr       0    0     3063    NA  NA       NA
## 17 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 x 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: 17 x 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
## 16 ailenumara   chr       0    0     3063    NA  NA       NA
## 17 ailesira     chr       0    0        8    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 x 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: 17 x 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
## 16 ailenumara   chr       0    0     3063    NA  NA       NA
## 17 ailesira     chr       0    0        8    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 x 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: 17 x 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
## 16 ailenumara   chr       0    0     3063    NA  NA      NA
## 17 ailesira     chr       0    0        8    NA  NA      NA
train <- train %>% mutate(FoodCourt = coalesce(FoodCourt, 0))
test <- test %>% mutate(FoodCourt = coalesce(FoodCourt, 0))
train %>% describe_all()
## # A tibble: 18 x 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: 17 x 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
## 16 ailenumara   chr       0    0     3063    NA  NA      NA
## 17 ailesira     chr       0    0        8    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 %>% describe_all()
## # A tibble: 18 x 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 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: 17 x 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       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
## 16 ailenumara   chr       0    0     3063    NA  NA      NA
## 17 ailesira     chr       0    0        8    NA  NA      NA
train <- train %>% select(-Name)
train %>% describe_all()
## # A tibble: 17 x 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 x 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: 17 x 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
## 16 ailenumara   chr       0    0     3063    NA  NA      NA
## 17 ailesira     chr       0    0        8    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.

head(train[, c("PassengerId", "ailenumara", "ailesira")], 10)
## # A tibble: 10 x 3
##    PassengerId ailenumara ailesira
##    <chr>       <chr>      <chr>   
##  1 0001_01     0001       01      
##  2 0002_01     0002       01      
##  3 0003_01     0003       01      
##  4 0003_02     0003       02      
##  5 0004_01     0004       01      
##  6 0005_01     0005       01      
##  7 0006_01     0006       01      
##  8 0006_02     0006       02      
##  9 0007_01     0007       01      
## 10 0008_01     0008       01
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)
## Warning: package 'VIM' was built under R version 4.3.3
## Loading required package: colorspace
## Warning: package 'colorspace' was built under R version 4.3.3
## 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
##    ailenumara 0.00000000
##      ailesira 0.00000000