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’, then upload this file into your
scripts
folder in Posit Cloud.
- Right click and ‘save as’, then upload this file into your
- Upload your 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
).
<- openintro::ncbirths nc
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.