# NOT RUN {
stem(Framingh$cholest)
boxplot(Framingh$cholest, horizontal = TRUE)
hist(Framingh$cholest, freq = FALSE)
lines(density(Framingh$cholest))
mean(Framingh$cholest > 200 & Framingh$cholest < 240)
# }
# NOT RUN {
library(ggplot2)
ggplot2::ggplot(data = Framingh, aes(x = factor(1), y = cholest)) +
geom_boxplot() + # boxplot
labs(x = "") + # no x label
theme_bw() + # black and white theme
geom_jitter(width = 0.2) + # jitter points
coord_flip() # Create horizontal plot
ggplot2::ggplot(data = Framingh, aes(x = cholest, y = ..density..)) +
geom_histogram(fill = "pink", binwidth = 15, color = "black") +
geom_density() +
theme_bw()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab