在R语言中高效复制行：保留意识形态值替换政党名称

要高效处理多组政党更名的数据集扩展，核心是先建立旧党名→新党名的映射关系，再基于这个映射批量生成新记录，最后合并到原数据集。以下是两种实用方法：

基础方法（Base R） #

适合不依赖tidyverse包的场景：

1. 定义原数据集和更名映射表：

# 原数据集
df <- data.frame(party = c("AB", "PQ", "HL", "AS"), 
                 ideology = c("left", "center-right", "right", "right"))

# 更名映射表：旧党名 -> 新党名，可添加多组记录
name_mapping <- data.frame(old_party = c("AB", "PQ"), 
                           new_party = c("RB", "MQ"))

2. 基于映射表生成新记录：
   通过合并原数据和映射表，提取匹配到的行并替换党名为新名称：

# 合并原数据与映射表，筛选出需要更名的政党行
new_records <- merge(df, name_mapping, by.x = "party", by.y = "old_party")
# 替换党名为新名称，保留意识形态
new_records$party <- new_records$new_party
# 只保留需要的列（和原数据结构一致）
new_records <- new_records[, c("party", "ideology")]

3. 合并原数据与新记录：

final_df <- rbind(df, new_records)
# 查看结果
print(final_df)

tidyverse方法（更简洁） #

如果熟悉dplyr和tidyr，用这种方法更高效：

library(dplyr)
library(tidyr)

# 原数据集
df <- data.frame(party = c("AB", "PQ", "HL", "AS"), 
                 ideology = c("left", "center-right", "right", "right"))

# 更名映射表
name_mapping <- tibble(old_party = c("AB", "PQ"), 
                       new_party = c("RB", "MQ"))

# 生成新记录并合并
final_df <- df %>%
  # 左连接映射表，匹配需要更名的政党
  left_join(name_mapping, by = c("party" = "old_party")) %>%
  # 将原党名和新党名分拆成多行
  pivot_longer(cols = c(party, new_party), 
               names_to = NULL, values_to = "party") %>%
  # 去除空值（没有更名的政党不会生成空值）
  drop_na(party) %>%
  # 去重（避免原行被重复保留）
  distinct()

print(final_df)

两种方法都支持批量添加多组更名记录，只需要在name_mapping里新增行即可，无需修改核心逻辑，适合大规模数据集处理。

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