Simple descriptives report for grant application

Sample Data Descriptives

# not based on full dataset!!
dat <- drake::readd(cleaned_data)

# Unique User
length(unique(dat$user_id))

## [1] 3912

# Total Tweets
nrow(dat)

## [1] 7485

# Included Hashtag Queries
data.frame(hashtag_queries = unique(dat$q))

##       hashtag_queries
## 1 twitterlehrerzimmer
## 2                twlz