Race and Birth Weight

Load the data

Show the first 6 data

library(MASS)
dat <- MASS::birthwt
head(dat)

##    low age lwt race smoke ptl ht ui ftv  bwt
## 85   0  19 182    2     0   0  0  1   0 2523
## 86   0  33 155    3     0   0  0  0   3 2551
## 87   0  20 105    1     1   0  0  0   1 2557
## 88   0  21 108    1     1   0  0  1   2 2594
## 89   0  18 107    1     1   0  0  1   0 2600
## 91   0  21 124    3     0   0  0  0   0 2622

Recode the race names

dat$race <- c("White", "Black", "Other")[dat$race]
head(dat)

##    low age lwt  race smoke ptl ht ui ftv  bwt
## 85   0  19 182 Black     0   0  0  1   0 2523
## 86   0  33 155 Other     0   0  0  0   3 2551
## 87   0  20 105 White     1   0  0  0   1 2557
## 88   0  21 108 White     1   0  0  1   2 2594
## 89   0  18 107 White     1   0  0  1   0 2600
## 91   0  21 124 Other     0   0  0  0   0 2622

Show the numbers of different race mothers

aggregate(bwt ~ race, length, data=dat)

##    race bwt
## 1 Black  26
## 2 Other  67
## 3 White  96

There are 26 black mothers in this data frame