Computing weighted marginal averages in a table with addmargin

Question

I create a table with the average number of days that people have participated in a survey broken out by country and sex.

   tbl_tmp <- df_tmp1 %>%