train <- read.csv("train.csv", header = T, na.strings = "?", stringsAsFactors = T)
attach(train)

plot(Fare, Survived)

Pclass = as.factor(Pclass)
lived = subset(train, Survived == 1)
died = subset(train, Survived == 0)
males = subset(train, Sex == 'male')
females = subset(train, Sex == 'female')

plot(males$Fare, males$Survived)