Nothing
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.