使用 R 与单词字典进行字符串匹配

Question

我有一个像这样（3×3）的单词表（wt）

ungrateful    mango       uncertain
hobby       prejudicial   meat
persecution   bird        honest

还有一本词典（dict）

persecution
overpowering
prejudicial
offense
ungrateful
uncertain
musical
murderous
detest
youth

我想用 dict 搜索 wt 中的所有单词，如果有任何单词与字典匹配，这将给出字典单词在单词表中的位置，不匹配的单词将被自动删除。

    wt <- matrix(c("ungrateful","mango", "uncertain","hobby", "prejudicial", "meat","persecution","bird","honest"), nrow = 3, ncol = 3, byrow = TRUE)
    dict<- matrix(c(
"persecution",
"overpowering",
"prejudicial",
"offense",
"ungrateful",
"uncertain",
"musical",
"murderous",
"detest",
"youth"), nrow = 10, ncol = 1, byrow = FALSE)

for (i in 1:nrow(df)){
        for (i in 1:col(df)){
                x[i,j ] <- charmatch(df[i,j],dict_word)
        }          
}

但是当我期待这样的输出时，这会给出错误

     [,1] [,2] [,3]
 [1,]  5         6
 [2,]      3
 [3,]  1

我是 R 的新手，对语法不太了解。请帮忙。

Answer 1

match 函数在第二个参数中返回第一个参数的匹配位置。 （如果有多个匹配，则只返回第一个匹配的位置。）然后我们将其转换为与wt 矩阵的位置对应的矩阵。

matrix(match(wt, dict), nrow=nrow(wt))

     [,1] [,2] [,3]
[1,]    5   NA    6
[2,]   NA    3   NA
[3,]    1   NA   NA

Answer 2

和上面提到的@epi10一样，charmatch

matrix(charmatch(wt,dict), nrow = nrow (wt))

和匹配

matrix(pmatch(wt,dict), nrow = nrow (wt))

也可以。