# 0.2 - Basic summary statistics, histograms and boxplots using R

by

With R-studio running, the mosaic package loaded, a place to write and save code, and the treadmill data set loaded, we can (finally!) start to summarize the results of the study. The treadmill object is what R calls a * data.frame* and contains columns corresponding to each variable in the spreadsheet. Every function in R will involve specifying the variable(s) of interest and how you want to use them. To access a particular variable (column) in a data.frame, you can use a $ between the data.frame name and the name of the variable of interest, as dataframename$variablename. To identify the RunTime variable here it would be treadmill$RunTime and in the command would look like:

>treadmill$RunTime

[1] | 8.63 | 8.17 | 8.92 | 8.65 | 10.33 | 9.93 | 10.13 | 10.08 | 9.22 | 8.95 | 10.85 | 9.40 | 11.50 |

[14] | 10.50 | 10.60 | 10.25 | 10.00 | 11.17 | 10.47 | 11.95 | 9.63 | 10.07 | 11.08 | 11.63 | 11.12 | 11.37 |

[27] | 10.95 | 13..08 | 12.63 | 12.88 | 14.03 |

Just as in the previous section, we can generate summary statistics using functions like mean and sd:

> mean(treadmill$RunTime)

[1] 10.58613

> sd(treadmill$RunTime)

[1] 1.387414

And now we know that the average running time for 1.5 miles for the subjects in the study was 10.6 minutes with a standard deviation (SD) of 1.39 minutes. But you should remember that the mean and SD are only appropriate summaries if the distribution is roughly * symmetric*. The mosaic package provides a useful function called favstats that provides the mean and SD as well as the

*: the minimum (min), the first quartile (Q1, the 25*

**5 number summary**^{th}percentile), the median (50

^{th}percentile), the third quartile (Q3, the 75

^{th}percentile), and the maximum (max). It also provides the number of observation (n) which was 31, as noted above, and a count of whether any missing values were encountered (missing), which was 0 here.

> favstats(treadmill$RunTime)

min | Q1 | median | Q3 | max | mean | sd | n | missing |

8.17 | 9.78 | 10.47 | 11.27 | 14.03 | 10.58613 | 1.387414 | 31 | 0 |

We are starting to get somewhere with understanding that the runners were somewhat fit with worst runner covering 1.5 miles in 14 minutes (a 9.3 minute mile) and the best running a 5.4 minute mile. The limited variation in the results suggests that the sample was obtained from a restricted group with somewhat common characteristics. When you explore the ages and weights of the subjects in the Practice Problems in Section 0.5, you will get even more information about how similar all the subjects in this study were. A graphical display of these results will help us assess the shape of the distribution of run times - including considering the potential for the presence of a * skew* and

*. A*

**outliers***is a good place to start. Histograms display connected bars with counts of observations defining the height of bars based on a set of bins of values of the quantitative variable. We will apply the hist function to the RunTime variable, which produces Figure 0-5.*

**histogram**> hist(treadmill$RunTime)

I used the **Export** button found above the plot, followed by **Copy to Clipboard** and clicking on the **Copy Plot** button to make it available to paste the figure into your favorite word-processing program. You can see the first parts of this process in the screen grab in Figure 0-6.

You can also directly save the figures as separate files using **Save as image** or **Save as PDF** and then insert them into other documents.

The function defaults into providing a histogram on the * frequency* or count scale. In most R functions, there are the default options that will occur if we don't make any specific choices and options that we can modify. One option we can modify here is to add labels to the bars to be able to see exactly how many observations fell into each bar. Specifically, we can turn the labels option "on" with adding labels=T to the previous call to the hist function, separated by a comma:

Based on this histogram, it does not appear that there any outliers in the responses since there are no bars that are separated from the other observations. However, the distribution does not look symmetric and there might be a skew to the distribution. Specifically, it appears to be * skewed right* (the right tail is longer than the left). But histograms can sometimes mask features of the data set by binning observations and it is hard to find the percentiles accurately from the plot.

When assessing outliers and skew, the * boxplot* (or

*Box and Whiskers*plot) can also be helpful (Figure 0-8) to describe the shape of the distribution as it displays the 5-number summary and will also indicate observations that are "far" above the middle of the observations. R's boxplot function uses the standard rule to indicate an observation as a

*if it falls more than 1.5 times the*

**potential outlier***(Inter-Quartile Range, calculated as Q3-Q1) below Q1 or above Q3. The potential outliers are plotted with circles and the*

**IQR***Whiskers*(lines that extend from Q1 and Q3 typically to the minimum and maximum) are shortened to only go as far as observations that are within 1.5*IQR of the upper and lower quartiles. The box part of the boxplot is a box that goes from Q1 to Q3 and the median is displayed as a line somewhere inside the box

^{6}. Looking back at the summary statistics above, Q1=9.78 and Q3=11.27, providing an IQR of:

> IQR<-11.27-9.78

> IQR[1] 1.49

One observation (the maximum value of 14.03) is indicated as a potential outlier based on this result by being larger than Q3+1.5*IQR, which was 13.505:

> 11.27+1.5*IQR

[1] 13.505

The boxplot also shows a slight indication of a right skew (skew towards larger values) with the distance from the minimum to the median being smaller than the distance from the median to the maximum. Additionally, the distance from Q1 to the median is smaller than the distance from the median to Q3. It is modest skew, but is worth noting.

boxplot(treadmill$RunTime)

While the default boxplot is fine, it fails to provide good graphical labels, especially on the y-axis. Additionally, there is no title on the plot. The following code provides some enhancements to the plot by using the ylab and main options in the call to boxplot, with the results displayed in Figure 0-9.

boxplot(treadmill$RunTime,ylab="1.5 Mile Run Time (minutes)",main="Boxplot of the Run Times of n=31 participants")

Throughout the book, we will often use extra options to make figures that are easier for you to understand. There are often simpler versions of the functions that will suffice but the extra work to get better labeled figures is often worth it. I guess the point is that "a picture is worth a thousand words" if the reader can understand what is being displayed and if the information is worth displaying.

^{6}The median, quartiles and whiskers sometimes occur at the same values when there are many tied observations. If you can't see all the components of the boxplot, produce the numerical summary to help you understand what happened.