R中为dataframe指定行Class列设置递增字母数字值的方法

核心思路：按原始的组合Class分组，每组内自动生成递增序号，和提取到的前缀拼接即可，不需要写多层循环，适配所有组合类场景，无需单独为每个组合写逻辑。

推荐方案：tidyverse 实现（易读易维护） #

# 未安装依赖包先执行：install.packages("dplyr")
library(dplyr)

track_data_new <- track_data %>%
  # 按原始Class值分组，方便同组内生成序号
  group_by(original_class = Class) %>%
  # 生成组内的行序号，从1开始递增
  mutate(row_in_group = row_number()) %>%
  ungroup() %>%
  # 批量修改Class列
  mutate(Class = case_when(
    # 处理组合类条目（字符长度大于3的行）
    nchar(Class) > 3 ~ paste0(
      # 提取前缀：T加第一位数字，比如T43/44提取T4、T53/54提取T5
      substr(Class, 1, 2),
      # 提取组合类起始数值，加上组内序号减1得到最终数值，自动转成字符串拼接
      as.numeric(substr(Class, 3, 3)) + row_in_group - 1
    ),
    # 非组合类条目保留原值
    TRUE ~ Class
  )) %>%
  # 清理临时生成的辅助列
  select(-original_class, -row_in_group)

可选方案：base R 实现 #

# 筛选所有组合类行
combo_rows <- which(nchar(track_data$Class) > 3)
# 按原始Class分组，生成组内行序号
track_data$row_in_group <- ave(track_data$Class, track_data$Class, FUN = seq_along)
# 批量替换组合类的Class值
track_data$Class[combo_rows] <- paste0(
  substr(track_data$Class[combo_rows], 1, 2),
  as.numeric(substr(track_data$Class[combo_rows], 3, 3)) + track_data$row_in_group[combo_rows] - 1
)
# 删除临时辅助列
track_data$row_in_group <- NULL

常见报错说明 #

之前执行数值加1报错，大概率是没有把提取到的字符串类型的数字，用as.numeric()转为数值类型再做运算，上面的方案已经做了类型转换，可以解决该问题。

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