r情感功能

Question

我对此代码有问题。我找不到错误，但是结果显然是不正确的。调用功能后：

    data=sentimentfunction(My_tweettext, positive_war, negative_war, 
    .progress='text')

我明白了： 结果的

结果是带有下载推文的DF（清洁已完成），情感功能的第二个结果是最大值。 3个相同的推文，我们得到2倍分数= 0，1倍得分= 4771。

比我更聪明地查看此代码并检查正确性吗？建议我如何获得正确的结果？我想使用我已经获得的“ TweetText”。

    sentimentfun = function(tweettext, pos, neg, .progress='non')
    {
      # Parameters
      # tweettext: vector of text to score
      # pos: vector of words of postive sentiment
      # neg: vector of words of negative sentiment
      # .progress: passed to laply() 4 control of progress bar
      
      scores = laply(tweettext,
                     function(singletweet, pos, neg)
                     {
                       singletweet = gsub("[[:punct:]]", "", singletweet)
                       singletweet = gsub("[[:cntrl:]]", "", singletweet)
                       singletweet = gsub("\\d+", "", singletweet)
    
                       tryTolower = function(x)
                       {
                         y = NA
                         try_error = tryCatch(tolower(x), error=function(e)e)
                         if (!inherits(try_error, "error"))
                           y = tolower(x)
                         return(y)
                       }
                       singletweet = sapply(singletweet, tryTolower)
                       word.list = str_split(singletweet, "\\s+")
                       words = unlist(word.list)
                       pos.matches = match(words, pos)
                       neg.matches = match(words, neg)
                       pos.matches = !is.na(pos.matches)
                       neg.matches = !is.na(neg.matches)
                       score = sum(pos.matches) - sum(neg.matches)
                       return(score)
                     }, pos, neg, .progress=.progress )
      sentiment.df = data.frame(text=tweettext, score=scores)
      return(sentiment.df)
    }

抱歉，如果这个问题很愚蠢，但是我需要此功能才能获取我的研究数据。

编辑： 我使用Windows 10我的rstudio版本是1.4.1103

tweettext: (Trudeau_tweettext.csv)
pos: (positive-words.txt)
neg: (negative-words.txt)

    library(stringr)
    library(plyr)
    library(dplyr)
    library(tm)

祝大家有美好的一天（或晚上）！