11.8 Urine creatinine

UK Biobank measurements range from 88 to 88,160 micromoles/L. We filter the allowable range to be below 88,000, but not 0.

ucreat <- gp_clinical %>%
  filter(grepl(urine_creatinine_codes, code, ignore.case=T)) %>%
  mutate(value = coalesce(as.numeric(value1), as.numeric(value2), as.numeric(value3))) %>%
  filter(!is.na(value)  & value != 0) %>% 
  mutate(ucreat_umol_L = value * 1000) %>%
  filter(value3 != "MEA099" & value3 != "umol/l") %>%
  filter(ucreat_umol_L < 88000) %>%
  select(-value, -value1, -value2, -value3) %>%
  dplyr::rename(code_ucreat = code, term_description_ucreat = term_description) %>%
  distinct()

ucreat %>% group_by(code_ucreat, term_description_ucreat) %>%
  summarize(n=n(), mean = mean(ucreat_umol_L)) %>% kable()

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