Graph Challenge 9

library(googlesheets4)
library(ggplot2)
library(plotly)
url <- "https://docs.google.com/spreadsheets/d/1npon5F_Gr40HQj8KVeHq_un7SOep4dzc6kjP0px7nLo/edit?usp=sharing"
gs4_deauth()
dt <- range_speedread(url)

stress_df <- data.frame(
  Stress = dt$Q18_1,
  Typical = factor(dt$Q19,
    levels = c(1, 2, 3),
    labels = c("Typical", "Higher than Average", "Lower than Average")
  )
)

p <- ggplot(stress_df, aes(x = Typical, y = Stress, fill = Typical)) +
  geom_boxplot() +
  labs(
    title = "Student Stress Levels by Perceived Typicality",
    x = "Is This Stress Level Typical?",
    y = "Stress Level (0 = Chill, 100 = Maxed Out)"
  ) +
  theme_minimal()

interactive_p <- ggplotly(p)

interactive_p