ppol628-final-project/.Rhistory

load("C:/Users/alexi/Desktop/MS-DSPP/Spring 2022/PPOL628 Final Project/.RData")
tweets <-
#Read in tweets
read_csv('data/tweets.csv')
require(tidyverse)
tweets <-
#Read in tweets
read_csv('data/tweets.csv')
setwd("C:/Users/alexi/Desktop/MS-DSPP/Spring 2022/PPOL628 Final Project")
tweets <-
#Read in tweets
read_csv('data/tweets.csv')
length(unique(tweets$username))
#Read in data
tweets <-
#Read in tweets
read_csv('data/tweets.csv') %>%
#Join elected officials
left_join(
read_csv('data/elected_officials.csv') %>%
#Pivot so each individual account is a row
pivot_longer(
cols = c('officialTwitter',
'campaignTwitter',
'othertwitter'),
names_to = 'account_type',
values_to = 'twitter',
values_drop_na = TRUE
) %>%
#convert to lowercase so the join works
mutate('twitter' = tolower(twitter)),
by = c('username' = 'twitter')) %>%
#Drop unused columns
select(State:account_type,
language,
username,
tweet) %>%
#Filter just to english tweets
filter(language == 'en') %>%
#Concatenate tweets by individual name
group_by(Name) %>%
mutate('tweets' = paste0(tweet, collapse = "")) %>%
#Drop unneeded columns again
select(!c(tweet,account_type, username)) %>%
#Select unique rows
distinct()