Code
# STUDY CHARACTERISTICS TABLE BY BIOMARKER -------------
# LOAD PACKAGES -
if (!require(pacman)) install.packages("pacman")
pacman::p_load(tidyverse,
readxl,
flextable,
update = FALSE)
#read in study characteristics data from manual excel input
study.characteristics.01 <- readxl::read_excel("../data/clean_data/study-characteristics-table.xlsx",
.name_repair = "universal")
##explore data
#glimpse(study.characteristics.01)
#names(study.characteristics.01)
#flextable formatting from PLSC476
study_characteristics_flextable <- study.characteristics.01 %>%
flextable::flextable() %>%
flextable::set_header_labels(
N.Range = "N Range",
Types.of.Evidence = "Types of Evidence",
Contributing.Studies = "Contributing Studies") %>%
flextable::theme_booktabs(bold_header = TRUE) %>%
flextable::align(align = "center", part = "all") %>%
flextable::valign(valign = "bottom", part = "header") %>%
flextable::padding(padding = 1, part = "all") %>%
flextable::border_inner_h(
border = officer::fp_border(color = "gray60", width = 0.5),
part = "all"
) %>%
flextable::border_inner_v(
border = officer::fp_border(color = "gray60", width = 0.5),
part = "all"
) %>%
flextable::border_outer(
border = officer::fp_border(color = "gray40", width = 0.75),
part = "all"
) %>%
#footnotes per discussion - NORCCAP cohort overlap + abbreviations
flextable::add_footer_lines("Note: The NORCCAP cohort (n=10,601 Norwegian adults) contributed to multiple analyses represented in this table: Hustad 2007, Midttun 2007, Fredriksen 2007, and Holm 2007.") %>%
flextable::add_footer_lines("Abbreviations: GWAS = genome-wide association study; RCT = randomized controlled trial; LC-MS/MS = liquid chromatography-tandem mass spectrometry; BHMT = betaine-homocysteine methyltransferase.") %>%
flextable::autofit()
#view it
study_characteristics_flextableBiomarker | Contributing Studies | N Range | Types of Evidence | Findings | Confidence |
|---|---|---|---|---|---|
Homocysteine | Dedoussis 2005; Hustad 2007; Colson 2017; Shane 2018; Rooney 2020 | 115 - 10,601 | Meta-analysis; GWAS; cohort; cross-sectional | TT > CT > CC | High |
Serum Folate | Girelli 2003; Tsang 2015; Coleson 2017; Shane 2018; Rooney 2020 | 115 - 2,232 | Meta-analysis; GWAS; cohort | TT < CT < CC | High |
RBC Folate | Crider 2011; Tsang 2015; Shane 2018; Rooney 2020 | 115 - 2,232 | Meta-analysis; GWAS; cohort; RCT | TT < CT < CC | High |
Vitamin B6/PLP | Hustad 2007; Midttun 2007; Rooney 2020; Jarrett 2022 | 115 - 10,601 | Cohort; multi-cohort observational | Null at baseline; TT vulnerability under cofacter deficiency | Moderate |
Betaine | Holm 2007; Yan 2011; Rooney 2020; Zawieja 2024 | 60 - 10,601 | Cohort; supplementation; flx study | Null concentration; BHMT flux upregulated in TT | Moderate |
Vitamin B12 | Zittan 2007; Shiran 2015; Shane 2018 | 360 - 2,232 | GWAS; case control | Null at baseline; TT vulnerability and amplified effect under deficiency | Moderate |
Methionine | Midttun 2007; Yan 2011; Rooney 2020 | 60 - 10,601 | Cohort; LC-MS/MS; flux study | Null at pool level; downstream SAM + SAM:SAH reduced | High |
MMA | Fredriksen 2007; Barbosa 2008; Molloy 2016 | 102 - 10,601 | GWAS; cohort | Null at GWAS power | High |
CRP | Dedoussis 2005; Bhatt 2025 | 489 -574 | cross-sectional | TT > CT > CC; mediated by homocysteine | Low-Moderate |
Note: The NORCCAP cohort (n=10,601 Norwegian adults) contributed to multiple analyses represented in this table: Hustad 2007, Midttun 2007, Fredriksen 2007, and Holm 2007. | |||||
Abbreviations: GWAS = genome-wide association study; RCT = randomized controlled trial; LC-MS/MS = liquid chromatography-tandem mass spectrometry; BHMT = betaine-homocysteine methyltransferase. | |||||
