基于record_id与location组合生成序列的R语言问题求助

你之前的代码错误在于按record_id和location双重分组，导致每个分组内的seq_along只会生成1，无法实现同record_id下不同location按出现顺序分配唯一序号、重复location复用序号的需求。

可以用以下两种方法实现预期效果：

方法1：使用match匹配首次出现位置 #

table %>%
  group_by(record_id) %>%
  mutate(my_seq = match(location, unique(location)))

方法2：使用factor转换生成序号 #

table %>%
  group_by(record_id) %>%
  mutate(my_seq = as.integer(factor(location, levels = unique(location))))

原理说明 #

• 两种方法都仅按record_id分组，在组内处理：
  • match(location, unique(location))：unique(location)会提取当前组内所有不重复的location并保留出现顺序，match返回每个location在该列表中的位置索引，重复的location自然对应相同索引。
  • factor方法：将location转为因子时，指定levels为组内唯一的location（按出现顺序），转成整数后就得到对应的序列值，和match效果一致。

运行后输出会和你期望的结果完全一致：

record_id location my_seq
       1 US          1
       1 NZ          2
       1 AU          3
       1 UK          4
       2 US          1
       2 UK          2
       2 NZ          3
       2 US          1

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