如何在R语言中为Species与Prey组合生成连续唯一ID

问题场景 #

你有如下DataFrame：

mydata = data.frame(Species   = rep(letters[1:3], each = 20),
                    Prey = rep(round(runif(12)*1000, 0), each = 5))

需要为每一行生成唯一ID，满足：

• ID由Species（如a、b、c）加连续数字组成
• 每个Species下的每个唯一Prey对应的行编号连续（例如Species a的Prey 128对应行ID为a1、a2、a3、a4、a5，另一Prey值的行同样从a1开始编号）

你之前尝试的代码仅按Species分组，用as.factor(Prey)生成的是猎物的类别序号，无法实现组内连续编号：

tmp <- mydata %>% 
  group_by(Species) %>% 
  mutate(ID = str_c(Species, as.numeric(as.factor(Prey)), sep = "."))

正确实现代码 #

通过同时按Species和Prey分组，在每个分组内生成连续序号即可实现需求：

library(dplyr)
library(stringr)

tmp <- mydata %>% 
  group_by(Species, Prey) %>%  # 按物种和猎物的组合分组
  mutate(ID = str_c(Species, row_number(), sep = "")) %>%  # 组内生成连续序号并拼接
  ungroup()  # 可选：取消分组，避免后续操作受分组影响

代码说明 #

• group_by(Species, Prey)：让每个Species下的每个唯一Prey值形成独立分组，保证编号是针对同一猎物的行生成
• row_number()：在每个分组内生成从1开始的连续整数，正好对应需求的连续编号
• str_c()：将物种标识和序号直接拼接，生成如a1、b3这类符合要求的ID

你可以通过以下代码验证结果：

# 查看Species=a的部分数据，确认每个Prey对应的ID都是1-5连续编号
filter(tmp, Species == "a")

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