filtering.rmd

---
title: "Crafting Audience Engagement in Social Media Conversations: Evidence from the U.S. 2020 Presidential Elections -- Tweet Filtering"
author: "Linus Hagemann"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, warning = FALSE)
library(here)
here()
```

```{r include=FALSE, eval=FALSE}
load(here('prod.RData'))
tweet_data <- (tweet_data[!tweet_data$likes > 500000,])
tweet_data <- (tweet_data[!tweet_data$replies > 20000,])
tweet_data <- tweet_data[tweet_data$fameLevel != 5,]
famous_tweet_data <- tweet_data[tweet_data$fameLevel != 0,]
famous_tweet_data <- famous_tweet_data[famous_tweet_data$fameLevel != 5,]
not_famous_tweet_data <- tweet_data[tweet_data$fameLevel == 0,]
save(tweet_data, famous_tweet_data, not_famous_tweet_data, file = here('final_data.RData'))
```