R修改列表元素名报错：'names'属性长度与向量长度不匹配求解

错误原因 #

• 你执行unlist(df1[[i]]$ID)时，取到的是第i个分组里所有行的ID值，每个分组有200条数据，所以返回的向量长度是200，而列表l只有5个元素，赋值整个列表的名称时长度无法匹配，触发报错
• 循环逻辑存在问题：你不需要逐次修改整个列表的名称，只需要提取每个分组对应的唯一ID，一次性给列表赋值名称即可

解决代码 #

方法1：一行代码直接赋值（推荐） #

names(l) <- sapply(df1, function(x) unique(x$ID))

该方法直接遍历df1的每个元素，提取每个分组的唯一ID值，返回长度为5的向量，刚好匹配列表l的长度。

方法2：修正循环写法 #

如果你要保留循环逻辑，可以调整为如下写法：

for(i in 1:length(df1)){
  # 每次仅修改第i个元素的名称，取该分组的唯一ID
  names(l)[i] <- unique(df1[[i]]$ID)
}

结果验证 #

运行上述任意一种代码后执行names(l)，会返回"A" "B" "C" "D" "E"，符合你的需求。

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