11.4 Triglycerides

UK Biobank measurements range from 0.231 to 11.278 mmol/L. We filter the allowable range to be under 30, but not 0.

triglycerides <- gp_clinical %>%
  filter(grepl(triglyc_codes, code)) %>%
  mutate(triglyc = coalesce(as.numeric(value1), as.numeric(value2), as.numeric(value3))) %>%
  filter(triglyc > 0 & triglyc < 30) %>%
  filter(!(value3 %in% c("g", "g/l", "MEA099", "MEA156")))

triglycerides %>% group_by(code, term_description) %>% 
  summarize(n=n(), mean= mean(triglyc, na.rm=T)) %>% 
  arrange(desc(n)) %>% kable()

ggplot(data=triglycerides, aes(x=log10(triglyc))) + geom_density() + theme_minimal()