在 R 中使用特定主题标签或关键字的推文中使用的表情符号分析
Analysis of emojis used in tweets with specific hashtags or keywords in R
我想探索 Twitter API,通过包含特定关键字或主题标签的推文中使用的表情符号进行情绪分析。 (就像 PRISMOJI 所做的一样:https://twitter.com/PRISMOJI?s=09)
但我以前从未这样做过 - 脚本中有任何指示吗?
我正在使用 rtweet 探索 API,但对其他工具开放 - 但希望在 R 中。
更新
所以我写了一些代码并解决了我原来的问题。呜呜!)
install.packages("rtweet")
library(rtweet)
install.packages("tidyverse")
library(tidyverse)
install.packages("tidytext")
library(tidytext)
insrall.packages("httpuv")
library(httpuv)
api_key <- 'api key entered here'
api_secret <- 'api secret entered here'
access_token <- 'token entered here'
access_token_secret <- 'key entered here'
token <- create_token(
app = "my app name",
consumer_key = api_key,
consumer_secret = api_secret
access_token = access_token,
access_secret = access_token_secret)
tweets <- search_tweets(q ="#CleanDishwasher", n = 18000, include_rts = FAKSE, `-filter` = "replies", lang = "en")
## get coordinates associated with the following addresses/components
write_as_csv(tweets, "tweets.csv")
sydney <- lookup_coords("sydney", "country:AU")
## pass a returned coords object to search_tweets
sydney_tweets <- search_tweets(geocode = sydney)
##find top emojis
library(emo)
sydney_tweets %>%
mutate(emoji = ji_extract_all(text)) %>%
unnest(cols = c(emoji)) %>%
count(emoji, sort = TRUE) %>%
top_n(10)
在设置我的访问密钥和令牌时,我错误地使用了 access_token_secret 而不是 access_secret。
我想探索 Twitter API,通过包含特定关键字或主题标签的推文中使用的表情符号进行情绪分析。 (就像 PRISMOJI 所做的一样:https://twitter.com/PRISMOJI?s=09)
但我以前从未这样做过 - 脚本中有任何指示吗?
我正在使用 rtweet 探索 API,但对其他工具开放 - 但希望在 R 中。
更新
所以我写了一些代码并解决了我原来的问题。呜呜!)
install.packages("rtweet")
library(rtweet)
install.packages("tidyverse")
library(tidyverse)
install.packages("tidytext")
library(tidytext)
insrall.packages("httpuv")
library(httpuv)
api_key <- 'api key entered here'
api_secret <- 'api secret entered here'
access_token <- 'token entered here'
access_token_secret <- 'key entered here'
token <- create_token(
app = "my app name",
consumer_key = api_key,
consumer_secret = api_secret
access_token = access_token,
access_secret = access_token_secret)
tweets <- search_tweets(q ="#CleanDishwasher", n = 18000, include_rts = FAKSE, `-filter` = "replies", lang = "en")
## get coordinates associated with the following addresses/components
write_as_csv(tweets, "tweets.csv")
sydney <- lookup_coords("sydney", "country:AU")
## pass a returned coords object to search_tweets
sydney_tweets <- search_tweets(geocode = sydney)
##find top emojis
library(emo)
sydney_tweets %>%
mutate(emoji = ji_extract_all(text)) %>%
unnest(cols = c(emoji)) %>%
count(emoji, sort = TRUE) %>%
top_n(10)
在设置我的访问密钥和令牌时,我错误地使用了 access_token_secret 而不是 access_secret。