R - 匹配数据帧

我遇到以下与匹配不同数据帧有关的问题。R - 匹配数据帧

首先，我有下表：

table<-data.frame(brand=c('duna','cars','cars','sea','sea','sea','mega','moon','moon'),model=c('mm','mm','mm','ll','ll','ll','tr','tr','tr'),version=c("2.8 sr cab. dupla 4x4 tdi","2.0 lsdakar 16v 4x4 hi-flex 5-p","2.4 ls cab. simples 4x2 flex 2-p","2.3 xl cab. simples 4x2 2-p","1.8 sx 5-p","1.0 mpfi joy 8v","hatch ls 1.0 8v","2.3 xlt cab. dupla 4x2 limited 4-p","1.4 fire ce xlt flex 2-p")) 

    brand model       version 
1 duna mm   2.8 sr cab. dupla 4x4 tdi 
2 cars mm  2.0 lsdakar 16v 4x4 hi-flex 5-p 
3 cars mm 2.4 ls cab. simples 4x2 flex 2-p 
4 sea ll  2.3 xl cab. simples 4x2 2-p 
5 sea ll      1.8 sx 5-p 
6 sea ll     1.0 mpfi joy 8v 
7 mega tr     hatch ls 1.0 8v 
8 moon tr 2.3 xlt cab. dupla 4x2 limited 4-p 
9 moon tr   1.4 fire ce xlt flex 2-p

我不得不与下一个与之相匹配的：

table_match<-data.frame(brand=c('duna','cars','sea','mega','moon'),model=c('mm','mm','ll','tr','tr'),version=c('tdi','ls','xl','ls','xlt')) 

table_match$id<-paste0(table_match$brand,table_match$model,table_match$version) 

    brand model version  id 
1 duna mm  tdi dunammtdi 
2 cars mm  ls carsmmls 
3 sea ll  xl seallxl 
4 mega tr  ls megatrls 
5 moon tr  xlt moontrxlt

所以，这里的问题是匹配brand，从table_match到table。

例如，在table如果brand=duna，model=mm和version包含确切的词"tdi"，那么它是一个匹配！所以id（位于table_match）与该匹配，将位于version旁边。

brand model       version match 
1 duna mm   2.8 sr cab. dupla 4x4 tdi  dunammtdi 
2 cars mm  2.0 lsdakar 16v 4x4 hi-flex 5-p 
3 cars mm 2.4 ls cab. simples 4x2 flex 2-p  carsmmls 
4 sea ll  2.3 xl cab. simples 4x2 2-p  seallxl 
5 sea ll      1.8 sx 5-p 
6 sea ll     1.0 mpfi joy 8v 
7 mega tr     hatch ls 1.0 8v  megatrls 
8 moon tr 2.3 xlt cab. dupla 4x2 limited 4-p  moontrxlt 
9 moon tr   1.4 fire ce xlt flex 2-p  moontrxlt

来源

2017-05-24 lolo

建议看看package'fuzzyjoin'，它使用提供的函数进行匹配。 – epi99

fuzzy_join两个同等条件==，并从stringr第三str_detect。我不知道为什么模糊加入使得每三个副本，所以添加unique() 注：添加stringsAsFactors = FALSE测试数据

table<-data.frame(brand=c('duna','cars','cars','sea','sea','sea','mega','moon','moon'), 
        model=c('mm','mm','mm','ll','ll','ll','tr','tr','tr'), 
        version=c("2.8 sr cab. dupla 4x4 tdi","2.0 lsdakar 16v 4x4 hi-flex 5-p","2.4 ls cab. simples 4x2 flex 2-p","2.3 xl cab. simples 4x2 2-p","1.8 sx 5-p","1.0 mpfi joy 8v","hatch ls 1.0 8v","2.3 xlt cab. dupla 4x2 limited 4-p","1.4 fire ce xlt flex 2-p") 
        stringsAsFactors = FALSE) 
table_match<-data.frame(brand=c('duna','cars','sea','mega','moon'), 
         model=c('mm','mm','ll','tr','tr'), 
         version=c('tdi','ls','xl','ls','xlt'), 
         stringsAsFactors = FALSE) 

library(fuzzyjoin) 
library(stringr) 

fuzzy_join(table, table_match, 
    by = c("brand", "model", "version"), 
    match_fun = c(`==`, `==`, function(x,y) { str_detect(x, paste0("\\b", y, "\\b"))})) %>% 
    unique() 

