Присвоение весов уровней факторов

Question

У меня есть две факторные переменные: пол с двумя уровнями и семейное с четырьмя уровнями, и у меня есть соответствующие частоты в кадре данных.Я хочу построить двухстороннюю таблицу непредвиденных обстоятельств, используя эти частоты.Кто-нибудь может помочь?

 marital <- c("Single (M1)","Single (M1)", "Married (M2)","Married (M2)", 

"Vdowed (M3)","Vdowed (M3)", "Divorced (M4)", "Divorced (M4)")
    gender <- c("Male (S1)", "Female (S2)")
    freq <- c(129, 104, 298, 305, 13, 57, 40, 54)

    df <- data.frame(marital, gender, freq)
    View(df)
    table(df$marital,  df$gender)

Answer 1

Вы можете использовать tidyr::spread:

library(tidyr)

df %>% spread(gender, freq)

        marital Female (S2) Male (S1)
1 Divorced (M4)          54        40
2  Married (M2)         305       298
3   Single (M1)         104       129
4   Vdowed (M3)          57        13