店可變字符串的每一個字母一個循環

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" 

則b「‘’在e相匹配查找元素」。然後應用過，直到e所有元素都匹配

Answer 1

我不會爲sum做任何事情，因爲每個g元素只會匹配一次。在這裏，您可以使用apply函數，而不是像R中的標準循環那樣使用顯式循環。變量i就像您編寫它時的g[i]一樣。

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