使用具有不同列名的stringdist_join

Question

我有如下示例数据：

library(fuzzyjoin)
a <- data.frame(x = c("season", "season", "season", "package", "package"), y = c("1","2", "3", "1","6"))


b <- data.frame(x = c("season", "seson", "seson", "package", "pakkage"), w = c("1","2", "3", "2","6"))

c <- data.frame(z = c("season", "seson", "seson", "package", "pakkage"), w = c("1","2", "3", "2","6"))

因此，以下内容运行良好：

d <- stringdist_left_join(a,b, by = "x", max_dist = 2)

但是，不允许与具有不同名称的列合并(请注意，联接现在是a和c)。

e <- stringdist_left_join(a,c, by = c("x", "z"), max_dist = 2)

我想告诉stringdist_left_join使用两个不同的列名来连接，就像最后一行代码(e)，但是它似乎不接受。

对此是否有任何解决方案(除了复制该列并给它另一个名称)？

Answer 1

您可以对两个不同的列名使用=。您可以使用以下代码：

e <- stringdist_left_join(a,c, by = c("x" = "z"), max_dist = 2)

输出：

         x y       z w
1   season 1  season 1
2   season 1   seson 2
3   season 1   seson 3
4   season 2  season 1
5   season 2   seson 2
6   season 2   seson 3
7   season 3  season 1
8   season 3   seson 2
9   season 3   seson 3
10 package 1 package 2
11 package 1 pakkage 6
12 package 6 package 2
13 package 6 pakkage 6