为何含多个矩阵列的data.frame无法追加新行？

在R里操作data.frame时会碰到一个特殊情况：如果data.frame包含多个矩阵列，动态追加新行时会抛出错误：number of items to replace is not a multiple of replacement length；但如果只有单个矩阵列，就完全没问题。而且这个错误只在追加新行时出现，修改已有行的操作全程正常。

验证示例 #

1. 单个矩阵列的data.frame：可正常追加新行

# 创建含单个矩阵列的data.frame
df_single <- data.frame(mat = I(matrix(1:4, nrow=2)))
# 非连续位置追加第3行，执行正常
df_single[3, ] <- list(matrix(5:8, nrow=1))
print(df_single)

# 修改现有行，同样正常
df_single[2, ] <- list(matrix(9:12, nrow=1))
print(df_single)

2. 多个矩阵列的data.frame：追加新行报错，修改现有行正常

# 创建含两个矩阵列的data.frame
df_multi <- data.frame(mat1 = I(matrix(1:4, nrow=2)), mat2 = I(matrix(5:8, nrow=2)))
# 尝试追加第3行，触发错误：number of items to replace is not a multiple of replacement length
df_multi[3, ] <- list(matrix(9:12, nrow=1), matrix(13:16, nrow=1))

# 但修改现有行完全正常
df_multi[2, ] <- list(matrix(17:20, nrow=1), matrix(21:24, nrow=1))
print(df_multi)

3. tibble的情况：需用专门函数追加行

tibble对行追加的限制更严格，不能直接通过索引赋值到非连续位置，必须用add_row()这类函数：

library(tibble)
tb <- tibble(mat = I(matrix(1:4, nrow=2)))
# 直接索引赋值追加会报错
# tb[3, ] <- list(matrix(5:8, nrow=1))

# 正确方式：使用add_row
tb <- add_row(tb, mat = list(matrix(5:8, nrow=1)))
print(tb)

结论 #

• 单个矩阵列的data.frame支持通过索引赋值的方式，非连续追加新行
• 多个矩阵列的data.frame无论显式还是隐式（直接赋值到超出当前行数的位置）追加新行，都会触发长度不匹配错误，仅修改已有行的操作不受影响
• tibble不支持直接索引赋值追加非连续行，需要使用专门的行追加函数

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