如何使用含重复值的向量从带重复命名的R向量中提取元素？

核心问题在于：modified_q包含重复元素名，直接用duplicated_q索引时，R默认只会匹配每个名字第一次出现的元素，导致第二次出现的q42等无法对应到modified_q中第二个同名元素。

以下是几种可行的解决方案：

方法1：基于序号标记的匹配法 #

通过给每个重复名字添加出现序号，生成唯一匹配键实现精准提取：

# 为duplicated_q的每个元素生成同组内的出现序号
dup_counts <- ave(seq_along(duplicated_q), duplicated_q, FUN = seq_along)
# 为modified_q的每个元素生成同名字组内的出现序号
mod_counts <- ave(seq_along(modified_q), names(modified_q), FUN = seq_along)

# 生成唯一匹配键（名字+序号）
dup_key <- paste(duplicated_q, dup_counts, sep = "_")
mod_key <- paste(names(modified_q), mod_counts, sep = "_")

# 通过键匹配提取目标元素
result <- modified_q[match(dup_key, mod_key)]
# 保留原duplicated_q的命名（可选，按需调整）
names(result) <- names(duplicated_q)

运行验证输出：

> result
 q142  q143  q144  q145  q146  q192  q193  q194  q195  q196  q197  q198  q199  q200  q201 
"q22" "q23" "q24" "q25" "q26" "q32" "q33" "q34" "q35" "q36" "q27" "q28" "q29" "q30" "q31"

方法2：分组拆分后按序提取（依赖purrr包） #

将两个向量按名字分组，再按出现顺序对应提取：

library(purrr)

# 按名字拆分modified_q为列表，每个子列表对应同名元素
mod_split <- split(modified_q, names(modified_q))
# 按元素值拆分duplicated_q，得到每个值的出现位置列表
dup_split <- split(seq_along(duplicated_q), duplicated_q)

# 对每个名字组，按dup_split中的位置提取对应元素
result_list <- map2(mod_split, dup_split, ~ .x[.y])
# 合并为向量并恢复原顺序
result <- unlist(result_list)[match(names(duplicated_q), names(unlist(result_list)))]

方法3：基于数据框的连接法（依赖dplyr包） #

用数据框的分组序号连接实现精准匹配：

library(dplyr)
library(tibble)

# 转换duplicated_q为带分组序号的数据框
dup_tbl <- tibble(
  key = duplicated_q,
  original_idx = seq_along(duplicated_q),
  original_name = names(duplicated_q)
) %>%
  group_by(key) %>%
  mutate(count = row_number()) %>%
  ungroup()

# 转换modified_q为带分组序号的数据框
mod_tbl <- tibble(
  key = names(modified_q),
  value = modified_q
) %>%
  group_by(key) %>%
  mutate(count = row_number()) %>%
  ungroup()

# 连接数据框并提取目标值，恢复原顺序
result <- dup_tbl %>%
  left_join(mod_tbl, by = c("key", "count")) %>%
  arrange(original_idx) %>%
  pull(value)

names(result) <- names(duplicated_q)

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