Question

我想从字符向量列表中找到常用字符。下面是解决问题的示例。但是我有一个列表，里面有100个字符向量，我想用for循环遍历循环并获得常见的字符项。

ab <- c ("a", "b", "c", "g")
cd <- c("a" ,"d", "c", "e", "f")
ef <- c("a", "c", "i", "r", "t")
dat <- list(ab,cd,ef)

Reduce(intersect, dat)
[1] "a" "c"

编辑：我的问题是我有一个很大的列表，其中嵌套了字符向量。这就是我要使用for循环遍历列表并从字符向量中查找公用项的原因。

我尝试了如下所示的操作，但没有得到任何输出

for (i in 1: seq_along(dat))
{
   op <- Reduce(intersect, dat[[i]])
}

Answer 1

以下代码可用于通过for循环解决问题：

ab <- c ("a", "b", "c", "g")
cd <- c("a" ,"d", "c", "e", "f")
ef <- c("a", "c", "i", "r", "t")
dat <- list(ab,cd,ef)

op <- vector()
for (i in seq_along(dat)) 
{
  op[i] <- list(dat[[i]])  
}
op.final <- Reduce(intersect, op)

从字符向量列表中选择通用项

1 个答案: