使用data.table的set函数为特定行Fe列值加32时遇报错求解决

你遇到的警告是因为set函数里的value参数传入了整个列计算后的8个值，但i参数只选中了6行需要修改的记录，R自然会提示你有2个值没被用到。下面给你两种解决方法，都能得到你想要的结果：

方法1：修正set函数的value部分 #

只对符合条件的行计算新值，让value的长度和i选中的行数一致：

library(data.table)
chance <- data.table(Fe = c(75, 50, 100, 60, 60, 50, 60, 100))

change <- "Fe"
for (col in change) {
  idx <- which(chance[[col]] < 100)
  set(chance, i = idx, j = col, value = chance[[col]][idx] + 32L)
}

chance

运行后输出：

Fe
1: 107
2:  82
3: 100
4:  92
5:  92
6:  82
7:  92
8: 100

方法2：更简洁的data.table原生语法 #

其实没必要用循环和set，data.table支持直接在子集上赋值，写法更直观高效：

library(data.table)
chance <- data.table(Fe = c(75, 50, 100, 60, 60, 50, 60, 100))

chance[Fe < 100, Fe := Fe + 32L]

chance

这种写法会自动只对Fe < 100的行执行赋值操作，完全不会有警告，而且代码更简洁，符合data.table的设计理念。

为什么原来的代码会触发警告？ #

你原来的value = chance[[col]] + 32L是对整个列的8个元素都加了32，而i只指定了6行需要更新，所以R会告诉你“给了8个值，但只用到6个”。只要让value的长度和i选中的行数匹配，警告就会消失。

内容的提问来源于stack exchange，提问作者iembry