如何在R语言中为列中的重复值添加序号？

错误原因说明 #

你遇到的object 'weighted_df' not found报错，核心原因是代码里的weighted_df是参考示例中的数据集名称，你需要将其替换为自己实际使用的数据集变量名（比如你的数据存在my_data里，就把weighted_df换成my_data）。

三种可行实现方法 #

以下是针对你的需求的多种解决方案，涵盖不同R工具链，适合新手选择：

方法1：dplyr + data.table 组合（简洁高效）

rowid()是data.table包中的函数，能直接按指定列分组生成序号，搭配dplyr的管道语法更易读：

# 先加载必要的包
library(dplyr)
library(data.table)

# 替换成你的数据集名称，比如my_data
my_data <- my_data %>%
  mutate(Number = rowid(Name))

如果不想依赖data.table，也可以用dplyr原生的分组序号方法：

library(dplyr)

my_data <- my_data %>%
  group_by(Name) %>%
  mutate(Number = row_number()) %>%
  ungroup()  # 取消分组状态，避免后续操作受影响

方法2：纯data.table方法（适合大型数据集）

data.table处理大数据集的效率更高，语法也直观：

library(data.table)

# 如果你的数据不是data.table格式，先转换
setDT(my_data)

# 按Name分组生成序号
my_data[, Number := seq_len(.N), by = Name]

• .N表示当前分组的行数，seq_len(.N)生成1到该行数的连续序号
• by = Name指定分组依据

方法3：基础R方法（无需额外安装包）

如果不想安装第三方包，用基础R的ave()函数就能实现：

# 先按Name排序，确保同名称的行连续（可选，但建议做）
my_data <- my_data[order(my_data$Name), ]

# 生成分组序号
my_data$Number <- ave(rep(1, nrow(my_data)), my_data$Name, FUN = seq_along)

• ave()按Name分组，对每个分组应用seq_along生成序号

测试示例 #

你可以先创建示例数据验证效果：

# 创建你的示例数据集
my_data <- data.frame(
  Name = c("AH", "AH", "AH", "BC", "BC", "KP", "DN"),
  Year = c(2013, 2014, 2015, 2013, 2014, 2013, 2013),
  Value = c(1800, 2400, 2300, 1900, 1600, 3600, 2800)
)

# 任选上面一种方法运行，即可得到带Number列的结果

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