从数据框中的字符串列创建距离矩阵

Question

我尝试使用此代码但没有成功：

library(fuzzywuzzyR)
library(proxy)

set.seed(42)
rm(list = ls())
options(scipen = 999)

init = FuzzMatcher$new()

data <- data.frame(string = c("aaaaa baaaaa", "baaaaa xxxhhx ", "caaaaa hhhr ejhhehe"))
data$string <- as.character(data$string)

f <- function(string_1, string_2) {
    init$Token_set_ratio(string1 = string_1, string2 = string_2, force_ascii = TRUE, full_process = TRUE)
}

proxy::dist(data$string, method = f)

目的是使用 proxy::dist 和fuzzywuzzyR 包生成每一行之间的距离。

错误：

错误：参数“string1”和“string2”都应该是类型 字符串 另外：警告信息： 在 do.call(".External", c(list(CFUN, x, y, pairwise, if (!is.function(method)) get(method) else method), 中： 强制引入的 NAs

Answer 1

我在我的机器上对此进行了测试，并通过 install.packages 安装了fuzzywuzzyr 包。这很好地安装了包，但是当我运行init$Token_set_ratio(string1 = s1, string2 = s2, force_ascii = TRUE, full_process = TRUE) 时，这给了我一个attempt to apply non-function 的错误，这反过来又在稍后对proxy::dist 的调用中返回NAs introduced by coercion。我相信问题可能类似于https://github.com/mlampros/fuzzywuzzyR/issues/4，我什至无法运行小插图中的基本示例。我相信该软件包已损坏或未维护，因为我什至无法运行 github repo 中的 utils 部分而不会出现相同的非功能错误。抱歉，这无法解决您的问题，但也许会有所帮助。