twts_kobe <- search_tweets("#Kobe", n=18000, include_rts= TRUE, lang="en")
# View output for the first 5 columns and 10 rows
head(twts_kobe[,1:5], 10)## # A tibble: 10 x 5
## user_id status_id created_at screen_name text
## <chr> <chr> <dttm> <chr> <chr>
## 1 2821297319 122944372… 2020-02-17 16:33:20 SportBuka "#AllSt…
## 2 1047171723618078720 122944302… 2020-02-17 16:30:34 colorado_a… Rest in…
## 3 27850077 122944270… 2020-02-17 16:29:16 CarlosCHop… It stil…
## 4 1169359534311268352 122944214… 2020-02-17 16:27:04 Joesph2911… 157 😑 1…
## 5 41720799 122944149… 2020-02-17 16:24:28 lavadagene… This #K…
## 6 242562486 122944143… 2020-02-17 16:24:13 _theani "Emmanu…
## 7 55442381 122944104… 2020-02-17 16:22:41 Rene_Le_Re… #Stoned…
## 8 380492213 122944031… 2020-02-17 16:19:48 Damon_UofL Another…
## 9 815662399 122944018… 2020-02-17 16:19:16 OyyyeeeCor… Another…
## 10 761032347403694081 122944003… 2020-02-17 16:18:41 StockXLive Lowest …
######### Part2
# Create a table of users and tweet counts for the topic
sc_name <- table(twts_kobe$screen_name)
# Sort the table in descending order of tweet counts
sc_name_sort <- sort(sc_name, decreasing = T)
# View sorted table for top 10 users, 發布Kobe推特數量最多的前十名
head(sc_name_sort, 10)##
## StockXLive seagullflynorth CarlosThepap sumanebot
## 112 28 21 21
## brian_wood_ KapKobe kobemurals roadmodel
## 19 19 16 16
## dianabechini93 EnterpriserSTE
## 15 15
#####比較運動帳號的追蹤人數
# Extract user data for the twitter accounts of 4 news sites
users <- lookup_users(c("SportsCenter", "ESPN", "NBAonTNT", "BleacherReport"))
# Create a data frame of screen names and follower counts
user_df <- users[,c("screen_name","followers_count")]
# Display and compare the follower counts for the 4 news sites
user_df <- arrange(user_df, desc(followers_count))
# Create a data frame of tweet text and retweet count
rtwt <- twts_kobe[,c("retweet_count", "text")]
head(rtwt)## # A tibble: 6 x 2
## retweet_count text
## <int> <chr>
## 1 0 "#AllStarNBA 2020 is basically the best tribute the play…
## 2 0 Rest in Paradise @kobebryant #kobe #kobebryant #lakers @l…
## 3 0 It still hurts. Every little girl should look at her dadd…
## 4 0 157 😑 1+5+7=13 #Kobe was the 13 pick in the draft. 157-15…
## 5 0 This #Kobe #Lambo was brought out to #AllStar2020 #Weeken…
## 6 25 "Emmanuel Sanders shares words of wisdom from Kobe on how…
# Sort data frame based on descending order of retweet counts
rtwt_sort <- arrange(rtwt, desc(retweet_count))
rtwt_unique <- unique(rtwt_sort, by="text")
rtwt_unique## # A tibble: 6,097 x 2
## retweet_count text
## <int> <chr>
## 1 205113 This Oscar winning short film about #Kobe hit different …
## 2 205112 This Oscar winning short film about #Kobe hit different …
## 3 39601 "As I knew she would, @elleduncanESPN brought a much-nee…
## 4 19406 One of the toughest games I ever been apart of in my car…
## 5 18675 #Grammys #KobeBryant: “He’s a true legend.” Listen to a…
## 6 18629 "🚨 ATTENTION ALL HOOPERS 🚨 🏀 No more playing “21” from n…
## 7 14166 Thoughts and prayers to the family of #Kobe Bryant and t…
## 8 6307 "Listen, Snoop (@SnoopDogg ) just came through with a wo…
## 9 4975 "I’ll never forget what #Kobe shared with us on @GMA...w…
## 10 4945 "Bigger Than A Game Of Basketball. Thank You KOBE For In…
## # ... with 6,087 more rows
names(twts_kobe)## [1] "user_id" "status_id"
## [3] "created_at" "screen_name"
## [5] "text" "source"
## [7] "display_text_width" "reply_to_status_id"
## [9] "reply_to_user_id" "reply_to_screen_name"
## [11] "is_quote" "is_retweet"
## [13] "favorite_count" "retweet_count"
## [15] "quote_count" "reply_count"
## [17] "hashtags" "symbols"
## [19] "urls_url" "urls_t.co"
## [21] "urls_expanded_url" "media_url"
## [23] "media_t.co" "media_expanded_url"
## [25] "media_type" "ext_media_url"
## [27] "ext_media_t.co" "ext_media_expanded_url"
## [29] "ext_media_type" "mentions_user_id"
## [31] "mentions_screen_name" "lang"
## [33] "quoted_status_id" "quoted_text"
## [35] "quoted_created_at" "quoted_source"
## [37] "quoted_favorite_count" "quoted_retweet_count"
## [39] "quoted_user_id" "quoted_screen_name"
## [41] "quoted_name" "quoted_followers_count"
## [43] "quoted_friends_count" "quoted_statuses_count"
## [45] "quoted_location" "quoted_description"
## [47] "quoted_verified" "retweet_status_id"
## [49] "retweet_text" "retweet_created_at"
## [51] "retweet_source" "retweet_favorite_count"
## [53] "retweet_retweet_count" "retweet_user_id"
## [55] "retweet_screen_name" "retweet_name"
## [57] "retweet_followers_count" "retweet_friends_count"
## [59] "retweet_statuses_count" "retweet_location"
## [61] "retweet_description" "retweet_verified"
## [63] "place_url" "place_name"
## [65] "place_full_name" "place_type"
## [67] "country" "country_code"
## [69] "geo_coords" "coords_coords"
## [71] "bbox_coords" "status_url"
## [73] "name" "location"
## [75] "description" "url"
## [77] "protected" "followers_count"
## [79] "friends_count" "listed_count"
## [81] "statuses_count" "favourites_count"
## [83] "account_created_at" "verified"
## [85] "profile_url" "profile_expanded_url"
## [87] "account_lang" "profile_banner_url"
## [89] "profile_background_url" "profile_image_url"
# create corpus from vector 字串轉成向量
corpus = Corpus(VectorSource(twts_kobe$text))
corpus[[1]]$content # content of the first document## [1] "#AllStarNBA 2020 is basically the best tribute the players could give to Kobe Bryant.\n\n#BasketBall #MambaMentality #nbaallstar #KobeBryant #kobe #WelovethisGame #TeamLebron #teamgiannis #Bball #SportBuka https://t.co/WIfFt1CwwJ"
# 轉為小寫
corpus = tm_map(corpus, content_transformer(tolower))## Warning in tm_map.SimpleCorpus(corpus, content_transformer(tolower)):
## transformation drops documents
corpus[[1]]$content ## [1] "#allstarnba 2020 is basically the best tribute the players could give to kobe bryant.\n\n#basketball #mambamentality #nbaallstar #kobebryant #kobe #welovethisgame #teamlebron #teamgiannis #bball #sportbuka https://t.co/wifft1cwwj"
##移除標點符號
# some version of tm may have to do the commmad below
# corpus = tm_map(corpus, PlainTextDocument)
corpus = tm_map(corpus, removePunctuation)## Warning in tm_map.SimpleCorpus(corpus, removePunctuation): transformation
## drops documents
##去除贅字 (特別去除Kobe,因為每篇都幾乎都會提到)
corpus = tm_map(corpus, removeWords, c("kobe","bryant","will","make","now","just","X..aew","httpstcofydhlqahdq","every","can","since","done","httpstconrx4bzydi8","X.....","X..","kobebraynt","httpstcoedxh2jbea1","X..","X.re","X.","X.ve","X..aew","httpstcop0bifk7zkc","httpstco4zds5lakrd","X....","httpstcodjxtehnxfx", stopwords("english")))## Warning in tm_map.SimpleCorpus(corpus, removeWords, c("kobe", "bryant", :
## transformation drops documents
corpus[[1]]$content ## [1] "allstarnba 2020 basically best tribute players give \n\nbasketball mambamentality nbaallstar kobebryant welovethisgame teamlebron teamgiannis bball sportbuka httpstcowifft1cwwj"
##字根還原Stemming ex:amazing -> amaz
##corpus = tm_map(corpus, stemDocument) 暫時不需要frequencies = DocumentTermMatrix(corpus)
frequencies## <<DocumentTermMatrix (documents: 14145, terms: 21742)>>
## Non-/sparse entries: 207457/307333133
## Sparsity : 100%
## Maximal term length: 76
## Weighting : term frequency (tf)
findFreqTerms(frequencies, lowfreq=20) ###頻率大於20次## [1] "2020"
## [2] "allstarnba"
## [3] "basketball"
## [4] "bball"
## [5] "best"
## [6] "give"
## [7] "kobebryant"
## [8] "mambamentality"
## [9] "nbaallstar"
## [10] "players"
## [11] "teamgiannis"
## [12] "teamlebron"
## [13] "tribute"
## [14] "lakers"
## [15] "lakersnation"
## [16] "rest"
## [17] "get"
## [18] "girl"
## [19] "kobeandgianna"
## [20] "like"
## [21] "little"
## [22] "look"
## [23] "still"
## [24] "157155"
## [25] "building"
## [26] "final"
## [27] "kobebyrant"
## [28] "nbaallstar2020"
## [29] "score"
## [30] "allstar2020"
## [31] "brought"
## [32] "gigi"
## [33] "mamba"
## [34] "mamba4life"
## [35] "weekend"
## [36] "49ers"
## [37] "big"
## [38] "cope"
## [39] "emmanuel"
## [40] "esanders10"
## [41] "games"
## [42] "garoppolo"
## [43] "goniners"
## [44] "httpstco9mneesdwhc"
## [45] "httpstcoyhlgjdqgil"
## [46] "jimmy"
## [47] "jimmyg10"
## [48] "losing"
## [49] "reflected"
## [50] "sanders"
## [51] "sees"
## [52] "shares"
## [53] "wisdom"
## [54] "words"
## [55] "\U0001f3a5"
## [56] "honor"
## [57] "hoops"
## [58] "play"
## [59] "sign"
## [60] "\U0001f3c0"
## [61] "another"
## [62] "everyone"
## [63] "fan"
## [64] "mural"
## [65] "one"
## [66] "‘s"
## [67] "ask"
## [68] "lowest"
## [69] "black"
## [70] "elite"
## [71] "low"
## [72] "bid"
## [73] "perspective"
## [74] "gold"
## [75] "nike"
## [76] "protro"
## [77] "hero"
## [78] "red"
## [79] "suns"
## [80] "white"
## [81] "2016"
## [82] "star"
## [83] "history"
## [84] "month"
## [85] "purple"
## [86] "2000"
## [87] "gamer"
## [88] "close"
## [89] "think"
## [90] "queen"
## [91] "home"
## [92] "silver"
## [93] "team"
## [94] "day"
## [95] "devin"
## [96] "angeles"
## [97] "los"
## [98] "points"
## [99] "inspiration"
## [100] "lee"
## [101] "detail"
## [102] "back"
## [103] "dgreen14"
## [104] "episode"
## [105] "group"
## [106] "handy"
## [107] "host"
## [108] "lakeshow"
## [109] "moments"
## [110] "monday"
## [111] "night"
## [112] "phil"
## [113] "qcook323"
## [114] "special"
## [115] "spectrumsn"
## [116] "wednesday"
## [117] ""
## [118] "amp"
## [119] "celebration"
## [120] "celtics"
## [121] "emotional"
## [122] "following"
## [123] "going"
## [124] "house"
## [125] "life"
## [126] "moment"
## [127] "situation"
## [128] "allstargame2020"
## [129] "brnba"
## [130] "charity"
## [131] "cheering"
## [132] "enjoyed"
## [133] "feet"
## [134] "fun"
## [135] "game"
## [136] "good"
## [137] "great"
## [138] "httpstcod6zr8qukis"
## [139] "idea"
## [140] "nba"
## [141] "nbaallstargame"
## [142] "nbaontnt"
## [143] "nice"
## [144] "see"
## [145] "seeing"
## [146] "skin"
## [147] "allstar"
## [148] "chicago"
## [149] "gigibryant"
## [150] "lebronjames"
## [151] "interview"
## [152] "really"
## [153] "time"
## [154] "\U0001f64f"
## [155] "goat"
## [156] "daughters"
## [157] "keep"
## [158] "much"
## [159] "pray"
## [160] "rip"
## [161] "stage"
## [162] "thoughts"
## [163] "vanessa"
## [164] "wife"
## [165] "’s"
## [166] "birthday"
## [167] "giannis"
## [168] "happy"
## [169] "jordan"
## [170] "lebron"
## [171] "legend"
## [172] "michaeljordan"
## [173] "wow"
## [174] "different"
## [175] "film"
## [176] "hit"
## [177] "oscar"
## [178] "right"
## [179] "short"
## [180] "winning"
## [181] "biggest"
## [182] "boom"
## [183] "fire"
## [184] "httpstcoj5oa1s676j"
## [185] "man"
## [186] "rage”"
## [187] "rareltd"
## [188] "seaofthieves"
## [189] "seas"
## [190] "upcoming"
## [191] "update"
## [192] "“crews"
## [193] "“”"
## [194] "\U0001f525\U0001f525\U0001f525"
## [195] "brother"
## [196] "coach"
## [197] "especially"
## [198] "father"
## [199] "friend"
## [200] "incredible"
## [201] "know"
## [202] "…"
## [203] "26012020"
## [204] "away"
## [205] "ballislife"
## [206] "blackmamba"
## [207] "celebrating"
## [208] "daughter"
## [209] "dedicated"
## [210] "gianna"
## [211] "httpstconhsuhpzgb6"
## [212] "lakernation"
## [213] "losangeles"
## [214] "mosaic"
## [215] "mvp"
## [216] "passed"
## [217] "video"
## [218] "memory"
## [219] "dont"
## [220] "even"
## [221] "ever"
## [222] "shit"
## [223] "something"
## [224] "told"
## [225] "turn"
## [226] "watch"
## [227] "days"
## [228] "feel"
## [229] "minute"
## [230] "never"
## [231] "put"
## [232] "success"
## [233] "tell"
## [234] "whatever"
## [235] "work"
## [236] "allstarweekend"
## [237] "restaurant"
## [238] "buy"
## [239] "fans"
## [240] "find"
## [241] "jerseys"
## [242] "maybe"
## [243] "missed"
## [244] "missing"
## [245] "question"
## [246] "serious"
## [247] "trying"
## [248] "want"
## [249] "past"
## [250] "tributes"
## [251] "blackhistorymonth"
## [252] "dogg"
## [253] "gayle"
## [254] "king"
## [255] "love"
## [256] "oscars"
## [257] "snoop"
## [258] "win"
## [259] "crash"
## [260] "memorial"
## [261] "today"
## [262] "victims"
## [263] "called"
## [264] "dre"
## [265] "kobecenter"
## [266] "forever"
## [267] "allstargame"
## [268] "definitely"
## [269] "format"
## [270] "new"
## [271] "say"
## [272] "watched"
## [273] "’d"
## [274] "around"
## [275] "asia"
## [276] "australia"
## [277] "bangladesh"
## [278] "buddhism"
## [279] "buddhist"
## [280] "burma"
## [281] "buthan"
## [282] "cambodia"
## [283] "china"
## [284] "india"
## [285] "japan"
## [286] "laos"
## [287] "lets"
## [288] "lka"
## [289] "lordbuddha"
## [290] "myanmar"
## [291] "nepal"
## [292] "osaka"
## [293] "promote"
## [294] "protect"
## [295] "singapore"
## [296] "southkorea"
## [297] "srilanka"
## [298] "thailand"
## [299] "thaiwan"
## [300] "tokyo"
## [301] "usa"
## [302] "vietnam"
## [303] "world"
## [304] "heart"
## [305] "mambacita"
## [306] "mambaforever"
## [307] "order"
## [308] "stickermule"
## [309] "•"
## [310] "blvd"
## [311] "instagram"
## [312] "ripkobe"
## [313] "\U0001f3a8"
## [314] "bay"
## [315] "hearts"
## [316] "httpstcol14ig1dv6w"
## [317] "nation"
## [318] "ready"
## [319] "warriors"
## [320] "way"
## [321] "’re"
## [322] "⠀"
## [323] "always"
## [324] "audio"
## [325] "available"
## [326] "extended"
## [327] "heard"
## [328] "httpstco99fbg6swev"
## [329] "inside"
## [330] "news”"
## [331] "plane"
## [332] "platforms"
## [333] "podcast"
## [334] "remember"
## [335] "things"
## [336] "thurs"
## [337] "youtube"
## [338] "’ll"
## [339] "“"
## [340] ""
## [341] "already"
## [342] "bet"
## [343] "energy"
## [344] "force"
## [345] "heaven"
## [346] "hope"
## [347] "httpstcoqfbj17ptxl"
## [348] "lost"
## [349] "miss"
## [350] "nature"
## [351] "tracked"
## [352] "wilt"
## [353] "apple"
## [354] "legacy"
## [355] "rap"
## [356] "soundcloud"
## [357] "spotify"
## [358] "talk"
## [359] "anthonydavis"
## [360] "laker"
## [361] "shot"
## [362] "wins"
## [363] "bigger"
## [364] "greatest"
## [365] "guy"
## [366] "honored"
## [367] "kawhi"
## [368] "well"
## [369] "award"
## [370] "jersey"
## [371] "real"
## [372] "won"
## [373] "army"
## [374] "cod"
## [375] "codmw"
## [376] "dogs"
## [377] "food"
## [378] "gaming"
## [379] "true"
## [380] "trump"
## [381] "twitch"
## [382] "xbox"
## [383] "\u2b07️"
## [384] "fortnite"
## [385] "trash"
## [386] "family"
## [387] "loved"
## [388] "ones"
## [389] "peace"
## [390] "prayers"
## [391] "today’s"
## [392] "tragic"
## [393] "accident"
## [394] "beautiful"
## [395] "families"
## [396] "lalakers"
## [397] "lives"
## [398] "ripkobeandgigi"
## [399] "kobefarewell"
## [400] "kobes"
## [401] "number"
## [402] "gave"
## [403] "guess"
## [404] "lady"
## [405] "learn"
## [406] "nothing"
## [407] "2010"
## [408] "broadway"
## [409] "cdot1"
## [410] "central"
## [411] "dtla"
## [412] "grand"
## [413] "httpstcoqv7kr0unjq"
## [414] "market"
## [415] "never1959"
## [416] "ig"
## [417] "\U0001f3c6"
## [418] "\U0001f4cd317"
## [419] "\U0001f4f8"
## [420] "accra"
## [421] "arrivealive"
## [422] "call"
## [423] "citicbs"
## [424] "galamsey"
## [425] "kumasi"
## [426] "late"
## [427] "mahama"
## [428] "massa"
## [429] "nigeria"
## [430] "nigerian"
## [431] "nigerians"
## [432] "ooh"
## [433] "porto"
## [434] "purchase"
## [435] "rysenshyne"
## [436] "showbizagenda"
## [437] "whatsapp"
## [438] "koberip"
## [439] "kobetribute"
## [440] "says"
## [441] "fucking"
## [442] "jesus"
## [443] "friday"
## [444] "kb24"
## [445] "valentines"
## [446] "end"
## [447] "last"
## [448] "means"
## [449] "starting"
## [450] "top"
## [451] "don’t"
## [452] "favorite"
## [453] "gone"
## [454] "appreciate"
## [455] "course"
## [456] "details"
## [457] "found"
## [458] "part"
## [459] "took"
## [460] "years"
## [461] "death"
## [462] "iconic"
## [463] "mourning"
## [464] "sport"
## [465] "thought"
## [466] "cbsthismorning"
## [467] "message"
## [468] "oprah"
## [469] "sharing"
## [470] "story"
## [471] "add"
## [472] "equals"
## [473] "numbers"
## [474] "wild"
## [475] "mamba4ever"
## [476] "shared"
## [477] "come"
## [478] "help"
## [479] "proud"
## [480] "drawing"
## [481] "guys"
## [482] "leave"
## [483] "mambaout"
## [484] "ripkobebryant"
## [485] "ripmamba"
## [486] "subscribe"
## [487] "4th"
## [488] "next"
## [489] "quarter"
## [490] "year"
## [491] "die"
## [492] "httpstcow8h8iramul"
## [493] "youngkobe"
## [494] "1st"
## [495] "edit"
## [496] "espn"
## [497] "shaq"
## [498] "song"
## [499] "sports"
## [500] "\U0001f525"
## [501] "perfect"
## [502] "came"
## [503] "dude"
## [504] "place"
## [505] "thanks"
## [506] "kicks"
## [507] "made"
## [508] "via"
## [509] "california"
## [510] "honors"
## [511] "staplescenter"
## [512] "dope"
## [513] "beyond"
## [514] "james"
## [515] "tattoo"
## [516] "824"
## [517] "better"
## [518] "everything"
## [519] "respect"
## [520] "together"
## [521] "—"
## [522] "buried"
## [523] "feb"
## [524] "named"
## [525] "getting"
## [526] "sneakers"
## [527] "magic"
## [528] "fame"
## [529] "garnett"
## [530] "hall"
## [531] "kevin"
## [532] "saw"
## [533] "business"
## [534] "cant"
## [535] "got"
## [536] "paid"
## [537] "knew"
## [538] "wanted"
## [539] "first"
## [540] "icon"
## [541] "court"
## [542] "side"
## [543] "yall"
## [544] "long"
## [545] "nbaaallstar"
## [546] "anything"
## [547] "believe"
## [548] "future"
## [549] "seen"
## [550] "coming"
## [551] "soon"
## [552] "viral"
## [553] "amazing"
## [554] "inspired"
## [555] "free"
## [556] "throw"
## [557] "’t"
## [558] "download"
## [559] "iamjhud"
## [560] "need"
## [561] "record"
## [562] "tears"
## [563] "thank"
## [564] "lol"
## [565] "old"
## [566] "whats"
## [567] "woman"
## [568] "wrong"
## [569] "httpstcoa4mstih04d"
## [570] "nightmare"
## [571] "wake"
## [572] "drdre"
## [573] "honoring"
## [574] "jenniferhudson"
## [575] "job"
## [576] "crying"
## [577] "god"
## [578] "stop"
## [579] "common"
## [580] "needs"
## [581] "performance"
## [582] "freakin’"
## [583] "httpstco7ooptww6ns"
## [584] "ass"
## [585] "bitch"
## [586] "hes"
## [587] "league"
## [588] "left"
## [589] "mad"
## [590] "asked"
## [591] "forget"
## [592] "said"
## [593] "giannabryant"
## [594] "granted"
## [595] "take"
## [596] "post"
## [597] "vanessabryant"
## [598] "piece"
## [599] "fact"
## [600] "mind"
## [601] "music"
## [602] "boy"
## [603] "person"
## [604] "acquitted"
## [605] "hell"
## [606] "learned"
## [607] "tremendous"
## [608] "watching"
## [609] "defense"
## [610] "damn"
## [611] "continues"
## [612] "inspire"
## [613] "minutes"
## [614] "discuss"
## [615] "seconds"
## [616] "yet"
## [617] "apologize"
## [618] "gayleking"
## [619] "hiphop"
## [620] "snoopdogg"
## [621] "hometowndesign"
## [622] "ripgigi"
## [623] "illustration"
## [624] "nba "
## [625] "tonight"
## [626] "sick"
## [627] "full"
## [628] "high"
## [629] "’m"
## [630] "player"
## [631] "praying"
## [632] "wearing"
## [633] "travel"
## [634] "morning"
## [635] "reminder"
## [636] "\U0001f62d"
## [637] "cool"
## [638] "hudson"
## [639] "jennifer"
## [640] "salute"
## [641] "town"
## [642] "voice"
## [643] "accused"
## [644] "eloquent"
## [645] "ericacobb"
## [646] "falsely"
## [647] "friends"
## [648] "guidance"
## [649] "harveyweinstein"
## [650] "httpstco2anhdefx59"
## [651] "innocent"
## [652] "justifiably"
## [653] "men"
## [654] "mjinnocent"
## [655] "profile"
## [656] "two"
## [657] "vilification"
## [658] "women"
## [659] "attacked"
## [660] "attacking"
## [661] "cause"
## [662] "despite"
## [663] "irony"
## [664] "legacies"
## [665] "michaeljackson"
## [666] "people"
## [667] "reason"
## [668] "’ve"
## [669] "\U0001f926\U0001f3fe♂️"
## [670] "didn’t"
## [671] "nbaallstarweekend"
## [672] "metoo"
## [673] "rose"
## [674] "weinstein"
## [675] "harvey"
## [676] "michael"
## [677] "questions"
## [678] "wood"
## [679] "chance"
## [680] "may"
## [681] "spirit"
## [682] "without"
## [683] "light"
## [684] "breaking"
## [685] "center"
## [686] "click"
## [687] "link"
## [688] "public"
## [689] "released"
## [690] "staples"
## [691] "tickets"
## [692] "golf"
## [693] "shoes"
## [694] "custom"
## [695] "kanye"
## [696] "page"
## [697] "mondaymorning"
## [698] "dear"
## [699] "defend"
## [700] "deserve"
## [701] "httpstcobmwuia1bfu"
## [702] "icons"
## [703] "longer"
## [704] "respectinpeace"
## [705] "smeared"
## [706] "whitneyhouston"
## [707] "lot"
## [708] "youre"
## [709] "continue"
## [710] "given"
## [711] "dreams"
## [712] "let"
## [713] "many"
## [714] "might"
## [715] "mondaymotivaton"
## [716] "start"
## [717] "wont"
## [718] "else"
## [719] "hear"
## [720] "name"
## [721] "wanna"
## [722] "y’"
## [723] "check"
## [724] "fight"
## [725] "girldad"
## [726] "stay"
## [727] "strong"
## [728] "legendary"
## [729] "hand"
## [730] "kobybryant"
## [731] "painted"
## [732] "david"
## [733] "quick"
## [734] "laid"
## [735] "private"
## [736] "week"
## [737] "calls"
## [738] "cbs"
## [739] "news"
## [740] "threats"
## [741] "live"
## [742] "edition"
## [743] "homage"
## [744] "paying"
## [745] "media"
## [746] "event"
## [747] "legends"
## [748] "industry"
## [749] "lames"
## [750] "city"
## [751] "held"
## [752] "evidence"
## [753] "helicopter"
## [754] "proof"
## [755] "shows"
## [756] "dunk"
## [757] "bryants"
## [758] "casaly"
## [759] "continuous"
## [760] "indeed"
## [761] "nballstar"
## [762] "platform"
## [763] "sure"
## [764] "track"
## [765] "ago"
## [766] "giving"
## [767] "working"
## [768] "yesterday"
## [769] "thats"
## [770] "honour"
## [771] "lisa"
## [772] "supporting"
## [773] "wouldn’t"
## [774] "disney"
## [775] "disneyland"
## [776] "disneyworld"
## [777] "kingjames"
## [778] "slamdunk"
## [779] "slamdunkcontest"
## [780] "tshirts"
## [781] "controversy"
## [782] "died"
## [783] "kings"
## [784] "king’s"
## [785] "read"
## [786] "ahead"
## [787] "moving"
## [788] "sunday"
## [789] "decided"
## [790] "face"
## [791] "gets"
## [792] "pay"
## [793] "used"
## [794] "artist"
## [795] "almost"
## [796] "weeks"
## [797] "loss"
## [798] "wish"
## [799] "criticism"
## [800] "recent"
## [801] "also"
## [802] "times"
## [803] "apology"
## [804] "doggs"
## [805] "spike"
## [806] "goes"
## [807] "rape"
## [808] "role"
## [809] "listen"
## [810] "style"
## [811] "size"
## [812] "shirt"
## [813] "\U0001f60d"
## [814] "anyone"
## [815] "meet"
## [816] "wear"
## [817] "easy"
## [818] "\U0001f49c\U0001f49b"
## [819] "drop"
## [820] "thing"
## [821] "cry"
## [822] "\U0001f622"
## [823] "crowd"
## [824] "others"
## [825] "matter"
## [826] "money"
## [827] "pain"
## [828] "tomorrow"
## [829] "change"
## [830] "social"
## [831] "mentality"
## [832] "winnings"
## [833] "putting"
## [834] "kobeforever"
## [835] "show"
## [836] "wait"
## [837] "checked"
## [838] "young"
## [839] "fadeaway"
## [840] "httpstcojf5ifk0kra"
## [841] "\U0001f3a8bosslogic"
## [842] "\U0001f3ac\U0001f3b5rikognition"
## [843] "awesome"
## [844] "httpstcoufbdkfs7dz"
## [845] "pretty"
## [846] "tigerwoods"
## [847] "wore"
## [848] "\U0001f64f\U0001f3fe"
## [849] "ripkobeandgianna"
## [850] "royyaldog"
## [851] "ig"
## [852] "career"
## [853] "”"
## [854] "dad"
## [855] "kobeandgigi"
## [856] "kobemural"
## [857] "streetart"
## [858] "\U0001f49b\U0001f49c"
## [859] "nipsey"
## [860] "level"
## [861] "comes"
## [862] "art"
## [863] "httpstcojvcozgezdd"
## [864] "painting"
## [865] "\U0001f3c0❤️"
## [866] "hollywood"
## [867] "artwork"
## [868] "across"
## [869] "street"
## [870] "brand"
## [871] "httpstcofv3wn0pxmj"
## [872] "spray"
## [873] "ave"
## [874] "born"
## [875] "melrose"
## [876] "raised"
## [877] "\U0001f4cd"
## [878] "please"
## [879] "word"
## [880] "imagine"
## [881] "lil"
## [882] "trade"
## [883] "2012"
## [884] "3’s"
## [885] "airing"
## [886] "explains"
## [887] "finals"
## [888] "gamewinning"
## [889] "harrisonsanford"
## [890] "httpstcomevpxqss3v"
## [891] "meant"
## [892] "scoring"
## [893] "season"
## [894] "set"
## [895] "standing"
## [896] "iverson"
## [897] "wade"
## [898] "location"
## [899] "three"
## [900] "greatness"
## [901] "lbj"
## [902] "ebay"
## [903] "fashion"
## [904] "obama"
## [905] "oscars2020"
## [906] "point"
## [907] "❤️"
## [908] "funeral"
## [909] "killed"
## [910] "power"
## [911] "sex"
## [912] "adam"
## [913] "accusers"
## [914] "attacks"
## [915] "false"
## [916] "fully"
## [917] "ignorant"
## [918] "johnnydepp"
## [919] "prefer"
## [920] "prove"
## [921] "refuse"
## [922] "research"
## [923] "tired"
## [924] "nfl"
## [925] "nhl"
## [926] "\U0001f494"
## [927] "\U0001f914"
## [928] "children"
## [929] "stories"
## [930] "break"
## [931] "calling"
## [932] "losangeleslakers"
## [933] "photo"
## [934] "nbatwitter"
## [935] "looking"
## [936] "bring"
## [937] "gonna"
## [938] "run"
## [939] "fuck"
## [940] "kyoto"
## [941] "leslie"
## [942] "whole"
## [943] "athlete"
## [944] "become"
## [945] "millions"
## [946] "powerful"
## [947] "truly"
## [948] "saying"
## [949] "thinking"
## [950] "fine"
## [951] "pencil"
## [952] "speechless"
## [953] "met"
## [954] "seem"
## [955] "use"
## [956] "playing"
## [957] "canada"
## [958] "hard"
## [959] "process"
## [960] "using"
## [961] "changed"
## [962] "talking"
## [963] "celebrate"
## [964] "february"
## [965] "apart"
## [966] "though"
## [967] "daily"
## [968] "feels"
## [969] "community"
## [970] "finally"
## [971] "ride"
## [972] "memories"
## [973] "graphic"
## [974] "baby"
## [975] "rock"
## [976] "class"
## [977] "twitter"
## [978] "clippers"
## [979] "superbowl"
## [980] "alabama"
## [981] "state"
## [982] "alive"
## [983] "thegame"
## [984] "winner"
## [985] "picture"
## [986] "photography"
## [987] "bad"
## [988] "doesnt"
## [989] "tragedy"
## [990] "httpstcouieywsbcgg"
## [991] "sound"
## [992] "nobody"
## [993] "absolutely"
## [994] "pressplay"
## [995] "announced"
## [996] "threatening"
## [997] "johnson"
## [998] "kind"
## [999] "rapist"
## [1000] "didnt"
## [1001] "sale"
## [1002] "sneakerhead"
## [1003] "app"
## [1004] "bleacherreport"
## [1005] "commercial"
## [1006] "httpstcos6ev99h82o"
## [1007] "kanyewest"
## [1008] "small"
## [1009] "remembrance"
## [1010] "bit"
## [1011] "share"
## [1012] "remembered"
## [1013] "theyre"
## [1014] "impact"
## [1015] "second"
## [1016] "stars"
## [1017] "chancetherapper"
## [1018] "shoot"
## [1019] "students"
## [1020] "case"
## [1021] "went"
## [1022] "224"
## [1023] "pilot"
## [1024] "somewhere"
## [1025] "later"
## [1026] "actually"
## [1027] "fitting"
## [1028] "callofduty"
## [1029] "\U0001f602"
## [1030] "try"
## [1031] "wants"
## [1032] "scores"
## [1033] "kobe24lambo"
## [1034] "accuser"
## [1035] "charlie"
## [1036] "except"
## [1037] "flogging"
## [1038] "httpstcomzmrxixyy1"
## [1039] "stood"
## [1040] "showing"
## [1041] "hands"
## [1042] "assaulting"
## [1043] "comeagain"
## [1044] "flip"
## [1045] "nerve"
## [1046] "rolandmartin"
## [1047] "sexually"
## [1048] "bids"
## [1049] "autographed"
## [1050] "memorabilia"
## [1051] "panini"
## [1052] "shooting"
## [1053] "competitive"
## [1054] "issue"
## [1055] "pic"
## [1056] "tweet"
## [1057] "clearly"
## [1058] "passing"
## [1059] "able"
## [1060] "article"
## [1061] "crazy"
## [1062] "super"
## [1063] "contest"
## [1064] "cried"
## [1065] "wasn’t"
## [1066] "service"
## [1067] "mean"
## [1068] "competition"
## [1069] "breaks"
## [1070] "dwight"
## [1071] "superman"
## [1072] "\U0001f40d"
## [1073] "holding"
## [1074] "barackobama"
## [1075] "doesn’t"
## [1076] "intro"
## [1077] "repost"
## [1078] "benefit"
## [1079] "loving"
## [1080] "warm"
## [1081] "making"
## [1082] "eyes"
## [1083] "nba2k"
## [1084] "nba2k20"
## [1085] "far"
## [1086] "kept"
## [1087] "til"
## [1088] "allstarweekend2020"
## [1089] "design"
## [1090] "dwighthoward"
## [1091] "cover"
## [1092] "anymore"
## [1093] "mike"
## [1094] "100"
## [1095] "gotta"
## [1096] "line"
## [1097] "\U0001f5e3"
## [1098] "rules"
## [1099] "television"
## [1100] "entire"
## [1101] "rookie"
## [1102] "sad"
## [1103] "count"
## [1104] "ball"
## [1105] "kobe4ever"
## [1106] "renaming"
## [1107] "logo"
## [1108] "enough"
## [1109] "agenda"
## [1110] "lead"
## [1111] "must"
## [1112] "hours"
## [1113] "less"
## [1114] "kids"
## [1115] "shaquille"
## [1116] "target"
## [1117] "progress"
## [1118] "mambametality"
## [1119] "lisaleslie"
## [1120] "dmp"
## [1121] "2019"
## [1122] "talent"
## [1123] "abc7eyewitness"
## [1124] "saturday"
## [1125] "blackmen"
## [1126] "adidas"
## [1127] "beat"
## [1128] "answer"
## [1129] "repping"
## [1130] "footage"
## [1131] "let’s"
## [1132] "united"
## [1133] "bitcoin"
## [1134] "register"
## [1135] "actual"
## [1136] "\U0001f4af"
## [1137] "tatum"
## [1138] "inappropriate"
## [1139] "started"
## [1140] "killing"
## [1141] "fantastic"
## [1142] "hoping"
## [1143] "remembering"
## [1144] "24th"
## [1145] "wnba"
## [1146] "bio"
## [1147] "httpstcofnczdrf87i"
## [1148] "info"
## [1149] "todays"
## [1150] "devoted"
## [1151] "httpstcogfv1zdfrtw"
## [1152] "chasecenter"
## [1153] "dubnation"
## [1154] "gsw"
## [1155] "lal"
## [1156] "twentyfourever"
## [1157] "spikelee"
## [1158] "altobelli"
## [1159] "deceased"
## [1160] "fathers"
## [1161] "problem"
## [1162] "httpstco6olmjtwpgy"
## [1163] "thehoopcentral"
## [1164] "\u270a\U0001f3fd"
## [1165] "school"
## [1166] "book"
## [1167] "understand"
## [1168] "along"
## [1169] "fake"
## [1170] "ratings"
## [1171] "pass"
## [1172] "card"
## [1173] "room"
## [1174] "stand"
## [1175] "tonight’s"
## [1176] "addressing"
## [1177] "backlash"
## [1178] "brilliantly"
## [1179] "dailyblastlive"
## [1180] "elephant"
## [1181] "httpstcoifga8ltawz"
## [1182] "immediate"
## [1183] "reasons"
## [1184] "coronavirus"
## [1185] "framed"
## [1186] "limitededition"
## [1187] "nextgeneration"
## [1188] "rare"
## [1189] "bruins"
## [1190] "dealsoftheweek"
## [1191] "httpstconpwbmalo1r"
## [1192] "patriots"
## [1193] "redsox"
## [1194] "httpstcoadk3c5phjx"
## [1195] "\U0001f3c6’s"
## [1196] "mamba”"
## [1197] "prod"
## [1198] "“black"
## [1199] "felt"
## [1200] "zero"
## [1201] "signed"
## [1202] "code"
## [1203] "etc"
## [1204] "telling"
## [1205] "interpret"
## [1206] "language"
## [1207] "dopest"
## [1208] "ticket"
## [1209] "someone"
## [1210] "spoken"
## [1211] "eight"
## [1212] "disrespect"
## [1213] "snoopdogg’s"
## [1214] "none"
## [1215] "dead"
## [1216] "prison"
## [1217] "truth"
## [1218] "defending"
## [1219] "susanrice"
## [1220] "excited"
## [1221] "customs"
## [1222] "reservation"
## [1223] "send"
## [1224] "heres"
## [1225] "pixeldailies"
## [1226] "alone"
## [1227] "elleduncanespn"
## [1228] "httpstcovfbuagg6an"
## [1229] "muchneeded"
## [1230] "sis"
## [1231] "racism"
## [1232] "httpstcouqush3eh12"
## [1233] "anybody"
## [1234] "httpstco8dkkseqosd"
## [1235] "mamba24"
## [1236] "discussion"
## [1237] "support"
## [1238] "magazine"
## [1239] "follow"
## [1240] "retweet"
## [1241] "essay"
## [1242] "attention"
## [1243] "\U0001f6a8"
## [1244] "httpstcob5an4vs6qf"
## [1245] "tonights"
## [1246] "abuse"
## [1247] "price"
## [1248] "cards"
## [1249] "andor"
## [1250] "degrade"
## [1251] "disturbing"
## [1252] "echoed"
## [1253] "echoes"
## [1254] "equally"
## [1255] "expletives"
## [1256] "httpstcoukuclwxbby"
## [1257] "hurtful"
## [1258] "impugn"
## [1259] "sisters\U0001f494"
## [1260] "“liked”"
## [1261] "motivation"
## [1262] "0x3458d619b642d067d78a44f8bc2b7b2413d54eec"
## [1263] "100000"
## [1264] "airdrop"
## [1265] "airdrop\U0001f525"
## [1266] "bsv"
## [1267] "btc"
## [1268] "crypto"
## [1269] "eth"
## [1270] "iot"
## [1271] "iot\U0001f525"
## [1272] "listed"
## [1273] "participants"
## [1274] "selfdrop"
## [1275] "shoutout"
## [1276] "shipping"
## [1277] "male"
## [1278] "conditions"
## [1279] "authentic"
## [1280] "crush"
## [1281] "fantasy"
## [1282] "hereusa"
## [1283] "hockey"
## [1284] "hockeylife"
## [1285] "hockeytwitter"
## [1286] "icehockey"
## [1287] "introducing"
## [1288] "nhljets"
## [1289] "predictor"
## [1290] "wondering"
## [1291] "open"
## [1292] "protecting"
## [1293] "apologized"
## [1294] "callers"
## [1295] "httpstco1mvjnuhdgp"
## [1296] "insults"
## [1297] "board"
## [1298] "mache275"
## [1299] "sketch"
## [1300] "boxing"
## [1301] "blacklivesmatter"
## [1302] "blkliberation84"
## [1303] "clarajeffery"
## [1304] "deeply"
## [1305] "eic"
## [1306] "hide"
## [1307] "httpstcoegjrywi6xp"
## [1308] "ignorance"
## [1309] "motherjones"
## [1310] "rooted"
## [1311] "tariqnasheed"
## [1312] "towards"
## [1313] "welcome"
## [1314] "spreaker"
## [1315] "brooklyn"
## [1316] "paint"
## [1317] "portrait"
## [1318] "assaulted"
## [1319] "blackman"
## [1320] "blackwoman"
## [1321] "dumbest"
## [1322] "occurred"
## [1323] "speak"
## [1324] "account"
## [1325] "received"
## [1326] "wrote"
## [1327] "spread"
## [1328] "teaching"
## [1329] "ambassadorrice"
## [1330] "boycottcbs"
## [1331] "httpstcohddmqtmlxy"
## [1332] "oprahlied"
## [1333] "threat"
## [1334] "accountable"
## [1335] "creatingsupporting"
## [1336] "fascinated"
## [1337] "focused"
## [1338] "kelly"
## [1339] "tubman"
## [1340] "httpstcorhzrzze6q7"
## [1341] "\U0001f44f\U0001f3fe\U0001f44f\U0001f3fe\U0001f44f\U0001f3fe"
## [1342] "latest"
## [1343] "pwg"
## [1344] "httpstcohmyahjydol"
## [1345] "asap"
## [1346] "eleven"
## [1347] "httpstcoee9qe3v85g"
## [1348] "jasonreynolds83"
## [1349] "accuse"
## [1350] "alleged"
## [1351] "httpstcocjsdrobivc"
## [1352] "providing"
## [1353] "screenshots"
## [1354] "viewers"
## [1355] "istandwithgayle"
## [1356] "rkelly"
## [1357] "httpstcow8upr6gjja"
## [1358] "reacting"
## [1359] "influence"
## [1360] "reality"
## [1361] "cld"
## [1362] "httpstcoloe84fzumo"
## [1363] "narrative"
## [1364] "neg"
## [1365] "proxy"
## [1366] "tools✌\U0001f3fe"
## [1367] "useless"
## [1368] "supportsmallstreamers"
## [1369] "behavior"
## [1370] "criticizing"
## [1371] "harriet"
## [1372] "mentioning"
## [1373] "oprah’s"
## [1374] "property"
## [1375] "snoop’s"
## [1376] "someone’s"
## [1377] "stealing"
## [1378] "“suffering”"
## [1379] "violent"
## [1380] "apologizing"
## [1381] "antics"
## [1382] "distract"
## [1383] "httpstco7grlinwdpz"
## [1384] "whites"
## [1385] "gayleoprahs"
## [1386] "httpstco1kece8ee8y"
## [1387] "innocents"
## [1388] "mouthpiece"
## [1389] "spout"
## [1390] "surviving"
## [1391] "sympathizing"
## [1392] "uppermost"
## [1393] "models"
## [1394] "blackpeople"
## [1395] "8000"
## [1396] "accepting"
## [1397] "btcxrpethneo"
## [1398] "cctipio"
## [1399] "diversify"
## [1400] "httpstcohcgk2k7dry"
## [1401] "invest"
## [1402] "queens"
## [1403] "vya"
## [1404] "debacle"
## [1405] "bbcsport"
## [1406] "httpstcomgox8wuo9v"
## [1407] "saint"
## [1408] "country"
## [1409] "wishbumpycoulda"
## [1410] "bakara1"
## [1411] "blackgirlmagic"
## [1412] "breakingbrown"
## [1413] "dbl"
## [1414] "httpstco4vgkdpkf3a"
## [1415] "iamfridayjones"
## [1416] "iamlindseyg"
## [1417] "allegations"
## [1418] "trauma"
## [1419] "grammys"
## [1420] "treos"
## [1421] "httpstcoxmgnlfsplr"
## [1422] "press"
## [1423] "spend"
## [1424] "targeting"
## [1425] "waking"
## [1426] "tylerperry"
## [1427] "aanbanback"
## [1428] "adultery"
## [1429] "betrothed"
## [1430] "celebs"
## [1431] "faber"
## [1432] "gaylekingfan"
## [1433] "rescue"
## [1434] "ron"
## [1435] "broomchallenge"
## [1436] "kennekajenkins"
## [1437] "khloekardashian"
## [1438] "kimkardashian"
## [1439] "lakiragoldsmith"
## [1440] "lakirapigggoldsmith"
## [1441] "llkj"
## [1442] "montgomery"
## [1443] "teamfindpigg"
## [1444] "theonlyazriel"
## [1445] "whereislakira"
## [1446] "works"
## [1447] "tysonfury"
##移除頻率太低的字詞
sparse = removeSparseTerms(frequencies, 0.995)
sparse## <<DocumentTermMatrix (documents: 14145, terms: 497)>>
## Non-/sparse entries: 123541/6906524
## Sparsity : 98%
## Maximal term length: 18
## Weighting : term frequency (tf)
###轉成矩陣
tweetsSparse = as.data.frame(as.matrix(sparse))
# Make all variable names R-friendly
colnames(tweetsSparse) = make.names(colnames(tweetsSparse))
head(tweetsSparse)## X2020 basketball best give kobebryant mambamentality nbaallstar players
## 1 1 1 1 1 1 1 1 1
## 2 0 0 0 0 2 0 0 0
## 3 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 1 0
## 5 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0
## tribute lakers lakersnation rest get kobeandgianna like little look
## 1 1 0 0 0 0 0 0 0 0
## 2 0 2 1 1 0 0 0 0 0
## 3 0 0 0 0 1 1 1 1 2
## 4 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0
## still final kobebyrant nbaallstar2020 allstar2020 brought gigi mamba
## 1 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0
## 3 1 0 0 0 0 0 0 0
## 4 0 1 1 1 0 0 0 0
## 5 0 0 1 0 1 1 1 1
## 6 0 0 0 0 0 0 0 0
## mamba4life weekend big games words honor play X. another everyone fan
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 1 1 0 0 0 0 0 0 0 0 0
## 6 0 0 1 1 1 0 0 0 0 0 0
## mural one ask lowest black nike white star close think home team day
## 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0 0 0
## angeles los back dgreen14 episode handy lakeshow night phil qcook323
## 1 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0
## special amp celtics going life moment situation allstargame2020 brnba
## 1 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0
## charity cheering enjoyed feet fun game good great httpstcod6zr8qukis
## 1 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0
## idea nba nbaallstargame nbaontnt nice see seeing skin allstar chicago
## 1 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0
## lebronjames interview really time X. goat keep much rip vanessa X.s
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## happy jordan lebron legend wow different film hit oscar right short
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## winning biggest boom fire httpstcoj5oa1s676j man rage. rareltd
## 1 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0
## seaofthieves seas upcoming update X.crews X.. X... friend know away
## 1 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0
## ballislife blackmamba daughter gianna lakernation losangeles mvp video
## 1 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0
## dont even ever something watch days never work allstarweekend fans find
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## trying want gayle king love oscars snoop win crash memorial today
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## victims called forever allstargame new say around japan usa world heart
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## mambacita mambaforever ripkobe X. bay hearts httpstcol14ig1dv6w nation
## 1 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0
## ready warriors way X.re X. always audio available news. podcast remember
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## things youtube X.ll X. X. already energy hope lost miss legacy kawhi
## 1 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0 0
## well award jersey real family loved ones peace tragic beautiful families
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## lalakers lives kobes lady X. call late koberip kobetribute last don.t
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## gone details years death thought oprah mamba4ever come help proud
## 1 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0
## drawing mambaout ripkobebryant ripmamba next. year die
## 1 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0
## httpstcow8h8iramul youngkobe espn shaq sports came place thanks made via
## 1 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0
## better everything respect saw cant got first side long believe seen
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## coming soon amazing free X.t need tears thank old woman wrong honoring
## 1 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0 0
## god stop said giannabryant take vanessabryant piece music acquitted
## 1 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0
## defense damn minutes yet gayleking snoopdogg tonight sick full high X.m
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## player hudson jennifer accused eloquent ericacobb falsely friends
## 1 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0
## guidance harveyweinstein httpstco2anhdefx59 innocent justifiably men
## 1 0 0 0 0 0 0
## 2 0 0 0 0 0 0
## 3 0 0 0 0 0 0
## 4 0 0 0 0 0 0
## 5 0 0 0 0 0 0
## 6 0 0 0 0 0 0
## mjinnocent profile two vilification women attacked attacking cause
## 1 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0
## despite irony legacies michaeljackson people reason X.ve X..... rose may
## 1 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0
## without center link public tickets dear defend deserve
## 1 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0
## httpstcobmwuia1bfu icons longer respectinpeace smeared whitneyhouston
## 1 0 0 0 0 0 0
## 2 0 0 0 0 0 0
## 3 0 0 0 0 0 0
## 4 0 0 0 0 0 0
## 5 0 0 0 0 0 0
## 6 0 0 0 0 0 0
## lot youre let many start else. check girldad painted week cbs news
## 1 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0 0
## threats live media legends industry lames helicopter dunk bryants ago
## 1 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0
## thats lisa kingjames controversy died king.s read artist weeks also
## 1 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0
## doggs spike goes rape listen anyone X.. drop thing others mentality show
## 1 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0 0
## checked young fadeaway httpstcojf5ifk0kra X.bosslogic X..rikognition
## 1 0 0 0 0 0 0
## 2 0 0 0 0 0 0
## 3 0 0 0 0 0 0
## 4 0 0 0 0 0 0
## 5 0 0 0 0 0 0
## 6 0 0 0 0 0 0
## kobeandgigi nipsey comes art artwork brand httpstcofv3wn0pxmj spray
## 1 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0
## raised please word season accusers prove X. break. calling nbatwitter
## 1 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0
## leslie playing hard though community finally ride nobody threatening try
## 1 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0
## scores accuser charlie except flogging httpstcomzmrxixyy1 stood
## 1 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0
## assaulting comeagain flip nerve rolandmartin sexually bids autographed
## 1 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0
## issue holding kept less kids lisaleslie inappropriate fantastic room
## 1 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0
## addressing backlash brilliantly dailyblastlive elephant
## 1 0 0 0 0 0
## 2 0 0 0 0 0
## 3 0 0 0 0 0
## 4 0 0 0 0 0
## 5 0 0 0 0 0
## 6 0 0 0 0 0
## httpstcoifga8ltawz immediate reasons httpstcoadk3c5phjx X..s language
## 1 0 0 0 0 0 0
## 2 0 0 0 0 0 0
## 3 0 0 0 0 0 0
## 4 0 0 0 0 0 0
## 5 0 0 0 0 0 0
## 6 0 0 0 0 0 0
## snoopdogg.s prison defending send racism httpstcouqush3eh12 follow andor
## 1 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0
## degrade disturbing echoed echoes equally expletives httpstcoukuclwxbby
## 1 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0
## hurtful impugn sisters. X.liked. conditions apologized callers
## 1 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0
## httpstco1mvjnuhdgp insults received teaching threat accountable
## 1 0 0 0 0 0 0
## 2 0 0 0 0 0 0
## 3 0 0 0 0 0 0
## 4 0 0 0 0 0 0
## 5 0 0 0 0 0 0
## 6 0 0 0 0 0 0
## creatingsupporting fascinated focused kelly tubman asap eleven
## 1 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0
## httpstcoee9qe3v85g jasonreynolds83 behavior criticizing harriet
## 1 0 0 0 0 0
## 2 0 0 0 0 0
## 3 0 0 0 0 0
## 4 0 0 0 0 0
## 5 0 0 0 0 0
## 6 0 0 0 0 0
## mentioning oprah.s property snoop.s someone.s stealing X.suffering.
## 1 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0
names(colSums(tweetsSparse)) -> t1
colSums(tweetsSparse) %>% as.data.frame() -> t2
t2$Var <- t1
names(t2) <- c("Freq","Var")
as.data.frame(t1) -> t1
t1$Freq <- t2$Freq
names(t1) <- c("Var","Freq")
filter(t1,t1$Freq > 250) ->t11### 載入字頻表封包
library(wordcloud2)
wordcloud2(t1)Fig-1: WordCloud
在抓取資料後,將Kobe名字相關的字詞和觀察過後的一些無意義的詞彙移除。 可以觀察到提到最多的字包括lakers, mambametality, legend, rip, love等,另外可以觀察到當中有許多X…類似的字詞,這可能是因為在推特上有人使用表情符號…,但在爬取中這些資料無法轉換成文字,所以以X…的型態表現。 身為一個終身的湖人球員,Lakers在文字雲中最大,也代表被提及次數最多,當然還有很多情緒詞love,like,amazing,awe等等對kobe的讚嘆和對事件的驚訝,另外最能代表Kobe的黑曼巴Mamba也出現許多次。
Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.