paper.Rmd

---
title: "Tweets from five beer companies"
author: "Lisha Wang"
date: "November 03, 2017"
output: html_document
---




## Background 
We grabed tweets from five beer companies' official accounts and did text-mining analysis. The five companies are Bud lite, Dos Equis, Guinness, Blue Moon, and Tsingtao. I focused on text data about Tsingtao, and the question for me was "What are the common words among tweets which have highest retweets in each month".

## The Data

We got the data by using the package twitteR. I defined the username as

```
@Tsingtao
```

Our function also allows us to enter in information on dates and number of tweets. 

## The Graph

Below is the popular words among tweets with highest retweets in each month:
![*Fig.1*Common words among tweets with highest number of retweets monthly](graph/plot.png)

## Basic Information

The table below display the number of month each company has the highst retweets

```{r, echo=FALSE}
library(dplyr)
load("data/retweets.Rda")
table<-as.data.frame(table(retweets$screenName))
names(table) <-c("Brand", "Count")
knitr::kable(table)
```