TOP & BUPGEN | UK Biobank | |
---|---|---|
Age | Younger (some range) | Older (another range) |
Another feature | 0.42 (p = 0.01) | 0.39 (p = 0.65) |
Variable ABC | 42% | 52% |
Fancy, two rows | TOP: 345 | 1650 |
BUPGEN: 87 | 4612 | |
Availability | on TSD | |
Last variable | Bliep | Bloep |
Source: someone in a bar told me |
"The data may not contain the answer. The combination of some data and an aching desire for an answer does not ensure that a reasonable answer can be extracted from a given body of data"
John W. Tukey (1986)
"The data may not contain the answer. The combination of some data and an aching desire for an answer does not ensure that a reasonable answer can be extracted from a given body of data"
John W. Tukey (1986)
"The data may not contain the answer. The combination of some data and an aching desire for an answer does not ensure that a reasonable answer can be extracted from a given body of data"
John W. Tukey (1986)
These blockquote-style slides are available in all other NORMENT colors too.
Like in the section divider slides
Yellow isn't very pretty though...
data <- read_csv("data.csv")
data %>%
mutate(outcome_label = case_when(outcome == 1 ~ "Diabetes",
outcome == 0 ~ "Healthy")) %>%
ggplot(aes(x = glucose, fill = outcome_label)) +
geom_density(alpha = 0.75, color = "transparent", key_glyph = "point") +
labs(title = str_glue("Glucose distribution for **healthy individuals** and **patients with diabetes**"),
x = "Number of pregnancies",
y = "Density",
fill = NULL) +
scale_fill_norment(discrete = TRUE, palette = "logo",
guide = guide_legend(override.aes = list(size = 6, shape = 21))) +
theme(plot.title.position = "plot",
plot.title = element_textbox_simple(face = "plain"),
legend.text = element_markdown(size = 9),
legend.position = c(0.9,0.9),
plot.margin = margin(20,10,10,10, unit = "pt"))