- Introduction
> mr[,]PassengerId Survived Pclass1 1 0 32 2 1 13 3 1 34 4 1 15 5 0 3Name Sex1 Braund, Mr. Owen Harris male2 Cumings, Mrs. John Bradley (Florence Briggs Thayer) female3 Heikkinen, Miss. Laina female4 Futrelle, Mrs. Jacques Heath (Lily May Peel) female5 Allen, Mr. William Henry male
males[,]
misses[,]
I ran into a problem at mark. I'm not getting any error code and all syntax are correct but "title" column is not being added. I checked the syntax many times but all seems correct but not getting the result.
) worked like a charm for the last plot @~, the facet_wrap of Title vs Pclass vs Survived whereas your geom_histogram fix did not!
Playback speed !!
], survived = rep("None", nrow(test)),test[,])names(test.survived)<-names(train)
,)]# Combine data framesdata.combined <- rbind(train, test.survived.fixed)
- R setup
- Kaggle file download
- First steps in R
I could get the variable description data at
Did you pre-write all of the lines ? When I open the data none of that is there, I can type it out but feel I may have done something wrong already.
- Code along the lines of: my.train <- combined[,]
: In the last ggplot as the data to be plotted is restricted to rows, the aesthetics parameter(x and fill) should also be restricted to 891 rows essentially.
> ggplot(data.combined[,], aes(x = title, fill = Survived)) +geom_histogram(binwidth = 0.5) +facet_wrap(~pclass) +ggtitle("Pclass") +xlab("Title") +ylab("Total Count") +labs(fill = "Survived")Error in eval(expr, envir, enclos) : object 'Survived' not found
> ggplot(data.combined[,], aes(x = title, fill = survived)) +geom_histogram(binwidth = 0.5) +facet_wrap(~pclass) +ggtitle("Pclass") +xlab("Title") +ylab("Total Count") +labs(fill = "Survived")Error: StatBin requires a continuous x variable the x variable is discrete. Perhaps you want stat="count"?
> ggplot(data.combined[,], aes(x = title, fill = survived)) +stat_count(width = 0.5) +facet_wrap(~pclass) +ggtitle("Pclass") +xlab("Title") +ylab("Total Count") +labs(fill = "Survived")
> ggplot(data.combined[,],aes(x=title,fill=Survived))++ geom_bar(width = .5)++ facet_wrap(pclass)++ ggtitle("Pclass")++ xlab("Title")++ ylab("Total Count")++ labs(fill="Survived")"Error: Must use either variable name or expression when facetting"
Correct: ggplot(data.combined[,],aes(x=titles[1:891],fill=Survived[1:891]))geom_bar(width=0.4)+facet_wrap(~Pclass)+ggtitle("Pclass")+xlab("Title")+ylab("count")+labs("title wise survivals and deaths")
ggplot (data.combined[,], aes(x = title, fill=Survived)) +geom_bar(stat="count")+facet_wrap(~Pclass)+ggtitle("Pclass")+xlab("Title")+ylab("Total Count")+labs(fill="Survived")
ggplot(data.combine [,], aes(x=title, fill=Survived))+geom_histogram(stat_count=0.5)+facet_wrap(~Pclass)+ggtitle("Pclass")+xlab("title")+ylab("Total Count")+labs(fill="Survived")
ggplot(data.combined[, ], aes(x = Title, fill = Survived))+geom_bar()+facet_wrap(~Pclass)+ggtitle("Pclass")+xlab("Title")+ylab("Total Count")+labs(fill = "Survived")
ggplot(data.combined[, ], aes(x = title, fill = Survived)) +geom_bar(binwidth = 0.5) +facet_wrap(~Pclass) +ggtitle("Pclass") +xlab("Title") +ylab("Total Count") +labs(fill = "Survived")
ggplot(data.combined[,], aes (x= title, fill = Survived)) +geom_histogram(binwidth = 0.5) +# wrap a 1d ribbon of panles into 2dfacet_wrap(~pclass) +ggtitle("Pclass") +xlab("title") +ylab("Total Count") +labs(fill = "Survived")
ggplot(data.combined[,], aes(x = title, fill = Survived)) +#stat_count(width=0.5) + # it also works (old version)geom_bar() +# wrap a 1d ribbon of panles into 2dfacet_wrap(~Pclass) +ggtitle("Pclass") +xlab("Title") +ylab("Total Count") +labs(fill = "Survived")
ggplot(data.combined[,], aes(x = title, fill = Survived)) ++ geom_bar(binwidth = 0.5) ++ facet_wrap(~Pclass) ++ ggtitle("Pclass") ++ xlab("Title") ++ ylab("Total Count") ++ labs(fill = "Survived")Don't know how to automatically pick scale for object of type function. Defaulting to continuous.Error: Aesthetics must be valid data columns. Problematic aesthetic(s): x = title.Did you mistype the name of a data column or forget to add stat()?Also: Warning message:`geom_bar()` no longer has a `binwidth` parameter. Please use `geom_histogram()` instead.
ggplot(data.combined[,], aes(x = title, fill = Survived)) ++ geom_histogram(binwidth = 0.5) ++ facet_wrap(~pclass) ++ ggtitle("Pclass") ++ xlab("Title") ++ ylab("Total Count") ++ labs(fill = "Survived")Error in layout_base(data, vars, drop = drop) :At least one layer must contain all variables used for facetting
ggplot(data.combined[,], aes(x = title, fill = Survived)) +geom_bar() +facet_wrap(~Pclass) +ggtitle("Pclass") +xlab("Title") +ylab("Total Count") +labs(fill = "Survived")Can sb plz explain why the "geom_bar()" function is filled with nothing here? 🙏
ggplot(data.combined[,], aes(x = title, fill = survived)) +geom_bar() +facet_wrap(~pclass) +ggtitle("Pclass") +xlab("Title") +ylab("Total Count") +labs(fill = "Survived")
ggplot(data.combined[,], aes(x = title, fill = survived)) +stat_count(width = 0.5) +facet_wrap(~pclass) +ggtitle("Pclass") +xlab("Title") +ylab("Total Count") +labs(fill = "Survived")
ggplot(data.combined[,],aes(x=title,fill=Survived))++ geom_bar(width = .5)++ facet_wrap(Pclass)++ ggtitle("Pclass")++ xlab("Title")++ ylab("Total Count")++ labs(fill="Survived")Error in as.quoted(facets) : object 'Pclass' not found.after using a variable for the same usingpclass=data.combined$Pclass
ggplot(data.combined[,],aes(x=titles,fill=Survived))+geom_histogram(binwidth = 0.5)+facet_wrap(~Pclass)+ggtitle('Pclass')+xlab('Title')+ylab('Total Count')+labs(fill = 'Survived')
At , you could say:
L and value for "title" is chr[] and was wondering if the count should match????
lengths: int [] 1 1 1 1 1 1 1 1 1 1 ...
values : chr [] "Braund, Mr. Owen Harris" "Cumings, Mrs. John Bradley (Florence Briggs Thayer)" ...
Your "Ok! i do not want that, thank you!" statement really makes me think that you are really cool. I just want to be cool as you :) <3
- Data preparation
- 1. Hypothesis testing
For anyone getting a "perhaps you want stat = count?" error at the ggplot part (around ) using newer versions of R, replace geom_histogram with geom_bar. geom_histogram and geom_bar have been split into two functions now, where geom_bar is for discrete variables like the pclass factor, and geom histogram only works with continuous variables. I was getting this problem and doing so fixed it.
BUT: I ran into an error at ~
But maybe someone can help me with the ggplot at . When running the code I always get the Error: `mapping` must be created by `aes()`, despite using the exact same code as shown in the video (tried with geom_histogram as well as geom_bar, but I don't think it got anything to do with the error). I already tried to find solutions online but still couldn't solve the problem.Thanks again for the video, would be nice if someone had an idea to get rid of this error.
was getting StatBin requires a continuous x variable the x variable is discrete. Perhaps you want stat="count"? in i.e plotting the graph but used geom_bar resolved my prblm...
I'm stuck at
creating the plot i get the response Error: `mapping` must be created by `aes()`what must i change?
Question: at we have a chart with Pclass on the X axis, Count on the Y, and it is filled with Survived or not survived. In addition to this visual representation (the one shown on the video), is there a way to add the numerical percentage of survived individuals in each Pclass? For example, it looks like ~60%, ~50%, and ~20% survived in Pclass 1, 2, and 3, respectively. Can we add these values to the graph?
- Finding anomalys
Also at no need to use which() or even character() twice:> dup.names <- data.combined [duplicated(data.combined$Name), ]
i am having difficulties with your code at . I do not get the same output. This is what I get:
at i am not getting the same output when plugging in the codedup.names <- as.character(data.combined[which(duplicated(as.character(data.combined$Name))), "Name"])
Awesome tutorial to clear the context. However at , the R code to find duplicate names upon execution creates a blank variable. Any suggestions?
Could not get the dup.names line to work at . Appears in the values as "c(646,262)" rather than the names themselves as a character
For the life of me I could not get the bit around or so to work (the part using %in%).
Just in case these comments are still pretty active, I've gotten a bit stuck with an issue. I'm up to , pulling out the apparently duplicated data. I've assigned the duplicates from "Name" to duplicate.Names.However what data.combined[which(data.combined$Name %in% duplicate.Names),] returns is empty, it shows an empty 0 x 12 tibble.
Do i have any method to show the table like the in video ?
Mr.Langer why I can't see the table like , I coding the same code in the R and reply me like
I did have a quick question for anyone that knows the answer. Is there a reason why around "misses" turns into a data frame instead of just a value?
pew pew
A 4 year old girl is unmarried, but everyone in the dataset "misses" is unmarried/without spouse(I mean that is why they have miss attached to their name).Then what is the point for having variable "sibsp" in "misses" dataframe. Having a variable "Sib" instead looks good?
hol up. Some girl is married at 14?
Why when checking the pattern for survivors among males at , you use train$sex instead of data.combined$sex? In fact, how would you pull rows from data.combined based on the data in train? Wouldn't that require some sort of key?
equals signs (==) in the "males <- data.combined[which(train$Sex == "male"),]" segment at ?
At , I just lost it when even the 2 year old male child didn't survive! It was too funny and so wrong at the same time. Thank you so much David for using the most simplest Data set. You really are a great teacher!
Why do we change the code for figuring out if the same pattern exists for males at ?
lol at
- Finding anomalys 2
At , instead of all those If-Else statements and For loop, you could just simply write:
At , that whole block of If-Else and the for loop doesn’t work properly for me. Instead it creates a “titles” column in data.combined and all its enteries are “others”.
it's free real estate
I know I am a couple years late to the game - but I got stuck around with the extract Title function. Finally got around it by using:
in this point I wroteif (length(grep("Miss.", Name)) > 0) {return ("Miss.")} else if (length(grep("Master.", Name)) > 0) {return ("Master.")} else if (length(grep("Mr.", Name)) > 0) {return ("Mr.")} else if (length(grep("Mrs.", Name)) > 0) {return ("Mrs.")} else {return ("Other")}}And R doesn't make difference between Mr and Mrs. I mean, in the new variable only exist Mr. Miss. and Others. The problem solved writing exactly in order like Langer does
Thanks David. At we are assigning titles and I keep only returning "Other" as the values. I even opened up the most recent github code (version 7), copy and pasted it into my code and still only returned "Others." Any idea why that is the issue?
Is anyone still replying to this? Around , my code does not do the same thing his does. It creates titles as a list of 2, not as a list of 1309. When I View(titles), it shows the first item on the list as lines of code:function (main = NULL, sub = NULL, xlab = NULL, ylab = NULL,line = NA, outer = FALSE, ...){main <- as.graphicsAnnot(main)sub <- as.graphicsAnnot(sub)xlab <- as.graphicsAnnot(xlab)ylab <- as.graphicsAnnot(ylab).External.graphics(C_title, main, sub, xlab, ylab, line,outer, ...)invisible()}And the second as "Master." I have checked and rechecked my code, and I put it in exactly as he did. Then, when I enterdata.combined$title <- as.factor(titles)I get the error messageError in sort.list(y) : 'x' must be atomic for 'sort.list'Have you called 'sort' on a list?If I try to do it as.vector instead (as some online sources appeared to be suggesting) I getError in `$<-.data.frame`(`*tmp*`, title, value = list(function (main = NULL, :replacement has 2 rows, data has 1309What is wrong here?
AT while adding the title column this error showsError in extractTitle(data.combined[i, "Name"]) : object 'name' not found> data.combined$title <- as.factor(titles)Error in `$<-.data.frame`(`*tmp*`, title, value = integer(0)) :replacement has 0 rows, data has 1309
Hi, anyone knows what does the "~" symbol in face_wrap in minute ? thanks
