Hi Professor @Dselby86,
I am struggling with question 3 of the lab. I can't seem to get the clap score per title length, I am only getting it by every individual title (over 6K of them). I also tried the table( ) function but that also was not successful.
Hi Professor @Dselby86, I am struggling with question 3 of the lab. I can't seem to get the clap score per title length, I am only getting it by every individual title (over 6K of them). I also tried the table( ) function but that also was not successful.
x <- tolower(d$title)
word.list <- strsplit(x, " ") title.length <- length(word.list) apply <- sapply(strsplit(x, " "), length) apply df %>% group_by(apply) %>% summarize(clapscore = (sum(d$clap.score))) df