如何基于DataFrame列的层级添加带递增唯一编号的新列？

嘿，我完全懂你想要实现的效果——给y1列的每个唯一层级分配一个从1开始的递增数字，生成新列y3。其实不用折腾复杂的lapply或者循环，R里有几个简洁的方法就能搞定，我给你分享两种最常用的：

方法1：基础R实现（无需额外包） #

利用factor()和as.integer()的组合就能轻松完成，默认会按照y1值第一次出现的顺序分配编号：

# 假设你的数据集名为df
df$y3 <- as.integer(factor(df$y1, levels = unique(df$y1)))

• 原理：factor(df$y1, levels = unique(df$y1))会把y1的唯一值按出现顺序转为因子水平，as.integer()则把每个因子水平映射为对应的递增数字（1、2、3...）。

方法2：tidyverse/dplyr实现（更直观） #

如果你习惯用tidyverse语法，dplyr的cur_group_id()配合.by参数可以更清晰地完成分组编号：

library(dplyr)

df <- df %>%
  mutate(y3 = cur_group_id(), .by = y1)

• 原理：.by = y1指定按y1的唯一值分组，cur_group_id()会自动给每个组分配从1开始的递增ID，代码可读性拉满。

示例演示 #

假设你的原始数据是这样的：

df <- data.frame(y1 = c("X", "X", "Y", "Z", "Y", "Z", "X"))

用上面任意一种方法处理后，y3列会变成：[1] 1 1 2 3 2 3 1，完美匹配你的需求。

补充：添加前缀"b" #

如果之后需要给y3加上前缀"b"，直接用paste0()拼接即可：

# 基础R版本
df$y3 <- paste0("b", as.integer(factor(df$y1, levels = unique(df$y1))))

# dplyr版本
df <- df %>%
  mutate(y3 = paste0("b", cur_group_id()), .by = y1)

处理后y3会变成：[1] "b1" "b1" "b2" "b3" "b2" "b3" "b1"

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