“[<；-.data.table”（“*tmp*”，“P”中的R代码返回错误，值=c（NA，NA，NA，NA，NA，：尝试在R中使用极性时

我有一个代码，它是我分析的核心，在一两天前工作得很好，我正试图用感伤器指定我自己的词典数据框架，我已经把它做成了一个键，但它不断返回这个新错误

Error in `[<-.data.table`(`*tmp*`, , "P", value = c(NA, NA, NA, NA, NA,  : 
  Supplied 1642214 items to be assigned to 1642195 items of column 'P'. If you wish to 'recycle' the RHS please use rep() to make this intent clear to readers of your code.

中的错误`[
batch_sentiment_by <- function(gamecanu, batch_size = 200, ...) {
     gamecanu_batches <- split(gamecanu, ceiling(seq_along(gamecanu)/batch_size))
     x <- rbindlist(lapply(gamecanu_batches, sentiment_by, ...))
     x[, gid := .I]
     x[]
 }
 
batch_sentiment_by(gamecanu, polarity_dt = polkey) -> usersentiC