Skip to content

Instantly share code, notes, and snippets.

@bradlindblad

bradlindblad/nice_pdf_table_subheaders.R

Last active November 3, 2020 15:43
Show Gist options
  • Save bradlindblad/9078eb6e682a9d3275aca66db5df97e1 to your computer and use it in GitHub Desktop.
Save bradlindblad/9078eb6e682a9d3275aca66db5df97e1 to your computer and use it in GitHub Desktop.
Download ZIP
RMarkdown
Raw
nice_pdf_table_subheaders.R
base <- knitr::kable(final ,"latex", booktabs = T, longtable = T, align = c("l", "r", "r", "r", "r", "r"))
plott <- base %>%
kableExtra::kable_styling(
latex_options = c("scale_down"),
position = "left", full_width = T
) %>%
kableExtra::column_spec(1, width = "18em") %>%
kableExtra::column_spec(2, width = "4em") %>%
kableExtra::column_spec(3, width = "4em") %>%
kableExtra::column_spec(4, width = "4em") %>%
kableExtra::column_spec(5, width = "4em") %>%
kableExtra::column_spec(6, width = "4em") %>%
kableExtra::pack_rows(group_label = "Per Acre Comparisons", start_row = 0, end_row = 18) %>%
kableExtra::pack_rows(group_label = "Labor/Management Comparisons", start_row = 19, end_row = 27)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment