# How to Conduct a One-Way ANOVA in R

one-way ANOVA is used to determine whether or not there is a statistically significant difference between the means of three or more independent groups.

This type of test is called a one-way ANOVA because we are analyzing how one predictor variable impacts a response variable.

Note: If we were instead interested in how two predictor variables impact a response variable, we could conduct a two-way ANOVA.

## How to Conduct a One-Way ANOVA in R

The following example illustrates how to conduct a one-way ANOVA in R.

### Background

Suppose we want to determine if three different exercise programs impact weight loss differently. The predictor variable we’re studying is exercise program and the response variable is weight loss, measured in pounds.

We can conduct a one-way ANOVA to determine if there is a statistically significant difference between the resulting weight loss from the three programs.

We recruit 90 people to participate in an experiment in which we randomly assign 30 people to follow either program A, program B, or program C for one month.

The following code creates the data frame we’ll be working with:

```#make this example reproducible
set.seed(0)

#create data frame
data <- data.frame(program = rep(c("A", "B", "C"), each = 30),
weight_loss = c(runif(30, 0, 3),
runif(30, 0, 5),
runif(30, 1, 7)))

#view first six rows of data frame

#  program weight_loss
#1       A   2.6900916
#2       A   0.7965260
#3       A   1.1163717
#4       A   1.7185601
#5       A   2.7246234
#6       A   0.6050458
```

The first column in the data frame shows the program that the person participated in for one month and the second column shows the total weight loss that person experienced by the end of the program, measured in pounds.

### Exploring the Data

Before we even fit the one-way ANOVA model, we can gain a better understanding of the data by finding the mean and standard deviation of weight loss for each of the three programs using the dplyr package:

```#load dplyr package
library(dplyr)

#find mean and standard deviation of weight loss for each treatment group
data %>%
group_by(program) %>%
summarise(mean = mean(weight_loss),
sd = sd(weight_loss))

#  A tibble: 3 x 3
#  program  mean    sd
#
#1 A        1.58 0.905
#2 B        2.56 1.24
#3 C        4.13 1.57
```

We can also create a boxplot for each of the three programs to visualize the distribution of weight loss for each program:

```#create boxplots
boxplot(weight_loss ~ program,
data = data,
main = "Weight Loss Distribution by Program",
xlab = "Program",
ylab = "Weight Loss",
col = "steelblue",
border = "black")``` Just from these boxplots we can see that the the mean weight loss is highest for the participants in Program C and the mean weight loss is lowest for the participants in Program A.

We can also see that the standard deviation (the “length” of the boxplot) for weight loss is quite a bit higher in Program C compared to the other two programs.

Next, we’ll fit the one-way ANOVA model to our data to see if these visual differences are actually statistically significant.

### Fitting the One-Way ANOVA Model

The general syntax to fit a one-way ANOVA model in R is as follows:

aov(response variable ~ predictor_variable, data = dataset)

In our example, we can use the following code to fit the one-way ANOVA model, using weight_loss as the response variable and program as our predictor variable. We can then use the summary() function to view the output of our model:

```#fit the one-way ANOVA model
model <- aov(weight_loss ~ program, data = data)

#view the model output
summary(model)

#            Df Sum Sq Mean Sq F value   Pr(>F)
#program      2  98.93   49.46   30.83 7.55e-11 ***
#Residuals   87 139.57    1.60
#---
#Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
```

From the model output we can see that the predictor variable program is statistically significant at the .05 significance level.

In other words, there is a statistically significant difference between the mean weight loss that results from the three programs.

### Checking the Model Assumptions

Before we go any further, we should check to see that the assumptions of our model are met so that the our results from the model are reliable. In particular, a one-way ANOVA assumes:

1. Independence – the observations in each group need to be independent of each other. Since we used a randomized design (i.e. we assigned participants to the exercise programs randomly), this assumption should be met so we don’t need to worry too much about this.

2. Normality – the dependent variable should be approximately normally distributed for each level of the predictor variable.

