-
Notifications
You must be signed in to change notification settings - Fork 0
/
day_fifteen_live_code.R
30 lines (21 loc) · 837 Bytes
/
day_fifteen_live_code.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
weddings<-weddings %>%
mutate(reference=1:dim(weddings)[1])
weddings_per_line<-weddings %>%
unnest_tokens(word, Name)%>%
count(reference, word, sort=TRUE) %>%
rename(per_line = n)
afinn<-get_sentiments("afinn")
#if there is a prompt, say yes
#for today we are NOT removing stopwords
#the dimensionality reduction of the AFINN join makes this redundant
#attach the scores
with_scores<-weddings_per_line%>%
#THIS IS THE INNERJOIN I WAS YELLING ABOUT!
inner_join(afinn, by="word")
scores_weddings<-with_scores%>%
group_by(reference)%>%
#notice our per line strategy is SUM
summarize(line_value=sum(value), line_var=sd(value))
wedding_sentiments<-inner_join(weddings, scores_weddings, by="reference")
View(wedding_sentiments)
wedding_sentiments %>% ggplot(aes(reference, line_value, colour=State))+geom_jitter()