带有法语词典的 Sentimentr 软件包答案

【问题标题】：Sentimentr package with French dictionary带有法语词典的 Sentimentr 软件包
【发布时间】：2018-10-09 00:27:07
【问题描述】：

我根据要求创建了带有 x 和 y 列的极性和移位字典（几个单词只是为了测试）。

我收到以下错误：

[.data.frame`(polarity_dt, word_dat[["words"]]) 中的错误：未定义选择的列

你能帮帮我吗？提前谢谢你。

最好的问候

FEEL_polarity <- read.csv2('./FEEL_polarity.csv')
SHIFTERS <- read.csv2('./Shifters.csv')

library("sentimentr")

text_to_analyse <- c("Je ne suis pas heureux. Je suis heureux.")

sentiment(get_sentences(text_to_analyse), polarity_dt = FEEL_polarity,valence_shifters_dt = SHIFTERS)

【问题讨论】：

你的polarity和shifter data.frames的结构是什么？
嗨 phiver，极性是：x 列：“heureux”y 列：+3。 shifters is : column x: "ne" column y: 1. 我用 as_key 函数解决了这个问题。
所以这个点是关闭的。然而，结果并不是真的很好。因为我应该得到第一句话的负值（用英语我不开心），我得到了 1.3！

标签： r sentimentr

【解决方案1】：

正如您在 cmets 中已经提到的，最好将 data.table 用于极性和移位器表并设置密钥。

如果我用你的文本运行它，我会得到下面的结果。第 1 句为 -1.3，第 2 句为 1.7。请注意，否定词应编码为 1L 而不是 -1L。

library(sentimentr)
library(data.table)

text_to_analyse <- c("Je ne suis pas heureux. Je suis heureux.")

polarity <- data.table(x = "heureux",
                       y = 3L, 
                       key = "x") 


shifters <- data.table(x = "ne",
                       y = 1L,
                       key = "x")


sentiment(get_sentences(text_to_analyse), 
          polarity_dt = polarity,
          valence_shifters_dt = shifters)

   element_id sentence_id word_count sentiment
1:          1           1          5 -1.341641
2:          1           2          3  1.732051

请注意sentimentr 是为英语开发的。对于法语词典，您可以查看以下网站：

FEEL：法语扩展情感词典。 http://advanse.lirmm.fr/feel.php 包含超过 14 000 个表达情感和情绪的不同单词的法语词典。它遵循埃克曼基本的两极和六种情绪（Ekman，1992）。它是通过自动翻译和扩展英语情感词典 NRC-Canada (Mohammad & Turney, 2013) 创建的。该过程已由专业翻译人员手动监督和验证。

可以调整此文件以使其与sentimentr 或tidytext 一起使用。我仍然需要调查一下。也许udpipe 可能更适合法语。

POLTEXT：https://www.poltext.org/en/donnees-et-analyses/lexicoder 带有可以与quanteda 一起使用的词典

【讨论】：

嗨 phiver。感谢您花时间回答。我会看看你提供的链接。
嗨 phiver。事实上，由于双重否定（“ne”和“pas”），我得到了第一句话的正值。所以我只保留了“pas”，我得到了正确的结果！
很高兴听到。 “Pas”更容易找到，因为它不会像“n'ai pas”那样转换成 n'。我假设您正在照顾 jamais、rien、ni 等。