student-experience-survey.r

library(readr)
studentexperience <- read_csv("https://aaroncharlton.com/wp-content/uploads/2020/04/survey_responses.csv")
se_meta <- read_csv("https://aaroncharlton.com/wp-content/uploads/2020/04/survey_questions_meta.csv")
View(studentexperience)

# install.packages("tidyverse")
library(tidyverse)
studentexperience2 <- studentexperience %>%
  rename(years_since_starting = `Year since Matriculation`,
         year_in_school = `Year of Study`,
         program = `Primary Programme`,
         volunteer = `Q1-How many events have you Volunteered in ?`,
         participate = `Q2-How many events have you Participated in ?`,
         interest = `Q3-How many activities are you Interested in ?`,
         passion = `Q4-How many activities are you Passionate about ?`,
         stress = `Q5-What are your levels of stress ?`,
         satisfaction = `Q6-How Satisfied You are with your Student Life ?`,
         interaction = `Q7-How much effort do you make to interact with others ?`,
         awareness = `Q8-About How events are you aware about ?`,
         open = `Q9-What is an ideal student life ?`) 

model1 <- lm(stress ~ year_in_school + participate + volunteer + satisfaction, data = studentexperience2)
summary(model1)

library(ggplot2)
ggplot(data=studentexperience2, aes(y=stress, x=satisfaction)) +
  geom_smooth(method="lm")