You jsut need to make the output of the tally method wide:

df_summary_wide <- df %>% group_by(sex, car_owned) %>% tally() %>%
  pivot_wider(names_from = car_owned, values_from = n)