Day 3 HW

train_data <- read.csv("C:/Users/aarit/Downloads/train (1).csv")
x <- na.omit(train_data)
df_clean <- x
library(stargazer)

Please cite as: 

 Hlavac, Marek (2022). stargazer: Well-Formatted Regression and Summary Statistics Tables.

 R package version 5.2.3. https://CRAN.R-project.org/package=stargazer 

?stargazer

starting httpd help server ... done

stargazer(x,                                     
          type   = "text",                            
          title  = "Summary Statistics",        
          digits = 1
          )

Summary Statistics
========================================
Statistic    N  Mean  St. Dev. Min  Max 
----------------------------------------
PassengerId 714 448.6  259.1    1   891 
Survived    714  0.4    0.5     0    1  
Pclass      714  2.2    0.8     1    3  
Age         714 29.7    14.5   0.4 80.0 
SibSp       714  0.5    0.9     0    5  
Parch       714  0.4    0.9     0    6  
Fare        714 34.7    52.9   0.0 512.3
----------------------------------------

library(ggplot2)

Passenger <- ggplot(df_clean,
            aes(x = factor(Pclass),
                y = Age)
                ) + geom_boxplot()

Passenger + labs(x = "Passenger Class")

Passenger <- ggplot(df_clean,
       aes(x = Fare),
           ) + geom_histogram(binwidth = 34)
Passenger + labs(y = "Frequency")