```
library(ggplot2); library(dplyr); library(knitr);
library(scales); library(gridExtra); library(sjPlot)
::opts_chunk$set(echo = TRUE, warning=FALSE, message=FALSE) knitr
```

# HW 05: Describing Relationships

Exploring Associations between two variables

# Purpose

To fully explore the relationship between two variables both summary statistics and visualizations are important.

# Instructions

For this assignment you will describe the relationship between these **four** specific combinations of data types:

- Categorical response and categorical explanatory variable. (C ~ C)
- Quantitative response and categorical explanatory variable. (Q ~ C)
- Any combination of the above with a binary variable (B ~ C, C ~ B, or Q ~ B)
- Quantitative response and quantitative explanatory variable. (Q ~ Q)

## Before you start,

- Determine what variables you want to graph based on your research topic.
- You will need a mixture of categorical and quantitative variables for this assignment.
- You should use variables that are relevant to your research topic.
- If you have not yet identified both a quantitative (Q), a binary (B), and a categorical (C) variable that you are interested in, now is the time to go back to the codebook and figure this out.

- Recode variables as needed.
- If your response variable is categorical with many levels, you may want to collapse it down to fewer than 5 levels.

If you do not already have a binary (B) variable in your clean data you can either a) go back and edit your `dm`

file to include a binary varible, or b) dichotomize one of your categorical (C) varibles into two levels. (Make a new variable, don’t overwrite your categorical variable).

## For each bivariate relationship under consideration you will do the following:

Name and explain the two variables under consideration.

Create the appropriate graphic for bivariate relationship under consideration. For these plots binary variables are treated as categorical variables with only 2 levels.

- C ~ C: Side by side barplot
- Q ~ C: Paneled histogram with density overlaid, or a grouped boxplot with overlaid violin plot.
- Q ~ Q: Scatterplot. Add both lowess and linear trend lines.

Calculate appropriate grouped summary statistics

- For continuous outcomes you’ll want to describe measures including the sample size, mean, median, range and variance for each level of the categorical variable.
- For categorical outcomes you’ll want to calculate %’s of your outcome measurement across levels of your covariate.
- i.e. proportion of males who are smokers compared to proportion of females who are smokers
- or proportion of smokers who are male, compared to proportion of non-smokers who are male.

Explain the relationship or trends you see in the data in a summary paragraph. Put this paragraph below the graphic.

- Use summary statistics in your text explanation.
- Use specific features of the graphic in your text explanation.
- i.e. are there outliers only in one group?
- Do the data seem clumped or clustered in one region of the scatterplot?
- Is there a linear or non-linear pattern?
- Does one combination of categorical levels (C~C) seem to hold most the data?
- Are there any outlying data points? Don’t list off each one, just state if there is and where approximately it’s at.

# Submission instructions

- Use the template provided: [QMD]
- Right click and ‘save as’, put this in your
`scripts`

folder

- Right click and ‘save as’, put this in your
- Upload your final PDF to Canvas by the due date.

## Example

In these examples I use a combination of `ggplot2`

and `sjPlot`

for plotting, `dplyr`

for data management and to create summary statistics, `knitr`

to create nice tables, `gridExtra`

to put plots side by side. You do not need to report this information in your assignment. This is for your knowledge only. I also explain what I’m doing in code here for you to learn. you do not need to explain your own code.

### C ~ C Association

For this example I am using the `NC Births`

data set, data on 1000 births in 2004 from North Carolina. This example explores the association between the smoking status of the mother (`habit`

) and whether or not the baby was born prematurely (`premie`

).

Frequency tables to get counts, and *row* percents because I specifically want to compare the percent of premie babies within the smoking and non-smoking groups.

`%>% select(habit, premie) %>% table() %>% addmargins %>% kable() nc `

full term | premie | Sum | |
---|---|---|---|

nonsmoker | 739 | 133 | 872 |

smoker | 107 | 19 | 126 |

Sum | 846 | 152 | 998 |

`%>% select(habit, premie) %>% table() %>% prop.table(margin=1) %>% kable(digits=3) nc `

full term | premie | |
---|---|---|

nonsmoker | 0.847 | 0.153 |

smoker | 0.849 | 0.151 |

`plot_xtab(x=nc$habit, grp=nc$premie, show.total=FALSE, margin='row')`

Contrary to what I was expecting, there is equal proportion of prematurely born babies to non-smokers (133/739, 15.2%) compared to babies born to smokers (19/107, 15.1%). There is no association between the smoking status of the mother and the likelihood of the baby being born prematurely.

### Q ~ C Association

This example explores the association between the length of an iris petal and the species of iris. The quantitative response variable is petal length (`Petal.Length`

) and the categorical explanatory variable is species (`Species`

).

```
%>% group_by(Species) %>%
iris summarise(mean=mean(Petal.Length),
sd=sd(Petal.Length),
n=n()) %>%
kable(digits=2)
```

Species | mean | sd | n |
---|---|---|---|

setosa | 1.46 | 0.17 | 50 |

versicolor | 4.26 | 0.47 | 50 |

virginica | 5.55 | 0.55 | 50 |

```
ggplot(iris, aes(x=Species, y=Petal.Length, fill=Species)) +
geom_boxplot(width=.4) + geom_violin(alpha=.3) +
stat_summary(fun.y="mean", geom="point", size=3, pch=17,
position=position_dodge(width=0.75)) + theme_bw()
```

There are 50 iris plants within each species. There is clear difference in the average Petal length across the pecies. *Setosa* has the smallest average petal length of 1.46 cm and the smallest variation with a standard deviation of 0.17cm. *Veriscolor* has an average petal length of 4.26cm with SD of 0.47cm, and *Virginica* has the largest average petal length of 5.55cm and the largest variation with a standard deviation of 0.55cm.

### Q ~ Q Association

This example explores the association between length of an iris petal and the length of the sepal. The quantitative response variable is petal length (`Petal.Length`

) and the quantitative explanatory variable is sepal length (`Sepal.Length`

).

`cor(iris$Petal.Length, iris$Sepal.Length) # calculate the correlation`

`[1] 0.8717538`

```
ggplot(iris, aes(x=Sepal.Length, y=Petal.Length)) + geom_point() +
geom_smooth(se=FALSE, col="brown") + geom_smooth(se=FALSE, method="lm")
```

There is a positive association between sepal and petal length of an iris. The correlation coefficient is 0.87, but the form of the data may not be linear. There is a cluster of values below 2cm petal length which are separated away from the rest of the data. It is hard to assess the linearity of this relationship due to the separate clusters.