Height Weight

You should have already run the “calibration” and “bathing” notebooks.

Load the tidyverse libraries:

library('tidyverse')

Load the height and weight dataset:

hw = read_csv('height_weight.csv')

Parsed with column specification:
cols(
  height = col_double(),
  weight = col_double()
)

hw

Calculate the BMI and add it to the table:

hw['BMI'] = hw$weight / hw$height ^ 2
hw

Sort by BMI:

sorted_hw = hw[with(hw, order(BMI)), ]
sorted_hw

Do default histogram of height:

ggplot(hw, aes(x=height)) + 
  geom_histogram()

Set the bin width:

ggplot(hw, aes(x=height)) + 
  geom_histogram(binwidth=0.1)

Set the bin edges directly:

ggplot(hw, aes(x=height)) + 
  geom_histogram(breaks=c(1.5, 1.6, 1.7, 1.8, 1.9))

A frequency table, with given bin widths:

table(cut(hw$height, breaks=c(1.5, 1.6, 1.7, 1.8, 1.9),
          include.lowest=TRUE))

[1.5,1.6] (1.6,1.7] (1.7,1.8] (1.8,1.9] 
        5         7         6         2 

View(hw)