facto

facto

library(FactoMineR)
library(FactoInvestigate)
data(tea)
res.mca = MCA(tea, quanti.sup = 19,quali.sup = 20:36, graph = FALSE)
res.mca

## **Results of the Multiple Correspondence Analysis (MCA)**
## The analysis was performed on 300 individuals, described by 36 variables
## *The results are available in the following objects:
## 
##    name                description                                           
## 1  "$eig"              "eigenvalues"                                         
## 2  "$var"              "results for the variables"                           
## 3  "$var$coord"        "coord. of the categories"                            
## 4  "$var$cos2"         "cos2 for the categories"                             
## 5  "$var$contrib"      "contributions of the categories"                     
## 6  "$var$v.test"       "v-test for the categories"                           
## 7  "$ind"              "results for the individuals"                         
## 8  "$ind$coord"        "coord. for the individuals"                          
## 9  "$ind$cos2"         "cos2 for the individuals"                            
## 10 "$ind$contrib"      "contributions of the individuals"                    
## 11 "$quanti.sup"       "results for the supplementary quantitative variables"
## 12 "$quanti.sup$coord" "coord. of the supplementary quantitative variables"  
## 13 "$quali.sup"        "results for the supplementary categorical variables" 
## 14 "$quali.sup$coord"  "coord. for the supplementary categories"             
## 15 "$quali.sup$cos2"   "cos2 for the supplementary categories"               
## 16 "$quali.sup$v.test" "v-test for the supplementary categories"             
## 17 "$call"             "intermediate results"                                
## 18 "$call$marge.col"   "weights of columns"                                  
## 19 "$call$marge.li"    "weights of rows"

Investigate(res.mca)

## -- creation of the .Rmd file (time spent : 0s) --
## 
## -- detection of outliers (time spent : 0.01s) --
## 0 outlier(s) terminated 
## 
## -- analysis of the inertia (time spent : 0.05s) --
## 4 component(s) carrying information : total inertia of 29.2% 
## 
## -- components description (time spent : 6.7s) --
## plane 1:2 
## plane 3:4 
## 
## -- classification (time spent : 7.16s) --
## 3 clusters 
## 
## -- annexes writing (time spent : 7.38s) --
## 
## -- saving data (time spent : 8.35s) --
## 
## -- outputs compilation (time spent : 8.35s) --

## -- task completed (time spent : 15.51s) --
## This interpretation of the results was carried out automatically, 
## it cannot match the quality of a personal interpretation

Safety hashtag

setwd("/Users/subasishdas1/Desktop/tweets/tweets2/02")
library(readxl)
dat= read_excel("buckleup.xlsx")

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A69309 / R69309C1: got '#fluxing #buckleup #nowplaying
## #cryptocurrency #crowdfunding #bitcoin #仮装通貨 #比特幣 #Cryptstart
## https://t.co/w4DIieD8es"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B69309 / R69309C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D69309 / R69309C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E69309 / R69309C5: got '['https://pbs.twimg.com/media/
## DYIUdB1VoAAcZst.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V69309 / R69309C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A80645 / R80645C1: got 'https://t.co/Lf32et9GI8"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B80645 / R80645C2: got 'no'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D80645 / R80645C4: got '['https://www.wimp.com/embrace-life-
## always-wear-your-seat-belt/']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E80645 / R80645C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V80645 / R80645C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A81294 / R81294C1: got 'Buckle up, buckaroos!'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A81296 / R81296C1: got '#BuckleUp #Buckaroo https://t.co/
## jHJgJfOZsb"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B81296 / R81296C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D81296 / R81296C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i =
## sheet, : Expecting date in E81296 / R81296C5: got '['https://pbs.twimg.com/
## tweet_video_thumb/DQfIcdkXUAASDDw.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V81296 / R81296C22: got '[{'screen_name': 'tonyposnanski',
## 'name': 'Tony Posnanski', 'id': '17642747'}]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A83031 / R83031C1: got 'been at 100%, an additional
## 2,804 people would still be alive this Thanksgiving holiday. #ClickItorTicket
## @NHTSAgov #BuckleUp https://t.co/zlX3oQkWBS"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B83031 / R83031C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D83031 / R83031C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E83031 / R83031C5: got '['https://pbs.twimg.com/media/
## DPZzQLKVwAA7CBZ.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V83031 / R83031C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A84504 / R84504C1: got '#Buckleup'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A84505 / R84505C1: got '#Fresh'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A84506 / R84506C1: got '#NewAgeSoko https://t.co/
## 9E6mL27CCg"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B84506 / R84506C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D84506 / R84506C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E84506 / R84506C5: got '['https://pbs.twimg.com/media/
## DOyOmPZW0AA6Z-h.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V84506 / R84506C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A88739 / R88739C1: got 'Learn more at https://t.co/
## NYc1q7xZMa https://t.co/I3SNjHqOSi"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B88739 / R88739C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D88739 / R88739C4: got '['https://www.azdps.gov/safety/
## seatbelt']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E88739 / R88739C5: got '['https://pbs.twimg.com/media/
## DKWcBYvV4AAv0oD.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V88739 / R88739C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A88807 / R88807C1: got 'For more information: https://t.co/
## NYc1q7xZMa https://t.co/syEyWp0VBU"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B88807 / R88807C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D88807 / R88807C4: got '['https://www.azdps.gov/safety/
## seatbelt']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E88807 / R88807C5: got '['https://pbs.twimg.com/media/
## DKRAikWVYAIWV2n.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V88807 / R88807C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A88884 / R88884C1: got 'For more info visit: https://t.co/
## NYc1q7xZMa https://t.co/hxfmcFITVz"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B88884 / R88884C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D88884 / R88884C4: got '['https://www.azdps.gov/safety/
## seatbelt']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E88884 / R88884C5: got '['https://pbs.twimg.com/media/
## DKLtrXNU8AA9PGq.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V88884 / R88884C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A90651 / R90651C1: got '#murdocharmy,"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B90651 / R90651C2: got 'und'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D90651 / R90651C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E90651 / R90651C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V90651 / R90651C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A96630 / R96630C1: got '#KCBBQ #MemorialDayWeekend
## #BUCKLEUP #staysafe"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B96630 / R96630C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D96630 / R96630C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E96630 / R96630C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V96630 / R96630C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A98003 / R98003C1: got 'by #Putin'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A98005 / R98005C1: got '#BUCKLEUP , Buckaroos!'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A98007 / R98007C1: got '#TheResistance https://t.co/
## 4c25n385tG"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B98007 / R98007C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D98007 / R98007C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i =
## sheet, : Expecting date in E98007 / R98007C5: got '['https://pbs.twimg.com/
## tweet_video_thumb/C_bDV5LUIAAIjj6.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V98007 / R98007C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A98344 / R98344C1: got '#BUCKLEUP'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A98346 / R98346C1: got '#toughtimes"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B98346 / R98346C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D98346 / R98346C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E98346 / R98346C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V98346 / R98346C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A99077 / R99077C1: got 'ENJOY THE SCIENCE MARCH!'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A99079 / R99079C1: got 'We are legion. We are one.'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A99081 / R99081C1: got 'then #BUCKLEUP #Buckaroo'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A99083 / R99083C1: got '#TheResistance https://t.co/
## PzEaz8U1NE"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B99083 / R99083C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D99083 / R99083C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i =
## sheet, : Expecting date in E99083 / R99083C5: got '['https://pbs.twimg.com/
## tweet_video_thumb/C9-fmtlUMAAheE8.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V99083 / R99083C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A99569 / R99569C1: got 'Peeps in the microwave.'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A99571 / R99571C1: got '#BUCKLEUP #Buckaroo https://t.co/
## Q7Ksw3Jyjt"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B99571 / R99571C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D99571 / R99571C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i =
## sheet, : Expecting date in E99571 / R99571C5: got '['https://pbs.twimg.com/
## tweet_video_thumb/C9aF67sXYAEzvPB.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V99571 / R99571C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A109263 / R109263C1: got '#DropThePhone'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A109264 / R109264C1: got '#SlowDown'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A109265 / R109265C1: got '#DontGetDistracted'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A109266 / R109266C1: got '#RoadSafety'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A109267 / R109267C1: got 'Good morning. https://t.co/
## z24EStsMCk"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B109267 / R109267C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D109267 / R109267C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E109267 / R109267C5: got '['https://pbs.twimg.com/media/
## C1tDUFWXUAQpQQo.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V109267 / R109267C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A134078 / R134078C1: got '#BuckleUp #RollTide"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B134078 / R134078C2: got 'no'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D134078 / R134078C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E134078 / R134078C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V134078 / R134078C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A134088 / R134088C1: got '#BamaBB #BuckleUp'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A134089 / R134089C1: got '#RollTide!!"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B134089 / R134089C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D134089 / R134089C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E134089 / R134089C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V134089 / R134089C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A134098 / R134098C1: got '#BuckleUp #RollTide"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B134098 / R134098C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D134098 / R134098C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E134098 / R134098C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V134098 / R134098C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A139056 / R139056C1: got '#RollTide'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A139057 / R139057C1: got '#BuckleUp"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B139057 / R139057C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D139057 / R139057C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E139057 / R139057C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V139057 / R139057C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A144203 / R144203C1: got '#BUCKLEUP #ROLLTIDE https://t.co/
## tknhxzdWSl"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B144203 / R144203C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D144203 / R144203C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E144203 / R144203C5: got '['https://pbs.twimg.com/media/
## CYpn1xCWsAE4EC8.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V144203 / R144203C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A160743 / R160743C1: got '0730hrs 2 cars impounded stay
## safe #buckleup http://t.co/vP6mzJ7xW6"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B160743 / R160743C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D160743 / R160743C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E160743 / R160743C5: got '['https://pbs.twimg.com/media/
## CM5CxsZWIAE5hs4.jpg', 'https://pbs.twimg.com/media/CM5CzH9WUAI9J77.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V160743 / R160743C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A171653 / R171653C1: got '#BuckleUp'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A171654 / R171654C1: got '#EnRouteToWalmerEstate'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A171655 / R171655C1: got '#RememberThabangSidloyi http://
## t.co/tisWp2lnhG"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B171655 / R171655C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D171655 / R171655C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E171655 / R171655C5: got '['https://pbs.twimg.com/media/
## CASSzHuUwAAJpBX.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V171655 / R171655C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A173644 / R173644C1: got '4 homeworks due'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A173645 / R173645C1: got '3 midterms'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A173646 / R173646C1: got '2 quizzes'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A173647 / R173647C1: got '1 off campus interview'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A173649 / R173649C1: got '#buckleup"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B173649 / R173649C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D173649 / R173649C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E173649 / R173649C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V173649 / R173649C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A176608 / R176608C1: got '@perrlizabeth , this is what we
## gotta de with Till September...#BuckleUp"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B176608 / R176608C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D176608 / R176608C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E176608 / R176608C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V176608 / R176608C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A177616 / R177616C1: got '#ENEWS"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B177616 / R177616C2: got 'und'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D177616 / R177616C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E177616 / R177616C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V177616 / R177616C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A178902 / R178902C1: got '😭😭😭"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B178902 / R178902C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D178902 / R178902C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E178902 / R178902C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V178902 / R178902C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A179689 / R179689C1: got '#ChocBoi Shii!!'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A179690 / R179690C1: got 'http://t.co/fl8uIkA54e"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B179690 / R179690C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D179690 / R179690C4: got '['http://youtu.be/4hkXRMzsPkc']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E179690 / R179690C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V179690 / R179690C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A180802 / R180802C1: got 'New Kendrick, New Kanye , New
## Jcole ,New Drake, New Don_Nova , New Angel Mutoni ... #BuckleUp"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B180802 / R180802C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D180802 / R180802C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E180802 / R180802C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V180802 / R180802C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A181307 / R181307C1: got 'ITS COMING... #BuckleUp'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i =
## sheet, : Expecting numeric in A181309 / R181309C1: got '#UNLEASHEDCAMP2014
## 2‚É£2‚É£2‚É£2‚É£2‚É£2‚É£2‚É£2‚É£2‚É£2‚É£2‚É£2‚É£ http://t.co/t07HKYDD64"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B181309 / R181309C2: got 'und'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i =
## sheet, : Expecting date in D181309 / R181309C4: got '['http://instagram.com/p/
## uugf1qQw6U/']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E181309 / R181309C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V181309 / R181309C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i =
## sheet, : Expecting numeric in A190432 / R190432C1: got '#buckleup http://t.co/
## 28fW5CCkqb"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B190432 / R190432C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D190432 / R190432C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E190432 / R190432C5: got '['https://pbs.twimg.com/media/
## BuDRelyIQAAvcFc.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V190432 / R190432C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A199875 / R199875C1: got 'Ready for dam? #buckleup http://
## t.co/0zQdcpYAIe"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B199875 / R199875C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D199875 / R199875C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E199875 / R199875C5: got '['https://pbs.twimg.com/media/
## Bldc1RTIcAA9X0z.jpg']'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V199875 / R199875C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A208310 / R208310C1: got '#CoupleUp #BuckleUp üë´ üòÖ"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B208310 / R208310C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D208310 / R208310C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E208310 / R208310C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V208310 / R208310C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A208313 / R208313C1: got '#CoupleUp #BuckleUp üë´ üòÖ"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B208313 / R208313C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D208313 / R208313C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E208313 / R208313C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V208313 / R208313C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A209013 / R209013C1: got 'player n d guy nid 2 buckleup n
## bcom her referee"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B209013 / R209013C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D209013 / R209013C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E209013 / R209013C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V209013 / R209013C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A214634 / R214634C1: got '#BuckleUp"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B214634 / R214634C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D214634 / R214634C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E214634 / R214634C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V214634 / R214634C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i =
## sheet, : Expecting numeric in A217190 / R217190C1: got '@AlexMonseth #buckleup
## #ultimatenerddom"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B217190 / R217190C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D217190 / R217190C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E217190 / R217190C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V217190 / R217190C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A221736 / R221736C1: got '#buckleup"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B221736 / R221736C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D221736 / R221736C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E221736 / R221736C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V221736 / R221736C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A245981 / R245981C1: got '#buckleup"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B245981 / R245981C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D245981 / R245981C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E245981 / R245981C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V245981 / R245981C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A247944 / R247944C1: got 'Already got lost and trapped in
## the toll toad once. #buckleup"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B247944 / R247944C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D247944 / R247944C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E247944 / R247944C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V247944 / R247944C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A250940 / R250940C1: got '#BUCKleup"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B250940 / R250940C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D250940 / R250940C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E250940 / R250940C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V250940 / R250940C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A259590 / R259590C1: got 'Let's. Go O's!!"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B259590 / R259590C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D259590 / R259590C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E259590 / R259590C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V259590 / R259590C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A265259 / R265259C1: got '#yankees v #orioles"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B265259 / R265259C2: got 'cs'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D265259 / R265259C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E265259 / R265259C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V265259 / R265259C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A275140 / R275140C1: got '#orioles v #rangers"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B275140 / R275140C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D275140 / R275140C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E275140 / R275140C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V275140 / R275140C22: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A280144 / R280144C1: got '#BUCKleUp #OriolesMagic"'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in B280144 / R280144C2: got 'en'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in D280144 / R280144C4: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting date in E280144 / R280144C5: got '[]'

## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting logical in V280144 / R280144C22: got '[]'

names(dat)

##  [1] "id"              "conversation_id" "created_at"      "date"           
##  [5] "time"            "timezone"        "user_id"         "username"       
##  [9] "name"            "place"           "tweet"           "language"       
## [13] "mentions"        "urls"            "photos"          "replies_count"  
## [17] "retweets_count"  "likes_count"     "hashtags"        "cashtags"       
## [21] "link"            "retweet"         "quote_url"       "video"          
## [25] "thumbnail"       "near"            "geo"             "source"         
## [29] "user_rt_id"      "user_rt"         "retweet_id"      "reply_to"       
## [33] "retweet_date"    "translate"       "trans_src"       "trans_dest"

library(tidyverse)    

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ──

## ✓ ggplot2 3.3.2     ✓ purrr   0.3.4
## ✓ tibble  3.0.4     ✓ dplyr   1.0.2
## ✓ tidyr   1.1.2     ✓ stringr 1.4.0
## ✓ readr   1.3.1     ✓ forcats 0.4.0

## Warning: package 'ggplot2' was built under R version 3.6.2

## Warning: package 'tibble' was built under R version 3.6.2

## Warning: package 'tidyr' was built under R version 3.6.2

## Warning: package 'purrr' was built under R version 3.6.2

## Warning: package 'dplyr' was built under R version 3.6.2

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(tidytext)
clean_tweets <- function(x) {
  x %>%
    str_remove_all(" ?(f|ht)(tp)(s?)(://)(.*)[.|/](.*)") %>%
    str_replace_all("&amp;", "and") %>%
    str_remove_all("[[:punct:]]") %>%
    str_remove_all("^RT:? ") %>%
    str_remove_all("@[[:alnum:]]+") %>%
    str_remove_all("#[[:alnum:]]+") %>%
    str_remove_all("pictwittercom") %>%
    str_replace_all("\\\n", " ") %>%
    str_to_lower() %>%
    str_trim("both")
}

dat$hashtags1= dat$hashtags %>% clean_tweets

str(dat)

## tibble [299,219 × 37] (S3: tbl_df/tbl/data.frame)
##  $ id             : num [1:299219] 1.34e+18 1.34e+18 1.34e+18 1.34e+18 1.34e+18 ...
##  $ conversation_id: num [1:299219] 1.34e+18 1.34e+18 1.34e+18 1.34e+18 1.34e+18 ...
##  $ created_at     : chr [1:299219] "2020-12-11 19:55:00 CST" "2020-12-11 19:54:33 CST" "2020-12-11 19:48:34 CST" "2020-12-11 19:46:41 CST" ...
##  $ date           : POSIXct[1:299219], format: "2020-12-11" "2020-12-11" ...
##  $ time           : POSIXct[1:299219], format: "1899-12-31 19:55:00" "1899-12-31 19:54:33" ...
##  $ timezone       : num [1:299219] -600 -600 -600 -600 -600 -600 -600 -600 -600 -600 ...
##  $ user_id        : num [1:299219] 2.47e+09 3.95e+08 8.24e+17 2.47e+09 3.33e+07 ...
##  $ username       : chr [1:299219] "drceline961" "cravinjustice" "buckleup36" "drceline961" ...
##  $ name           : chr [1:299219] "Celine💥⭐️ 💥⭐️ 💥⭐️💥" "🇺🇸CravinJustice⭐️⭐️⭐️" "Buckle Up" "Celine💥⭐️ 💥⭐️ 💥⭐️💥" ...
##  $ place          : chr [1:299219] NA NA NA NA ...
##  $ tweet          : chr [1:299219] "You can keep watching, but you’d better #BuckleUp." "#Buckleup #TrustThePlan #TrustTrump" "@marceelias @gtconway3d @DemocracyDocket Thank you Marc." "B💥💥MS happening ask the time. It’s dizzying, #BuckleUp." ...
##  $ language       : chr [1:299219] "en" "und" "en" "en" ...
##  $ mentions       : chr [1:299219] "[]" "[]" "[]" "[]" ...
##  $ urls           : chr [1:299219] "[]" "[]" "[]" "[]" ...
##  $ photos         : chr [1:299219] "[]" "[]" "[]" "[]" ...
##  $ replies_count  : num [1:299219] 0 0 0 0 0 0 0 0 1 0 ...
##  $ retweets_count : num [1:299219] 0 0 0 0 0 0 0 1 0 0 ...
##  $ likes_count    : num [1:299219] 0 1 0 0 0 0 0 0 0 0 ...
##  $ hashtags       : chr [1:299219] "['buckleup']" "['buckleup', 'trusttheplan', 'trusttrump']" "[]" "['buckleup']" ...
##  $ cashtags       : chr [1:299219] "[]" "[]" "[]" "[]" ...
##  $ link           : chr [1:299219] "https://twitter.com/drceline961/status/1337576654399561735" "https://twitter.com/CravinJustice/status/1337576542604554246" "https://twitter.com/Buckleup36/status/1337575035251396613" "https://twitter.com/drceline961/status/1337574565040582657" ...
##  $ retweet        : logi [1:299219] FALSE FALSE FALSE FALSE FALSE FALSE ...
##  $ quote_url      : chr [1:299219] "https://twitter.com/jcresident2020/status/1337545915331129346" "https://twitter.com/firemom81/status/1337572856255959042" NA "https://twitter.com/kelemencari/status/1337407780140027905" ...
##  $ video          : num [1:299219] 0 0 0 0 0 0 0 1 0 0 ...
##  $ thumbnail      : chr [1:299219] NA NA NA NA ...
##  $ near           : logi [1:299219] NA NA NA NA NA NA ...
##  $ geo            : logi [1:299219] NA NA NA NA NA NA ...
##  $ source         : logi [1:299219] NA NA NA NA NA NA ...
##  $ user_rt_id     : logi [1:299219] NA NA NA NA NA NA ...
##  $ user_rt        : logi [1:299219] NA NA NA NA NA NA ...
##  $ retweet_id     : logi [1:299219] NA NA NA NA NA NA ...
##  $ reply_to       : chr [1:299219] "[]" "[]" "[{'screen_name': 'marceelias', 'name': 'Marc E. Elias', 'id': '23281108'}, {'screen_name': 'gtconway3d', 'name'"| __truncated__ "[]" ...
##  $ retweet_date   : logi [1:299219] NA NA NA NA NA NA ...
##  $ translate      : logi [1:299219] NA NA NA NA NA NA ...
##  $ trans_src      : logi [1:299219] NA NA NA NA NA NA ...
##  $ trans_dest     : logi [1:299219] NA NA NA NA NA NA ...
##  $ hashtags1      : chr [1:299219] "buckleup" "buckleup trusttheplan trusttrump" "" "buckleup" ...

set1 <- dat %>%
  unnest_tokens(word, hashtags1)
data(stop_words)

set1  <- set1  %>%
  anti_join(stop_words)

## Joining, by = "word"

set2= set1  %>%
  count(word, sort = TRUE)

library(DT)
datatable(set2)

## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html