带有 R 的数据帧列中的错误值

我发现了错误。在这种情况下，建议逐行调试，并打印初始变量、每个 if 语句的结果或如果处理 if else 语句的指示符。

这里你的初始值subDF$positive.polarity是一个c(1,0)长度为 2的向量，这是sentiment_DF 中的单词数c("interesting, "boring")。

当 i=1, 时context="The course was interesting"，没有助推器也没有否定词 -- subDF$positive.polarityisc(1,0)和subDF$positive.ponderate.polarityisNULL

i = 2时，context="was not so boring"有一个助推器和一个否定词-subDF$positive.polarity是c(1,0)你要添加4到两个元素时要添加4只对应于第二元素"boring"，因为这subDF$positive.ponderate.polarity是c(5,4)它返回什么。

这里的技巧是那个长度subDF$positive.polarity和subDF$positive.ponderate.polarity依赖于数量sentiment_DF的一句话。更正后的代码和调试如下。以下是修复：

A. 初始化为长度相等

 subDF$positive.ponderate.polarity <- subDF$positive.polarity

B. 使用 i 进行索引，因此您只向与当前上下文元素相对应的元素添加值，而不是所有元素

  subDF$positive.ponderate.polarity[i] <- subDF$positive.polarity[i] + 4
  subDF$positive.ponderate.polarity[i] <- subDF$positive.polarity[i] + 9

C. 有一件事我没有解决，因为我不确定如何对待它……如果上下文是：“课程太无聊了”怎么办？有一个助推器，没有否定词，所以它传递给 else 语句并添加 9。这是积极的.ponderate.polarity？不会是负面的.ponderate.polarity吗？

calcPolarity(sentiment_DF, "The course was so boring")
    word positive.polarity negative.polarity positive.ponderate.polarity
2 boring                 0                 1                           9

D. 其他情况查看：

calcPolarity(sentiment_DF, "The course was interesting, but the professor was not so boring")
         word positive.polarity negative.polarity positive.ponderate.polarity
1 interesting                 1                 0                           1
2      boring                 0                 1                           4

calcPolarity(sentiment_DF, "The course was so interesting")
         word positive.polarity negative.polarity positive.ponderate.polarity
1 interesting                 1                 0                          10

编辑以更正注释中的极性结果：极性输出c(0,5)与原始代码相同：polarity[i] <- sum(subDF$positive.ponderate.polarity) - sum(subDF$negative.ponderate.polarity)。由于您有 2 个上下文短语，因此最后的 i 是 2，然后 Polar[1] 是您的初始值 0，并且您的总和的结果分配给 Polar[2]，即 5，给您留下 c(0, 5）。而是删除 [i]，应该只是polarity <- sum(subDF$positive.ponderate.polarity) -sum(subDF$negative.ponderate.polarity)

这是更正后的代码：

calcPolarity <- function(sentiment_DF,sentences){
  booster_words <- c("more","enough", "a lot", "as", "so")
  negative_words <- c("not", "rien", "ni", "aucun", "nul", "jamais", "pas", "non plus", "sans")
  reduce_words <- c("peu", "presque", "moins", "seulement")
  # pre-allocate the polarity result vector with size = number of sentences
  polarity <- rep.int(0,length(sentences))

  # loop per sentence
  for(i in 1:length(polarity)){
sentence <- sentences[i]

# separate each sentence in words using regular expression 
wordsOfASentence <- unlist(regmatches(sentence,gregexpr("[[:word:]]+",sentence,perl=TRUE)))

# get the rows of sentiment_DF corresponding to the words in the sentence using match
# N.B. if a word occurs twice, there will be two equal rows 
# (but I think it's correct since in this way you count its polarity twice)
subDF <- sentiment_DF[match(wordsOfASentence,sentiment_DF$word,nomatch = 0),]
print(subDF)

# Find (number) of matching word. 
wordOfInterest <- wordsOfASentence[which(wordsOfASentence %in% levels(sentiment_DF$word))]  # No multigrepl, so working with duplicates instead. eg interesting
regexOfInterest <- paste0("([^\\s]+\\s){0,3}", wordOfInterest, "(\\s[^\\s]+){0,3}")

# extract a context of 3 words before the word in the dataframe
context <-  stringr::str_extract(sentence, regexOfInterest)
names(context) <- wordOfInterest  # Helps in forloop

for(i in 1:length(context)){
  print(paste("i:", i))
  print(context)
  print("initial")
  print(subDF$positive.polarity)
  subDF$positive.ponderate.polarity <- subDF$positive.polarity
  print(subDF$positive.ponderate.polarity)

  if (any(unlist(strsplit(context[i], " ")) %in% booster_words)) {
    print(booster_words)
    length(booster_words)
    print("if level 1")
    print(subDF$positive.polarity)
    if (any(unlist(strsplit(context[i], " ")) %in% negative_words)) {
      subDF$positive.ponderate.polarity[i] <- subDF$positive.polarity[i] + 4
      print("if level 2A")
      print(subDF$positive.ponderate.polarity)
    } else {
      print("if level 2B")
      subDF$positive.ponderate.polarity[i] <- subDF$positive.polarity[i] + 9
      print(subDF$positive.ponderate.polarity)
    }

    print("level 2 result")
    print(subDF$positive.ponderate.polarity)
  }
  print("level 1 result")
  print(subDF$positive.ponderate.polarity)

    }
  }
    # Debug option
    print(subDF)

    # calculate the total polarity of the sentence and store in the vector
    polarity <- sum(subDF$positive.ponderate.polarity) - sum(subDF$negative.ponderate.polarity)

  return(polarity)
}

sentiment_DF <- data.frame(word=c('interesting','boring','pretty'),
                       positive.polarity=c(1,0,1),
                       negative.polarity=c(0,1,0))
calcPolarity(sentiment_DF, "The course was interesting, but the professor was not so boring")
calcPolarity(sentiment_DF, "The course was so interesting")
calcPolarity(sentiment_DF, "The course was so boring")