如何在R中编辑重复记录并为重复问题标签添加序号后缀

问题原因 #

你的代码未生效主要有两点原因：

• dplyr的管道运算默认不会修改输入的原数据框，你没有将运算结果赋值回df1，运行代码后原数据不会发生变化
• 你的需求要求第一个重复标签保留原名，从第二个开始加2、3后缀，原代码直接拼接行号会给第一条记录也加上1，不符合预期

修正后代码 #

# 已安装dplyr可跳过安装步骤
# install.packages("dplyr")
library(dplyr)

df1 <- df1 %>% 
  # 按用户+标签分组统计重复次数
  group_by(UserID, label) %>% 
  # 首条记录保留原标签，后续重复记录拼接对应序号
  mutate(label = ifelse(row_number() == 1, label, paste0(label, row_number()))) %>% 
  # 解除分组避免影响后续操作
  ungroup()

运行效果 #

修正后label列的输出结果符合你的预期：

[1] "Check Were you given any info?"  "Check Were you given any info?2"
[3] "Check Were you given any info?3" "Check Were you given any info?" 
[5] "Check By using this service.."   "Check How satisfied are you?"  

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