# use this code chunk to call in all packages the document will need
library(tidyverse)
library(ssstats)R Lab: Scatterplots and Correlation
Tiny Tina, the explosive-loving Bunker Master, is hosting her first-ever Wonderlands Bake-Off. Contestants from across the realm, including goblins, skeletons, and glitter-loving orcs, are competing to craft the most delicious, magical baked treats.
Each contestant submits one dessert for judging. The judging panel includes:
- Tiny Tina, who values flair and sugar explosions,
- Butt Stallion, who insists on elegance and frosting symmetry, and
- Paladin Mike, who wants practical rations that still taste divine.
You, as the official Fateweaver Statistician, are tasked with determining what factors predict the panel’s overall satisfaction rating.
Each contestant records the following:
- glitter_level: How much edible glitter was used (grams)
- boom_factor: A subjective rating (1–10) of how explosive the dessert was
- frosting_thickness: Thickness of frosting layer (mm)
- overall_satisfaction: Combined score from all three judges (0–100 scale)
1. Let’s first summarize the data. Please use the appropriate mean_median() function to summarize the continuous variables in the dataset.
2a. Create a scatterplot with overall satisfaction (overall_satisfaction) on the y-axis and glitter level (glitter_level) on the x-axis.
2b. Create a scatterplot with overall satisfaction (overall_satisfaction) on the y-axis and boom factor (boom_factor) on the x-axis.
2c. Create a scatterplot with overall satisfaction (overall_satisfaction) on the y-axis and frosting thickness (frosting_thickness) on the x-axis.
3a. Find the pairwise Pearson’s correlation values.
3b. Find the pairwise Spearman’s correlation values.
3c. Which correlation should we report? Check the appropriate assumptions, then decide.
3d. Using the results from the method chosen in Q3c, which variables are significantly correlated with overall satisfaction (overall_satisfaction)? Test at the \alpha=0.05 level. You do not need to typeset your individual results, but please back up your statements statistically (using results generated).
3e. Are any results surprising given the graphs found in Q2 and the correlations reported in Q3d?
Replace with your answer.