```r
stock_sentiment_count <- stock_tokens %>%
  inner_join(get_sentiments("loughran"), by = "word") %>%
  count(sentiment, company) %>%
  spread(sentiment, n, fill = 0)

stock_sentiment_count
```

```
## # A tibble: 9 x 7
##   company   constraining litigious negative positive superfluous uncertainty
##   <chr>            <dbl>     <dbl>    <dbl>    <dbl>       <dbl>       <dbl>
## 1 Amazon               7         8       84      144           3          70
## 2 Apple                9        11      161      156           2         132
## 3 Facebook             4        32      128      150           4          81
## 4 Google               7         8       60      103           0          58
## 5 IBM                  8        22      147      148           0         104
## 6 Microsoft            6        19       92      129           3         116
## 7 Netflix              4         7      111      162           0         106
## 8 Twitter              4        12      157       79           1          75
## 9 Yahoo                3        28      130       74           0          71
```