聚合函数在knitr中失败但在控制台中成功

Question

我有以下R代码：

cleanData <- aggregate(x = stormData[c("FATALITIES", "INJURIES")],
                       by = list(tolower(stormData$EVTYPE)), sum)

它在R Studio控制台中运行正常，但是当我在knitr中的一个块中复制/粘贴它时会产生错误：

Error in `$<-.data.frame`(`*tmp*`, "HARM", value = c(15, 0, 2, 2, 2, 6,  : 
  replacement has 902297 rows, data has 898
Calls: <Anonymous> ... withVisible -> eval -> eval -> $<- -> $<-.data.frame

我不确定为什么会这样。