Nothing
## ---- echo=FALSE, fig.width=7, fig.height=7------------------------------
library(physiology)
library(ggplot2)
hts <- seq(from = 1.5, to = 2.0, by = 0.01)
male <- rep(T, times = length(hts))
suppressWarnings({
ideal_weights <- data.frame(
"Height" = hts,
Devine = ideal_weight_Devine(height_m = hts, male = male),
Broca = ideal_weight_Broca(height_m = hts, male = male),
Robinson = ideal_weight_Robinson(height_m = hts, male = male),
Miller = ideal_weight_Miller(height_m = hts, male = male),
Lemmens = ideal_weight_Lemmens(height_m = hts)
)
})
melt <- tidyr::gather(ideal_weights, key = "variable", value = "value", -Height)
p <- ggplot(melt, aes(x = Height, y = value, group = variable)) +
geom_line(aes(colour = variable)) +
# scale_x_continuous(breaks = seq(0.5, 3, 0.5), limits = c(0.5, 3)) +
#scale_y_continuous(breaks = seq(0, 5, 1), limits = c(0, 5)) +
labs(x = "height, m", y = "ideal weight, kg") +
# ggtitle("Comparison of ideal weight formulae") +
theme_bw() +
theme(legend.position = c(0.25, 0.8),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
plot.title = element_text(size = rel(1.1), face = "bold"))
p
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.