R/plot_age.R

In yz4/WilliamsFaculty: Average Age of Williams College Faculty

#' Plots the age distribution of all Williams faculty
#' 
#' This functions creates a histogram of the age distribution of all Williams faculty.
#' @family plotting functions
#' @seealso \code{\link{plot_by_dpmt}} for boxplots and histograms by department, \code{\link{plot_by_gender}}
#' for boxplots and histograms by gender, \code{\link{color_by_gender}} for colored scatter plot by gender, and
#' \code{\link{color_by_dpmt}} for colored scatter plot by department
#' @return a histogram of the age distribution of all Williams faculty
#' @examples 
#' plot_age()
#' @export
plot_age <- function() {
    data(data)
    par(mar = c(5.1, 4.1, 4.1, 2.1), xpd = FALSE)
    ## adjust to default margins
    ggplot2::qplot(age, data = data, geom = "histogram", binwidth = 2, main = "Age Distribution of Williams Faculty", 
        xlab = "age (by years)")
}