df1 %>% full_join(df2, by = c("column_name_1", "column_name_2"), suffix = c("_df1", "_df2")) %>% replace_na(list(n_batman = 0, n_star_wars = 0))
df1 %>% full_join(df2, by = c("column_name_1", "column_name_2"), suffix = c("_df1", "_df2")) %>% replace_na(list(n_batman = 0, n_star_wars = 0))