用循环将字符串的每个字母存储在变量中。

Question

假设我所做的事情如下：

x <- 'zeal'
t <- strsplit(x, '')
g <- unlist(t)
g
[1]"z" "e" "a" "l" 
r <- letters[(which(g[1] == letters))]
r
[1]"z"

我的最终目标是在其中我可以说：“在some variable中找到与something匹配的元素，例如，如果我有

e <- 'bacon'
e <- strsplit(e, '')
e <- unlist(e)
e
[1]"b" "a" "c" "o" "n"

然后“在e中查找与”b“匹配的元素。然后将其应用到e中的所有元素都匹配为止。

Answer 1

我不认为sum会做任何事情，因为每个g元素只匹配一次。在这里，您可以使用apply函数，而不是R中标准的显式循环，变量i与您编写的g[i]类似。

sapply(g, function(i) letters[which(i == letters)])