Как добавить число топи c во входной фрейм данных.
Я использую эту опцию, чтобы вставить число топи c в каждую строку:
doucmentMatches <- findThoughts(fittedModel, texts = newLinesRemoved, n = 1)
docTopics <- sapply(1:nrow(intext), function(docIndex) { names(doucmentMatches$index[doucmentMatches$index == docIndex][1]) })
intext$topic <- docTopics
Однако, похоже, что это число не совпадает с количеством пропущенных строк для чистого процесса.
Как я могу провести многое между темами и исходным кадром данных?