用vader软件包获取R中的环路误差

Question

我正在尝试运行下面的代码，但是我得到了一个错误。

无循环用于中断/下一个，跳到顶层。

问题似乎与vader_df有关，但我不知道哪里出了问题，也不知道如何解决它。vader_df应该使用文本向量，并返回文本的情感分析数据(尽管这显然不是这样的！)

任何帮助都是非常感谢的。

library(vader)
library(tidyverse)
library(billboard)

data(lyrics)

lyrics <- lyrics %>%
  rename(song_lyrics = lyrics)

sentiment_lyrics <- vader_df(lyrics$song_lyrics, neu_set = F)

Answer 1

请注意，您有5701记录的数据集。

> summary(lyrics)
    title              artist              year           song_lyrics       
 Length:5701        Length:5701        Length:5701        Length:5701       
 Class :character   Class :character   Class :character   Class :character  
 Mode  :character   Mode  :character   Mode  :character   Mode  :character  

分析这些song_lyrics中的100个在我的机器上几乎需要38秒(英特尔(R) Core(TM) i7-4790 CPU @3.60GHz3.60 GHz)。这意味着所有数据集大约需要36分钟。

> format(Sys.time(), "%a %b %d %X %Y")
[1] "Di Nov 23 15:47:57 2021"
> sentiment_lyrics <- vader_df(lyrics$song_lyrics[1:100], neu_set = TRUE)
> format(Sys.time(), "%a %b %d %X %Y")
[1] "Di Nov 23 15:48:35 2021"

对于我来说，vader_df函数只对这个测试用例使用neu_set = TRUE。

如果有可能满足您的需求，只需按默认值neu_set = TRUE计算中性单词，并逐步增加文本处理数量。