Michael Schmidt Interview with Trump

run.R

s <- 'Frankly there is absolutely no collusion…Virtually every Democrat has said there is no collusion. There is no collusion…I think it’s been proven that there is no collusion…I can only tell you that there is absolutely no collusion…There’s been no collusion…There was no collusion. None whatsoever…everybody knows that there was no collusion. I saw Dianne Feinstein the other day on television saying there is no collusion [note: not true]…The Republicans, in terms of the House committees, they come out, they’re so angry because there is no collusion…there was collusion on behalf of the Democrats. There was collusion with the Russians and the Democrats. A lot of collusion…There was tremendous collusion on behalf of the Russians and the Democrats. There was no collusion with respect to my campaign…But there is tremendous collusion with the Russians and with the Democratic Party…I watched Alan Dershowitz the other day, he said, No. 1, there is no collusion, No. 2, collusion is not a crime, but even if it was a crime, there was no collusion. And he said that very strongly. He said there was no collusion…There is no collusion, and even if there was, it’s not a crime. But there’s no collusion…when you look at all of the tremendous, ah, real problems [Democrats] had, not made-up problems like Russian collusion.'
s <- tolower(gsub("[^[:alnum:]\\'’ ]"," ",s))
while(nchar(s)>nchar(gsub("  "," ",s))) {
	s <- gsub("  "," ",s)
}
words <- unlist(strsplit(s," "))
df <- matrix(NA,nrow = 0, ncol = 2)
collusion <- 0
for(i in 1:length(words)) {
	if(words[i]=="collusion") {
		collusion <- collusion + 1
	}
	df <- rbind(df,c(i,collusion))
}
df <- data.frame(df)
p1 <- ggplot(df, aes(x = X1, y = X2)) +
	theme_bw() +
	geom_line() + 
	theme(legend.position="bottom", legend.direction="horizontal", 
		  legend.title = element_blank()) +
	geom_smooth() + labs(x="Word Position", y="Usage of 'Collusion'") + 
	ggtitle("Michael Schmidt Interview")
p1