# histPlot: Histogram or hollow histogram In openintro: Data Sets and Supplemental Functions from 'OpenIntro' Textbooks and Labs

## Description

Create histograms and hollow histograms. This function permits easy color and appearance customization.

## Usage

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19``` ```histPlot( x, col = fadeColor("black", "22"), border = "black", breaks = "default", probability = FALSE, hollow = FALSE, add = FALSE, lty = 2, lwd = 1, freqTable = FALSE, right = TRUE, axes = TRUE, xlab = NULL, ylab = NULL, xlim = NULL, ylim = NULL, ... ) ```

## Arguments

 `x` Numerical vector or a frequency table (matrix) where the first column represents the observed values and the second column the frequencies. See also `freqTable` argument. `col` Shading of the histogram bins. `border` Color of histogram bin borders. `breaks` A vector for the bin boundaries or an approximate number of bins. `probability` If `FALSE`, the frequency is plotted. If `TRUE`, then a probability density. `hollow` If `TRUE`, a hollow histogram will be created. `add` If `TRUE`, the histogram is added to the plot. `lty` Line type. Applies only if `hollow=TRUE`. `lwd` Line width. Applies only if `hollow=TRUE`. `freqTable` Set to `TRUE` if `x` is a frequency table. `right` Set to `FALSE` to assign values of `x` that fall on a bin margin to the left bin. Otherwise the ties default to the right bin. `axes` If `FALSE`, the axes are not plotted. `xlab` Label for the x axis. `ylab` Label for the y axis. `xlim` Limits for the x axis. `ylim` Limits for the y axis. `...` Additional arguments to `plot`. If `add` is `TRUE`, these arguments are ignored.

## Author(s)

David Diez

`boxPlot`, `dotPlot`, `densityPlot`
 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33``` ```histPlot(tips\$tip, main = "Tips") # overlaid hollow histograms histPlot(tips\$tip[tips\$day == "Tuesday"], probability = TRUE, hollow = TRUE, main = "Tips by day") histPlot(tips\$tip[tips\$day == "Friday"], probability = TRUE, hollow = TRUE, add = TRUE, lty = 3, border = "red") legend("topright", col = c("black", "red"), lty = 1:2, legend = c("Tuesday", "Friday")) # breaks and colors histPlot(tips\$tip, col = fadeColor("yellow", "33"), border = "darkblue", probability = TRUE, breaks = 30, lwd = 3) # custom breaks brks <- c(-1, 0, 1, 2, 3, 4, seq(5, 20, 5), 22, 24, 26) histPlot(tips\$tip, probability = TRUE, breaks = brks, col = fadeColor("darkgoldenrod4", "33"), xlim = c(0, 26)) ```