edit si-test

analysis/paper/.~lock.si_test.docx#

-,jaccard,jaccard-Latitude-E6440,19.01.2021 07:36,file:///home/jaccard/.config/libreoffice/4;
\ No newline at end of file

analysis/paper/si_test.Rmd

@@ -34,7 +34,8 @@ pacman::p_load(tidyverse,
                glue,
                ggridges,
                patchwork,
-               kableExtra)
+               kableExtra,
+               flextable)
 
 pal <- wes_palette("Cavalcanti1", 5, type = "discrete")
 extrafont::loadfonts()
@@ -148,18 +149,22 @@ hbs = data.frame(quintile, pps_hh, pm_sector1, pm_sector2) %>%
          pps_hh_sector2 = pps_hh*(pm_sector2/1000),
          sector_2_shares = pps_hh_sector2/sum(pps_hh_sector2))
 
-knitr::kable(hbs, caption = "Table S1: HBS structure with calculations of quintile shares per sector.", 
-             escape = F, 
-             booktabs = TRUE,
-             col.names = c("quintile",
-                           "pps hh", 
-                           "s1 (pm)", 
-                           "s2 (pm)",
-                           "s1 (pps hh)",
-                           "s1 (q share)",
-                           "s2 (pps hh)",
-                           "s2 (q share)")) %>%
-  kable_styling(latex_options = "HOLD_position")
+#knitr::kable(hbs, caption = "Table S1: HBS structure with calculations of quintile shares per sector.", 
+#             escape = F, 
+#             booktabs = TRUE,
+#             col.names = c("quintile",
+#                           "pps hh", 
+#                           "s1 (pm)", 
+#                           "s2 (pm)",
+#                           "s1 (pps hh)",
+#                           "s1 (q share)",
+#                           "s2 (pps hh)",
+#                           "s2 (q share)")) %>%
+#  kable_styling(latex_options = "HOLD_position")
+
+regulartable(hbs) %>%
+  autofit() %>%
+  fit_to_width(7.5)
                             
 ```