R语言seq_len报错：参数需转为非负整数，求按类别汇总计数

错误根源 #

1. 数据类型错误：你用cbind创建的data是矩阵而非数据框，aggregate和xtabs对矩阵的处理逻辑与数据框不同，导致后续流程报错。
2. 冗余且错误的函数调用：as.matrix.data.frame是错误用法，xtabs返回的是table对象，直接用as.matrix转换即可；同时你嵌套使用aggregate和xtabs属于重复操作，完全没必要。

解决步骤 #

1. 修正数据集类型 #

如果是新建数据，直接用data.frame创建：

data <- data.frame(
  Factor = factor(sample.int(n = 41, size = 18000, replace = TRUE)),
  Count = as.numeric(sample.int(n = 10, size = 18000, replace = TRUE))
)

如果是已有的矩阵格式数据，先转成数据框并修正列名：

data <- as.data.frame(data)
colnames(data) <- c("Factor", "Count")

2. 两种正确的汇总方式 #

方式一：用aggregate直接汇总（返回数据框，可按需转矩阵）

# 按Factor汇总Count的总和，返回数据框
sum_result <- aggregate(Count ~ Factor, data = data, FUN = sum)
# 转成矩阵
sum_matrix <- as.matrix(sum_result)

方式二：用xtabs直接计算（返回table对象，转矩阵更简洁）

# 直接计算各Factor对应的Count总和
sum_table <- xtabs(Count ~ Factor, data = data)
# 转成矩阵
sum_matrix <- as.matrix(sum_table)

验证修正后的代码 #

用你提供的复现数据测试，修正后执行上述代码不会再出现seq_len(p)错误，且能得到正确的类别计数总和。

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