# brand.x model.x       version.x brand.y model.y version.y 
# 1  duna  mm   2.8 sr cab. dupla 4x4 tdi duna  mm  tdi 
# 4  cars  mm 2.4 ls cab. simples 4x2 flex 2-p cars  mm  ls 
# 7  sea  ll  2.3 xl cab. simples 4x2 2-p  sea  ll  xl 
# 10 mega  tr     hatch ls 1.0 8v mega  tr  ls 
# 13 moon  tr 2.3 xlt cab. dupla 4x2 limited 4-p moon  tr  xlt 
# 16 moon  tr   1.4 fire ce xlt flex 2-p moon  tr  xlt

来源

2017-05-24 22:16:50 epi99

您的代码与字符串“lsdakar”匹配，如果您查看他的示例输出，则该字符串不是原始海报所需的。 – jsb

使用@Kristoferson的正则表达式更正并添加唯一（） – epi99

出色的贡献！此外，使用包含边界词语的paste0，它与我想要的完全匹配。 – lolo

我想我们可以做一个合并，然后使用正则表达式进行过滤。给这个一杆

dat = merge(table, table_match, by = c("brand", "model")) 


dat$match = mapply(function(x, y) grepl(paste("\\b", x, "\\b", sep = ""), y), dat$version.y, dat$version.x) 

dat$match = ifelse(dat$match, dat$id, "") 
dat = dat[ , !colnames(dat) %in% c("version.y", "id")] 
colnames(dat)[3] = "version" 

dat = dat[with(dat, order(brand)), ] 

brand model       version  match 
1 cars mm 2.0 lsdakar 16v 4x4 hi-flex 5-p   
2 cars mm 2.4 ls cab. simples 4x2 flex 2-p carsmmls 
3 duna mm   2.8 sr cab. dupla 4x4 tdi dunammtdi 
4 mega tr     hatch ls 1.0 8v megatrls 
5 moon tr 2.3 xlt cab. dupla 4x2 limited 4-p moontrxlt 
6 moon tr   1.4 fire ce xlt flex 2-p moontrxlt 
7 sea ll  2.3 xl cab. simples 4x2 2-p seallxl 
8 sea ll      1.8 sx 5-p   
9 sea ll     1.0 mpfi joy 8v

来源

2017-05-24 20:58:43 Kristofersen

您也可以尝试regex_join()从fuzzyjoin包。注：我在table_match的字符串'ls'周围增加了空格，以便正则表达式与table中的字符串'lsdakar'不匹配，因为这不是原始发布者想要的。

library(fuzzyjoin) 

# Use data_frame() to get rid of stringsAsFactors problem 
table <- 
data_frame(
    brand = c('duna', 'cars', 'cars', 'sea', 'sea', 'sea', 'mega', 'moon', 'moon'), 
    model = c('mm', 'mm', 'mm', 'll', 'll', 'll', 'tr', 'tr', 'tr'), 
    version = c(
     "2.8 sr cab. dupla 4x4 tdi", 
     "2.0 lsdakar 16v 4x4 hi-flex 5-p", 
     "2.4 ls cab. simples 4x2 flex 2-p", 
     "2.3 xl cab. simples 4x2 2-p", 
     "1.8 sx 5-p", 
     "1.0 mpfi joy 8v", 
     "hatch ls 1.0 8v", 
     "2.3 xlt cab. dupla 4x2 limited 4-p", 
     "1.4 fire ce xlt flex 2-p" 
    ) 
) 

# Use data_frame() here too 
table_match <- 
    data_frame(
    brand = c('duna', 'cars', 'sea', 'mega', 'moon'), 
    model = c('mm', 'mm', 'll', 'tr', 'tr'), 
    version = c('tdi', ' ls ', 'xl', ' ls ', 'xlt') 
) 

# Use regex_semi_join to find the matches 
regex_semi_join(table, table_match, by = c(brand = "brand", 
    model = "model", version = "version")) 

# A tibble: 6 × 3 
    brand model       version 
    <chr> <chr>        <chr> 
1 duna mm   2.8 sr cab. dupla 4x4 tdi 
2 cars mm 2.4 ls cab. simples 4x2 flex 2-p 
3 sea ll  2.3 xl cab. simples 4x2 2-p 
4 mega tr     hatch ls 1.0 8v 
5 moon tr 2.3 xlt cab. dupla 4x2 limited 4-p 
6 moon tr   1.4 fire ce xlt flex 2-p 
> 

# Use regex_anti_join to find the non-matches 
regex_anti_join(table, table_match, by = c(brand = "brand", 
    model = "model", version = "version")) 

# A tibble: 3 × 3 
    brand model       version 
    <chr> <chr>       <chr> 
1 cars mm 2.0 lsdakar 16v 4x4 hi-flex 5-p 
2 sea ll      1.8 sx 5-p 
3 sea ll     1.0 mpfi joy 8v 
>

来源

2017-05-24 23:33:05 jsb

R - 匹配数据帧

回答

相关问题