R中如何使用相同断点对多列数据实现cut区间计数？

你之前的代码只差了最核心的一步：给每个数值切完区间标签后，没有逐列做计数汇总。只要在原有逐列遍历的逻辑里，给cut()的结果套上你已经会用的table()函数，就能完全复用你已掌握的单列统计逻辑，不需要额外学习新方法。 #

可直接运行的调整代码 #

1. 单独定义全局统一的断点规则，避免多列处理时出现断点设置不一致的问题：

fixed_breaks <- seq(0, 70, 5)

2. 用lapply逐列遍历数据集，把你之前手动统计单列的逻辑直接套用到每一列上：

# 逐列生成区间计数，返回列表结构
col_count_result <- lapply(bootdata, function(each_col) {
  table(cut(each_col, breaks = fixed_breaks))
})

输出效果说明 #

• 运行后得到的col_count_result是R原生列表结构，每个元素对应原数据集的一列，元素内容和你手动跑第一列、第二列得到的计数向量完全一致。直接打印这个列表，就会呈现你期望的[1]、[2]逐列展示计数的效果。
• 因为cut()函数会自动生成覆盖所有断点区间的因子水平，就算某列某个区间没有数据、计数为0，结果也会完整保留对应区间，不会出现某列缺行、计数错位的问题，和你手动统计单列的输出结构100%对齐。

你之前编写的data.frame(lapply(bootdata, cut, breaks=seq(0, 70, 5)))本质是逐行生成每个值对应的区间标签，相当于把原始年龄值替换成了所属区间文本，完全没有执行汇总计数的步骤，补上table()环节就能直接得到目标结果。

可选：转成直观的对照汇总表 #

如果觉得逐列打印列表不方便横向对比，可以把列表结果转成规整的数据框：

# 转换为行是区间、列是原数据列的计数对照表
as.data.frame(col_count_result)

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