在R中寻找多个向量中公共元素的索引

# 创建要比较的向量
vec1 <- c(1, 2, 3, 4, 5)
vec2 <- c(3, 4, 5, 6, 7)
vec3 <- c(5, 6, 7, 8, 9)

# 将向量存储在列表中
vec_list <- list(vec1, vec2, vec3)

# 使用intersect()函数找到交集元素
common_elements <- Reduce(intersect, vec_list)

# 使用which()函数找到交集元素在每个向量中的索引
index_list <- lapply(vec_list, function(vec) which(vec %in% common_elements))

# 输出结果
print(common_elements)
print(index_list)