Assignment_Day4

Setting up environment

setwd("C:/Users/Juanjo/Dropbox/My PC (JUANJOSE-LAPTOP)/Desktop/SUMMER")
train <- read.csv("train.csv")

Plots

library(ggplot2)
ggplot(data    = train,              
       mapping = aes(x = PassengerId)  
) + geom_bar() 

ggplot(data    = train,              
       mapping = aes(x = Survived)  
) + geom_bar() 

ggplot(data    = train,              
       mapping = aes(x = Pclass)  
) + geom_bar() 

ggplot(data    = train,              
       mapping = aes(x = Name)  
) + geom_bar() 

ggplot(data    = train,              
       mapping = aes(x = Sex)  
) + geom_bar() 

ggplot(data    = train,              
       mapping = aes(x = Age)  
) + geom_bar() 

## Warning: Removed 177 rows containing non-finite values (`stat_count()`).

ggplot(data    = train,              
       mapping = aes(x = SibSp)  
) + geom_bar()

ggplot(data    = train,              
       mapping = aes(x = Parch)  
) + geom_bar() 

ggplot(data    = train,              
       mapping = aes(x = Ticket)  
) + geom_bar() 

ggplot(data    = train,              
       mapping = aes(x = Fare)  
) + geom_bar() 

ggplot(data    = train,              
       mapping = aes(x = Cabin)  
) + geom_bar() 

ggplot(data    = train,              
       mapping = aes(x = Embarked)  
) + geom_bar()