r - 有人可以帮我解决 R 中的 Vader Sentiment 问题吗？

Question

我正在使用 Vader 包对 R 上的推文数据集进行分析，但我遇到了一个问题。在正确计算某些推文的分数后，操作中断并检索到此错误：

Error in if (min(names(dicCheck)) == names(dicCheck[grep(checkMe, dicCheck)])) { : 
  argument is of length zero

不知道是数据本身的问题还是功能的问题。

我正在使用此代码

for (i in 1:length(Data$tweet)){
    get_vader(Data$tweet[i]) %>%
      as.numeric(unlist(.)) %>%
      .[length(.)-4] ->Data$score_vader[i]
}

如果有人可以帮助我，我将不胜感激！

Answer 1

最后，我设法用一个tryCatch()函数克服了这个错误。问题是由于文本的性质分析的功能。为了克服这个问题，我使用的代码是：

for (i in 1:length(Data$tweet)){
  Loop_Error <- F
  tryCatch({ 
    get_vader(Data$tweet[i]) %>%
      as.numeric(unlist(.)) %>%
      .[length(.)-4] ->Data$score_vader[i]
  }, error = function(e){
        Loop_Error <<- T})
  if (Loop_Error){
    Data$score_vader[i] <- "Error"
  }
}