基于individuals列生成百分比序列的R语言实现问题

首先，咱们来拆解你代码里的问题：

• 你在data.table的分组参数里写了by = df$individuals，正确的写法应该直接指定分组列名by = individuals；
• 你的fun1函数用了1:nrow(df)，这会取整个数据框的行数，而非每个分组内的行数，自然会导致计算出错。

下面给你两种常用的解决方案，分别适配data.table和dplyr（tidyverse）两种主流R数据处理风格：

方案1：使用data.table #

先确保加载data.table包，再把数据框转成data.table格式，最后按individuals分组计算：

library(data.table)
# 将原始数据转换为data.table格式
setDT(df)
# 生成每组从0递增到100的百分比列，最后一行恰好为100
df[, percent := if (.N == 1) 100 else 100 * (seq_len(.N) - 1) / (.N - 1), by = individuals]

代码说明： #

• .N是data.table的内置变量，代表当前分组的总行数；
• seq_len(.N)生成当前分组内的行号序列（从1到.N）；
• 用(seq_len(.N)-1)把序列改成从0起始，再除以(.N-1)，就能让最后一行刚好得到100；
• 加了if (.N == 1)的判断，避免单一行分组出现除以0的错误。

方案2：使用dplyr（tidyverse） #

如果你习惯用tidyverse的语法，也可以这样实现：

library(dplyr)
df <- df %>%
  group_by(individuals) %>%
  mutate(percent = if (n() == 1) {
    100
  } else {
    100 * (row_number() - 1) / (n() - 1)
  }) %>%
  ungroup()

代码说明： #

• group_by(individuals)按个体完成分组；
• row_number()生成每组内的行号，n()代表当前分组的总行数；
• 同样处理了单一行分组的边界情况，保证代码鲁棒性。

效果验证 #

用你提供的测试数据（每组50行），运行后：

• 个体a的第1行percent为0，第50行刚好是100；
• 个体b的第1行重新从0开始递增，第50行同样到100，完全符合你的需求。

内容的提问来源于stack exchange，提问作者Y.Coch