3. Equal Variance – the variances for each group are equal or approximately equal.

One way to check the assumptions of normality and equal variance is to use the function plot(), which produces four model-checking plots. In particular, we are most interested in the following two plots:

• Residuals vs Fitted – this plot shows the relationship between the residuals and the fitted values. We can use this plot to roughly gauge whether or not the variance between the groups is approximately equal.
• Q-Q Plot – this plot displays the standardized residuals against the theoretical quantiles. We can use this plot to roughly gauge whether or not the normality assumption is met.

The following code can be used to produce these model-checking plots:

`plot(model)` The Q-Q plot above allows us to check the normality assumption. Ideally the standardized residuals would fall along the straight diagonal line in the plot. However, in the plot above we can see that the residuals stray from the line quite a bit towards the beginning and the end. This is an indication that our normality assumption may be violated. The Residuals vs Fitted plot above allows us to check our equal variances assumption. Ideally we’d like to see the residuals be equally spread out for each level of the fitted values.

We can see that the residuals are much more spread out for the higher fitted values, which is an indication that our equal variances assumption may be violated.

To formally test for equal variances, we could Levene’s Test using the car package:

```#load car package
library(car)

#conduct Levene's Test for equality of variances
leveneTest(weight_loss ~ program, data = data)

#Levene's Test for Homogeneity of Variance (center = median)
#      Df F value  Pr(>F)
#group  2  4.1716 0.01862 *
#      87
#---
#Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
```

The p-value of the test is 0.01862. If we use a 0.05 significance level, we would reject the null hypothesis that the variances are equal across the three programs. However, if we use a 0.01 significance level, we would not reject the null hypothesis.

Although we could attempt to transform the data to make sure that our assumptions of normality and equality of variances are met, at the time being we won’t worry too much about this.

### Analyzing Treatment Differences

Once we have verified that the model assumptions are met (or reasonably met), we can then conduct a post hoc test to determine exactly which treatment groups differ from one another.

For our post hoc test, we will use the function TukeyHSD() to conduct Tukey’s Test for multiple comparisons:

```#perform Tukey's Test for multiple comparisons
TukeyHSD(model, conf.level=.95)

#  Tukey multiple comparisons of means
#    95% family-wise confidence level
#
#Fit: aov(formula = weight_loss ~ program, data = data)
#
#\$program
#         diff       lwr      upr     p adj
#B-A 0.9777414 0.1979466 1.757536 0.0100545
#C-A 2.5454024 1.7656076 3.325197 0.0000000
#C-B 1.5676610 0.7878662 2.347456 0.0000199
```

The p-value indicates whether or not there is a statistically significant difference between each program. We can see from the output that there is a statistically significant difference between the mean weight loss of each program at the 0.05 significance level.

We can also visualize the 95% confidence intervals that result from the Tukey Test by using the plot(TukeyHSD()) function in R:

```#create confidence interval for each comparison
plot(TukeyHSD(model, conf.level=.95), las = 2)
``` The results of the confidence intervals are consistent with the results of the hypothesis tests.

In particular, we can see that none of the confidence intervals for the mean weight loss between programs contain the value zero, which indicates that there is a statistically significant difference in mean loss between all three programs.

This is consistent with the fact that all of the p-values from our hypothesis tests are below 0.05.

### Reporting the Results of the One-Way ANOVA

Lastly, we can report the results of the one-way ANOVA in such a way that summarizes the findings:

A one-way ANOVA was conducted to examine the effects of exercise program on weight loss (measured in pounds). There was a statistically significant difference between the effects of the three programs on weight loss (F(2, 87) = 30.83, p = 7.55e-11). Tukey’s HSD post hoc tests were carried out.

The mean weight loss for participants in program C is significantly higher than the mean weight loss for participants in program B (p < 0.0001).

The mean weight loss for participants in program C is significantly higher than the mean weight loss for participants in program A (p < 0.0001).

In addition, the mean weight loss for participants in program B is significantly higher than the mean weight loss for participants in program A (p  = 0.01).