表链接 - 图1

    1. workers = fread("
    2. name company
    3. Nick Acme
    4. John Ajax
    5. Daniela Ajax
    6. ")
    8. positions = fread("
    9. name position
    10. John designer
    11. Daniela engineer
    12. Cathie manager
    13. ")
    14. workers %>% inner_join_dt(positions)
    15. workers %>% left_join_dt(positions)
    16. workers %>% right_join_dt(positions)
    17. workers %>% full_join_dt(positions)
    18. # filtering joins
    19. workers %>% anti_join_dt(positions)
    20. workers %>% semi_join_dt(positions)
    21. # To suppress the message, supply 'by' argument
    22. workers %>% left_join_dt(positions, by = "name")
    23. # Use a named 'by' if the join variables have different names
    24. positions2 = setNames(positions, c("worker", "position")) # rename first column in 'positions'
    25. workers %>% inner_join_dt(positions2, by = c("name" = "worker"))
    26. # the syntax of 'on' could be a bit different
    27. workers %>% inner_join_dt(positions2,on = "name==worker")