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

Question

我有一个像这样的单词表( wt )(3 x 3)

ungrateful    mango       uncertain
hobby       prejudicial   meat
persecution   bird        honest

和一个单词词典( dict )

persecution
overpowering
prejudicial
offense
ungrateful
uncertain
musical
murderous
detest
youth

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

    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