parts_joined %>% # Sort the number of star wars pieces in descending order arrange(desc(n_star_wars)) %>% # Join the colors table to the parts_joined table inner_join(colors, by = c("color_id" = "id")) %>% # Join the parts table to the previous join inner_join(parts, by = "part_num", suffix = c("_color", "_part") )