In this case, we have extracted 100 English tweets about Facebook. By extracting the text and the date of creation of the tweets, we can take a look at the content of the tweets together with the dates on which the tweets were created.
if (!require("pacman")) install.packages("pacman") ; require("pacman")
p_load(httr,rtweet,tidyverse)
load("facebook.Rdata")
text <- tweets_data(tweets) %>% pull(text)
head(text,5)
[1] "Don't get tired of protecting your Accounts, Because allot of people out there want to Hack you and Get access to your Privacy\n\nInbox now for All Hacking Services\n\nI'm always available 24/7\n\n#hacking #hacked #Coinbase #wallet #imessage #snapchatdown #Facebook #lostcoin"
[2] "Offering the best recovery services.\n\nAll social media accounts hacking, Infiltration, and recovery\n\n#hackedinstagram #TwitterDown #lockedaccount #metamask #ransomware\n\n#gmailhack #gmaildown #hacked #Hacking #hackaccount #Facebook #hacked #coinbasesupport #walletphrase"
[3] "Contacting their support is totally pointless, because they are not going to reply. You can inbox us now we’re fast and reliable. Available 24 hours. #coinbase #facebook #discord #instagram #snapchat #trustwallet #game #Cryptos #BNB #account #help #support #WhatsApp #Metaverse."
[4] "DM now.\n\n#digitalmarketing #appstore #playstore #ios #android #app #growthhacking #indiegame #gamedev #socailmedia #gmailhack #gmaildown #hacked #Hacking #hackaccount #Facebook #hacked #coinbasesupport #walletphrase #socailmedia #facebooksupport #hacked #icloud #facebookdown"
[5] "Don't get tired of protecting your Accounts, Because allot of people out there want to Hack you and Get access to your Privacy\n\nInbox now for All Hacking Services\n\nI'm always available 24/7\n\n#hacking #hacked #Coinbase #wallet #imessage #snapchatdown #Facebook #lostcoin"
created <- tweets_data(tweets) %>% pull(created_at)
head(created,5)
[1] "2023-02-06 10:48:50 UTC" "2023-02-06 10:48:43 UTC"
[3] "2023-02-06 10:41:13 UTC" "2023-02-06 10:47:39 UTC"
[5] "2023-02-06 10:46:36 UTC"