How can I match fuzzy match strings from two datasets?

by

Here is a solution using the fuzzyjoin package. It uses dplyr-like syntax and stringdist as one of the possible types of fuzzy matching.

As suggested by @C8H10N4O2, the stringdist method=”jw” creates the best matches for your example.

As suggested by @dgrtwo, the developer of fuzzyjoin, I used a large max_dist and then used dplyr::group_by and dplyr::slice_min to get only the best match with minimum distance. (slice_min replaces the older top_n and if the original order is important and not alphabetical, use mutate(rank = row_number(dist)) %>% filter(rank == 1))

a <- data.frame(name = c('Ace Co', 'Bayes', 'asd', 'Bcy', 'Baes', 'Bays'),
                price = c(10, 13, 2, 1, 15, 1))
b <- data.frame(name = c('Ace Co.', 'Bayes Inc.', 'asdf'),
                qty = c(9, 99, 10))

library(fuzzyjoin); library(dplyr);

stringdist_join(a, b, 
                by = "name",
                mode = "left",
                ignore_case = FALSE, 
                method = "jw", 
                max_dist = 99, 
                distance_col = "dist") %>%
  group_by(name.x) %>%
  slice_min(order_by = dist, n = 1)

#> # A tibble: 6 x 5
#> # Groups:   name.x [6]
#>   name.x price     name.y   qty       dist
#>   <fctr> <dbl>     <fctr> <dbl>      <dbl>
#> 1 Ace Co    10    Ace Co.     9 0.04761905
#> 2  Bayes    13 Bayes Inc.    99 0.16666667
#> 3    asd     2       asdf    10 0.08333333
#> 4    Bcy     1 Bayes Inc.    99 0.37777778
#> 5   Baes    15 Bayes Inc.    99 0.20000000
#> 6   Bays     1 Bayes Inc.    99 0.20000000

More Related Contents:

  1. Filter multiple values on a string column in dplyr
  2. Merging two Data Frames using Fuzzy/Approximate String Matching in R
  3. Techniques for finding near duplicate records
  4. agrep: only return best match(es)
  5. R fuzzy string match to return specific column based on matched string
  6. How to select R data.table rows based on substring match (a la SQL like)
  7. Find matching strings between two vectors in R
  8. Group by multiple columns and sum other multiple columns
  9. Find indices of duplicated rows [duplicate]
  10. How to count the number of unique values by group? [duplicate]
  11. Convert integer to class Date
  12. How to uninstall R and RStudio with all packages, settings and everything else?
  13. Extracting unique numbers from string in R
  14. if/else constructs inside and outside functions
  15. Adding new columns to a data.table by-reference within a function not always working
  16. double integral in R
  17. Add a horizontal line to plot and legend in ggplot2
  18. R’s read.csv prepending 1st column name with junk text [duplicate]
  19. ggplot2 – The unit of size
  20. Can dcast be used without an aggregate function? [duplicate]
  21. add image in title page of rmarkdown pdf
  22. Gantt style time line plot (in base R)
  23. Replace missing values (NA) in one data set with values from another where columns match
  24. Control the size of points in an R scatterplot?
  25. no visible global function definition for ‘median’
  26. How to fix ‘tar: Failed to set default locale’ error?
  27. Duplicate list names in R
  28. Different axis limits per facet in ggplot2
  29. Relocating Alaska and Hawaii on thematic map of the USA with ggplot2
  30. optimized rolling functions on irregular time series with time-based window

Leave a Comment