11.3 LDL

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

LDL <- gp_clinical %>%
  filter(grepl(LDL_codes, code)) %>%
  mutate(LDL = coalesce(as.numeric(value1), as.numeric(value2), as.numeric(value3))) %>%
  filter(LDL > 0 & LDL < 30) %>%
  filter(!(value3 %in% c("MEA142", "MEA151")))

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

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