У меня есть все oop, как написано ниже:
Net_Sentiment_n = c()
for (i in 1:length(corpfinal)) {
sentence = sentimentr::get_sentences(as.character(corpfinal[[i]][1]))
sentence_sentiment_n[i] = sentimentr::sentiment(sentence[i],
lexicon::hash_sentiment_loughran_mcdonald, n.before = Inf, n.after = Inf)
Net_Sentiment_n[i] = mean(sentence_sentiment_n$sentiment)
}
Здесь результирующий Net_Sentiment_n - это вектор
corpfinal - это корпус длиной 797 (797 текстовых файлов) также corpfinal[[i]][1] дает текст для каждого файла (т. е. [1] для 1-го текстового файла и [2] для второго и т. д.)
Функция предложения извлекает отдельные предложения из каждого файла в корпусе и сохраняет например, в виде списка, чтобы получить первое предложение из первых текстовых файлов: sentence[[1]][1], для второго sentence[[1]][2] и т. д.
sentence_sentiment_n - это функция извлечения настроения из этих предложений для каждый отдельный текстовый файл.
А mean(sentence_sentiment_n) дает среднее (общее) настроение для каждого текстового файла (в среднем по предложениям).
Я хочу сохранить общее настроение для каждого текстового файла в векторе Net_sentiment_n, однако в настоящее время я чувствую только последний файл, когда запускаю l oop.
В качестве примера для корпуса, пожалуйста, рассмотрите ниже:
text_1 = tm :: PlainTextDocument ("это s это просто пример. Как бы то ни было, он служит хорошей цели. "," если это работает, весь текст также должен работать. ")
corp_test = tm :: Corpus (tm :: VectorSource (text_1) )
Может кто-нибудь подсказать, пожалуйста, как действовать.