frequency_tables %>%
kable(caption = "Frequency Tables for Categorical Variables",
col.names = c("Variable", "Category", "Count", "Percentage"),
format = "html") %>%
kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive"),
full_width = FALSE,
position = "left") %>%
add_header_above(c(" " = 2, "Frequency Table" = 2)) %>%
footnote(general = "Note. This table presents the frequency and percentage of categories for zygosity and sex in the twin dataset.",
general_title = " ",
footnote_as_chunk = TRUE)