R语言按向量值筛选数据框并保留重复行的方法

现有字符型向量a存储了带重复值的半径序列，数据框circle_stats包含半径1-30对应的面积和周长（半径列为字符型）。需要从circle_stats中筛选出与a元素匹配的行，必须保留a中的重复项，最终得到20行结果。但使用subset结合%in%的方法会自动去重，仅返回10行，无法满足需求。

初始数据代码 #

# 带重复值的半径序列
a <- as.character(c(1,2,3,4,5,5,6,7,2,8,4,9,10,10,1,1,1,1,1,4))
unique(a[duplicated(a)]) # 查看重复的半径值：5 2 4 10 1

# 生成包含所有半径统计的数据框
radius <- c(1:30)
circle_stats <- data.frame(radius=as.character(radius),
                           area=pi*radius^2,
                           circumference=2*pi*radius)

尝试的无效代码（仅返回去重结果） #

library(data.table)
circle_stats %>% 
  subset(radius %in% a) %>%
  arrange(match(radius, a))

以下三种方法均可保留a中的重复项，返回20行目标结果：

方法1：dplyr左连接（推荐，逻辑清晰） #

将向量a转换为数据框，再与circle_stats做左连接，自动保留a的顺序和重复次数：

library(dplyr)

# 将a转为带匹配键的数据框
a_df <- data.frame(radius = a, stringsAsFactors = FALSE)
# 左连接获取对应行
result <- left_join(a_df, circle_stats, by = "radius")

方法2：Base R索引匹配（无需额外包） #

利用match函数获取a中每个元素在circle_stats中的位置，直接按索引提取行：

# 获取a中每个元素对应的行索引
idx <- match(a, circle_stats$radius)
# 按索引提取目标行
result <- circle_stats[idx, ]

方法3：data.table快速匹配（大数据场景高效） #

将circle_stats转为data.table并设置键，直接用a做匹配，自动保留重复项：

library(data.table)

# 转为data.table并设置匹配键
setDT(circle_stats, key = "radius")
# 按a的序列匹配行
result <- circle_stats[.(a)]

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