Day of Birth

Day of the week for 350 U.S. births in 1999.

Usage

DayOfBirth

Format

A data frame with 7 observations on the following 2 variables.

day

a character vector

births

a numeric vector

Source

Ventura, S.J., J.A. Martin, S.C. Curtin, F. Menacker, and B.E. Hamilton. 2001. Births: final data for 1999. National Vital Statistics Reports Vol. 49, No. 1.

References

http://cdc.gov/NCHS/products/nvsr.htm

Examples

DayOfBirth
#>         day births
#> 1    Sunday     33
#> 2    Monday     41
#> 3   Tuesday     63
#> 4 Wednesday     63
#> 5  Thursday     47
#> 6    Friday     56
#> 7  Saturday     47
barchart( day ~ births, DayOfBirth, origin=0)


# Fix bad ordering of days
DayOfBirth$oday <- with(DayOfBirth, ordered(day, levels = day))
barchart( oday ~ births, DayOfBirth, origin=0)

barchart( births ~ oday, DayOfBirth, horizontal = FALSE, origin=0)

barchart( births ~ oday, DayOfBirth, horizontal = FALSE, origin=0,
 scales = list(x=list(rot=45)))


barplot(DayOfBirth$births,
  ylim = c(0, 70),
  names.arg = DayOfBirth$day,
  las = 2,
  mgp = c(3, 0.75, 0))