# Applying working directory path
path <- "/Users/emurbanw/OneDrive-MichiganMedicine/OneDriveDocuments/EFDC/Consulting/Sagar_Parikh/data/"
# Opening each df (note: I renamed these slightly after dowloading them from qualtrics so they'd be recognized by R)
pre_A_raw <- read.csv(paste0(path,"pre-training/Engineering_Pre-Training-Evaluation_11.30.23_10.14.csv"), header = TRUE)
pre_B_raw <- read.csv(paste0(path,"pre-training/Kinesiology_Pre-Training-Evaluation_11.30.23_10.13.csv"), header = TRUE)
pre_C_raw <- read.csv(paste0(path,"pre-training/Voices_Pre-Training-Evaluation_11.30.23_10.08.csv"), header = TRUE)
post_A_raw <- read.csv(paste0(path,"post-training/Engineering_Post-Training-Evaluation_11.30.23_10.16.csv"), header = TRUE)
post_B_raw <- read.csv(paste0(path,"post-training/Kinesiology_Post-Training-Evaluation_11.30.23_10.15.csv"), header = TRUE)
post_C_raw <- read.csv(paste0(path,"post-training/Voices_Post-Training-Evaluation_11.30.23_10.14.csv"), header = TRUE)
# Making a copy of each df to work with
pre_A <- pre_A_raw
pre_B <- pre_B_raw
pre_C <- pre_C_raw
post_A <- post_A_raw
post_B <- post_B_raw
post_C <- post_C_raw# Adding a group variable
pre_A$group <- "Engineering"
pre_B$group <- "Kinesiology"
pre_C$group <- "Voices"
# Adding a time variable
pre_A$time <- 0
pre_B$time <- 0
pre_C$time <- 0
# Deleting rows that were internal qualtrics labels
pre_A <- pre_A[-2, ]
pre_B <- pre_B[-2, ]
pre_C <- pre_C[-2, ]
# Deleting rows that were survey previews
pre_A <- subset(pre_A, Status != "Survey Preview")
pre_B <- subset(pre_B, Status != "Survey Preview")
pre_C <- subset(pre_C, Status != "Survey Preview")# Making new variables with intuitive names
pre_A$duration <- pre_A$Duration..in.seconds.
pre_A$fam_mh_conds <- pre_A$Q3
pre_A$conf_id_distress <- pre_A$Q4
pre_A$comf_resp_mh_issues <- pre_A$Q5
pre_A$comf_talk_mh_students <- pre_A$Q6
pre_A$comf_talk_mh_coworkers <- pre_A$Q7
pre_A$conf_student_mh_resource <- pre_A$Q8
pre_A$conf_coworker_mh_resource <- pre_A$Q9
pre_B$duration <- pre_B$Duration..in.seconds.
pre_B$fam_mh_conds <- pre_B$Q3
pre_B$conf_id_distress <- pre_B$Q5 # this Q4 in pre_A
pre_B$comf_resp_mh_issues <- pre_B$Q4 # this is Q5 in pre_A
pre_B$comf_talk_mh_students <- pre_B$Q6
pre_B$comf_talk_mh_coworkers <- pre_B$Q7
pre_B$conf_student_mh_resource <- pre_B$Q8
pre_B$conf_coworker_mh_resource <- pre_B$Q9
pre_C$duration <- pre_C$Duration..in.seconds.
pre_C$fam_mh_conds <- pre_C$Q3
pre_C$conf_id_distress <- pre_C$Q4
pre_C$comf_resp_mh_issues <- pre_C$Q5
pre_C$comf_talk_mh_students <- pre_C$Q6
pre_C$comf_talk_mh_coworkers <- pre_C$Q7
pre_C$conf_student_mh_resource <- pre_C$Q8
pre_C$conf_coworker_mh_resource <- pre_C$Q9pre_A$FASCCO <- pre_A$Q10_1
pre_A$Mhealthy <- pre_A$Q10_3
pre_A$CAPS <- pre_A$Q10_4
pre_A$PES <- pre_A$Q10_5
pre_A$Dep_toolkit <- pre_A$Q10_6
pre_A$CARE <- pre_A$Q10_2
pre_A$Wolv_Wellness <- NA
pre_A$CAPS_Counselor <- NA
pre_A$Togetherall <- NA
pre_A$CampusMindWorks <- NA
pre_A$BetterYou <- NA
pre_A$MMOCWR <- NA
pre_B$FASCCO <- pre_B$Q10_1
pre_B$Mhealthy <- pre_B$Q10_2
pre_B$CAPS <- pre_B$Q10_4
pre_B$PES <- pre_B$Q10_9
pre_B$Dep_toolkit <- pre_B$Q10_10
pre_B$CARE <- NA
pre_B$Wolv_Wellness <- pre_B$Q10_3
pre_B$CAPS_Counselor <- pre_B$Q10_5
pre_B$Togetherall <- pre_B$Q10_6
pre_B$CampusMindWorks <- pre_B$Q10_7
pre_B$BetterYou <- pre_B$Q10_8
pre_B$MMOCWR <- NA
pre_C$FASCCO <- pre_C$Q10_1
pre_C$Mhealthy <- pre_C$Q10_3
pre_C$CAPS <- pre_C$Q10_4
pre_C$PES <- pre_C$Q10_5
pre_C$Dep_toolkit <- pre_C$Q10_6
pre_C$CARE <- NA
pre_C$Wolv_Wellness <- NA
pre_C$CAPS_Counselor <- NA
pre_C$Togetherall <- NA
pre_C$CampusMindWorks <- NA
pre_C$BetterYou <- NA
pre_C$MMOCWR <- pre_C$Q10_2# Now deleting the row that had the question wording
pre_A <- pre_A[-1, ]
pre_B <- pre_B[-1, ]
pre_C <- pre_C[-1, ]
# Now restricting to just the variables we're interested in
pre_A <- pre_A[ ,c("ResponseId", "StartDate", "group", "time", "duration", "fam_mh_conds", "conf_id_distress", "comf_resp_mh_issues", "comf_talk_mh_students", "comf_talk_mh_coworkers", "conf_student_mh_resource", "conf_coworker_mh_resource", "FASCCO", "Mhealthy", "CAPS", "PES", "Dep_toolkit", "CARE", "Wolv_Wellness", "CAPS_Counselor", "Togetherall", "CampusMindWorks", "BetterYou", "MMOCWR")]
pre_B <- pre_B[ ,c("ResponseId", "StartDate", "group", "time", "duration", "fam_mh_conds", "conf_id_distress", "comf_resp_mh_issues", "comf_talk_mh_students", "comf_talk_mh_coworkers", "conf_student_mh_resource", "conf_coworker_mh_resource", "FASCCO", "Mhealthy", "CAPS", "PES", "Dep_toolkit", "CARE", "Wolv_Wellness", "CAPS_Counselor", "Togetherall", "CampusMindWorks", "BetterYou", "MMOCWR")]
pre_C <- pre_C[ ,c("ResponseId", "StartDate", "group", "time", "duration", "fam_mh_conds", "conf_id_distress", "comf_resp_mh_issues", "comf_talk_mh_students", "comf_talk_mh_coworkers", "conf_student_mh_resource", "conf_coworker_mh_resource", "FASCCO", "Mhealthy", "CAPS", "PES", "Dep_toolkit", "CARE", "Wolv_Wellness", "CAPS_Counselor", "Togetherall", "CampusMindWorks", "BetterYou", "MMOCWR")]
# Now appending the data
pre <- rbind(pre_A, pre_B, pre_C)pre$fam_mh_conds[pre$fam_mh_conds=="Not at all"] <- 0
pre$fam_mh_conds[pre$fam_mh_conds=="Somewhat"] <- 1
pre$fam_mh_conds[pre$fam_mh_conds=="Very"] <- 2
pre$fam_mh_conds[pre$fam_mh_conds==""] <- NA
pre$conf_id_distress[pre$conf_id_distress=="Not at all"] <- 0
pre$conf_id_distress[pre$conf_id_distress=="Somewhat"] <- 1
pre$conf_id_distress[pre$conf_id_distress=="Very"] <- 2
pre$conf_id_distress[pre$conf_id_distress==""] <- NA
pre$comf_resp_mh_issues[pre$comf_resp_mh_issues=="Not at all"] <- 0
pre$comf_resp_mh_issues[pre$comf_resp_mh_issues=="Somewhat"] <- 1
pre$comf_resp_mh_issues[pre$comf_resp_mh_issues=="Very"] <- 2
pre$comf_resp_mh_issues[pre$comf_resp_mh_issues=="Very little"] <- 0 # Kinesiology and Voices group had different labels
pre$comf_resp_mh_issues[pre$comf_resp_mh_issues=="Some"] <- 1 # Kinesiology and Voices group had different labels
pre$comf_resp_mh_issues[pre$comf_resp_mh_issues=="Quite a lot"] <- 2 # Kinesiology and Voices group had different labels
pre$comf_resp_mh_issues[pre$comf_resp_mh_issues==""] <- NA
pre$comf_talk_mh_students[pre$comf_talk_mh_students=="Not at all"] <- 0
pre$comf_talk_mh_students[pre$comf_talk_mh_students=="Somewhat"] <- 1
pre$comf_talk_mh_students[pre$comf_talk_mh_students=="Very"] <- 2
pre$comf_talk_mh_students[pre$comf_talk_mh_students==""] <- NA
pre$comf_talk_mh_students[pre$comf_talk_mh_students=="Not applicable, I don't work with students"] <- NA
pre$comf_talk_mh_coworkers[pre$comf_talk_mh_coworkers=="Not at all"] <- 0
pre$comf_talk_mh_coworkers[pre$comf_talk_mh_coworkers=="Somewhat"] <- 1
pre$comf_talk_mh_coworkers[pre$comf_talk_mh_coworkers=="Very"] <- 2
pre$comf_talk_mh_coworkers[pre$comf_talk_mh_coworkers==""] <- NA
pre$conf_student_mh_resource[pre$conf_student_mh_resource=="Not at all"] <- 0
pre$conf_student_mh_resource[pre$conf_student_mh_resource=="Somewhat"] <- 1
pre$conf_student_mh_resource[pre$conf_student_mh_resource=="Very"] <- 2
pre$conf_student_mh_resource[pre$conf_student_mh_resource==""] <- NA
pre$conf_coworker_mh_resource[pre$conf_coworker_mh_resource=="Not at all"] <- 0
pre$conf_coworker_mh_resource[pre$conf_coworker_mh_resource=="Somewhat"] <- 1
pre$conf_coworker_mh_resource[pre$conf_coworker_mh_resource=="Very"] <- 2
pre$conf_coworker_mh_resource[pre$conf_coworker_mh_resource==""] <- NA# # FASCCO
# pre$FASCCO[pre$FASCCO=="Not familiar"] <- 0
# pre$FASCCO[pre$FASCCO=="Heard about it"] <- 0
# pre$FASCCO[pre$FASCCO=="Used it/encouraged someone to use it"] <- 0
pre$FASCCO[pre$FASCCO==""] <- NA
#
# # Mhealthy
# pre$Mhealthy[pre$Mhealthy=="Not familiar"] <- 0
# pre$Mhealthy[pre$Mhealthy=="Heard about it"] <- 0
# pre$Mhealthy[pre$Mhealthy=="Used it/encouraged someone to use it"] <- 0
pre$Mhealthy[pre$Mhealthy==""] <- NA
#
# # CAPS
# pre$CAPS[pre$CAPS=="Not familiar"] <- 0
# pre$CAPS[pre$CAPS=="Heard about it"] <- 0
# pre$CAPS[pre$CAPS=="Used it/encouraged someone to use it"] <- 0
pre$CAPS[pre$CAPS==""] <- NA
#
# # PES
# pre$PES[pre$PES=="Not familiar"] <- 0
# pre$PES[pre$PES=="Heard about it"] <- 0
# pre$PES[pre$PES=="Used it/encouraged someone to use it"] <- 0
pre$PES[pre$PES==""] <- NA
#
# # Dep_toolkit
# pre$Dep_toolkit[pre$Dep_toolkit=="Not familiar"] <- 0
# pre$Dep_toolkit[pre$Dep_toolkit=="Heard about it"] <- 0
# pre$Dep_toolkit[pre$Dep_toolkit=="Used it/encouraged someone to use it"] <- 0
pre$Dep_toolkit[pre$Dep_toolkit==""] <- NA
#
# # CARE
# pre$CARE[pre$CARE=="Not familiar"] <- 0
# pre$CARE[pre$CARE=="Heard about it"] <- 0
# pre$CARE[pre$CARE=="Used it/encouraged someone to use it"] <- 0
pre$CARE[pre$CARE==""] <- NA
#
# # Wolv_Wellness
# pre$Wolv_Wellness[pre$Wolv_Wellness=="Not familiar"] <- 0
# pre$Wolv_Wellness[pre$Wolv_Wellness=="Heard about it"] <- 0
# pre$Wolv_Wellness[pre$Wolv_Wellness=="Used it/encouraged someone to use it"] <- 0
pre$Wolv_Wellness[pre$Wolv_Wellness==""] <- NA
#
# # CAPS_Counselor
# pre$CAPS_Counselor[pre$CAPS_Counselor=="Not familiar"] <- 0
# pre$CAPS_Counselor[pre$CAPS_Counselor=="Heard about it"] <- 0
# pre$CAPS_Counselor[pre$CAPS_Counselor=="Used it/encouraged someone to use it"] <- 0
pre$CAPS_Counselor[pre$CAPS_Counselor==""] <- NA
#
# # Togetherall
# pre$Togetherall[pre$Togetherall=="Not familiar"] <- 0
# pre$Togetherall[pre$Togetherall=="Heard about it"] <- 0
# pre$Togetherall[pre$Togetherall=="Used it/encouraged someone to use it"] <- 0
pre$Togetherall[pre$Togetherall==""] <- NA
#
# # CampusMindWorks
# pre$CampusMindWorks[pre$CampusMindWorks=="Not familiar"] <- 0
# pre$CampusMindWorks[pre$CampusMindWorks=="Heard about it"] <- 0
# pre$CampusMindWorks[pre$CampusMindWorks=="Used it/encouraged someone to use it"] <- 0
pre$CampusMindWorks[pre$CampusMindWorks==""] <- NA
#
# # BetterYou
# pre$BetterYou[pre$BetterYou=="Not familiar"] <- 0
# pre$BetterYou[pre$BetterYou=="Heard about it"] <- 0
# pre$BetterYou[pre$BetterYou=="Used it/encouraged someone to use it"] <- 0
pre$BetterYou[pre$BetterYou==""] <- NA
#
# # MMOCWR
# pre$MMOCWR[pre$MMOCWR=="Not familiar"] <- 0
# pre$MMOCWR[pre$MMOCWR=="Heard about it"] <- 0
# pre$MMOCWR[pre$MMOCWR=="Used it/encouraged someone to use it"] <- 0
pre$MMOCWR[pre$MMOCWR==""] <- NA# Adding a group variable
post_A$group <- "Engineering"
post_B$group <- "Kinesiology"
post_C$group <- "Voices"
# Adding a time variable
post_A$time <- 1
post_B$time <- 1
post_C$time <- 1
# Deleting rows that were internal qualtrics labels
post_A <- post_A[-2, ]
post_B <- post_B[-2, ]
post_C <- post_C[-2, ]
# Deleting a row that has blanks for all responses
post_B <- subset(post_B, ResponseId != "R_2aS9epzSIQfLfFG")
# Deleting rows that were survey previews
post_A <- subset(post_A, Status != "Survey Preview")
post_B <- subset(post_B, Status != "Survey Preview")
post_C <- subset(post_C, Status != "Survey Preview")post_A$duration <- post_A$Duration..in.seconds.
post_A$fam_mh_conds <- post_A$Q6
post_A$conf_id_distress <- post_A$Q7
post_A$comf_resp_mh_issues <- post_A$Q8
post_A$comf_talk_mh_students <- post_A$Q9
post_A$comf_talk_mh_coworkers <- post_A$Q10
post_A$conf_student_mh_resource <- post_A$Q11
post_A$conf_coworker_mh_resource <- post_A$Q12
post_B$duration <- post_B$Duration..in.seconds.
post_B$fam_mh_conds <- post_B$Q7
post_B$conf_id_distress <- post_B$Q9
post_B$comf_resp_mh_issues <- post_B$Q8
post_B$comf_talk_mh_students <- post_B$Q10
post_B$comf_talk_mh_coworkers <- post_B$Q21
post_B$conf_student_mh_resource <- post_B$Q11
post_B$conf_coworker_mh_resource <- post_B$Q12
post_C$duration <- post_C$Duration..in.seconds.
post_C$fam_mh_conds <- post_C$Q7
post_C$conf_id_distress <- post_C$Q8
post_C$comf_resp_mh_issues <- post_C$Q9
post_C$comf_talk_mh_students <- post_C$Q10
post_C$comf_talk_mh_coworkers <- post_C$Q11
post_C$conf_student_mh_resource <- post_C$Q12
post_C$conf_coworker_mh_resource <- post_C$Q13post_A$UM_role <- post_A$Q3
post_A$manage_staff <- post_A$Q4
post_A$role_w_ugrads <- post_A$Q5
post_A$role_w_grads <- NA
post_B$UM_role <- post_B$Q3
post_B$manage_staff <- post_B$Q6
post_B$role_w_ugrads <- post_B$Q4
post_B$role_w_grads <- post_B$Q5
post_C$UM_role <- post_C$Q3
post_C$manage_staff <- post_C$Q6
post_C$role_w_ugrads <- post_C$Q4
post_C$role_w_grads <- post_C$Q5post_A$material_clear <-post_A$Q14_1
post_A$relevant <-post_A$Q14_2
post_A$practical <-post_A$Q14_3
post_A$interact_faculty <-post_A$Q14_4
post_A$interact_students <-post_A$Q14_5
post_A$interact_friendsfam <-post_A$Q14_6
post_A$utility_mh_module <-post_A$Q15_1
post_A$utility_comm_module <-post_A$Q15_2
post_A$utility_support_module <-post_A$Q15_3
post_A$utility_resource_module <-post_A$Q15_4
post_A$utility_disc_module <-post_A$Q15_5
post_A$facilitator_engaging <-post_A$Q16
post_A$plan_to_implement_yn <-post_A$Q17
post_A$plan_to_implement_text <-post_A$Q17_2_TEXT
post_A$overall_rating <-post_A$Q18
post_A$training_length <-post_A$Q19
post_A$main_takeaway <-post_A$Q20
post_A$how_to_improve <-post_A$Q21
post_A$additional_comments <-post_A$Q22
post_A$utility_breakout_sessions <- NA
post_A$rating_breakout_session <- NA
post_B$material_clear <-post_B$Q14_1
post_B$relevant <-post_B$Q14_2
post_B$practical <-post_B$Q14_3
post_B$interact_faculty <-post_B$Q14_4
post_B$interact_students <-post_B$Q14_5
post_B$interact_friendsfam <-post_B$Q14_6
post_B$utility_mh_module <-post_B$Q15_1
post_B$utility_comm_module <-post_B$Q15_2
post_B$utility_support_module <-post_B$Q15_3
post_B$utility_resource_module <-post_B$Q15_4
post_B$utility_disc_module <-post_B$Q15_6
post_B$facilitator_engaging <-post_B$Q16
post_B$plan_to_implement_yn <-post_B$Q17
post_B$plan_to_implement_text <-post_B$Q17_2_TEXT
post_B$overall_rating <-post_B$Q19
post_B$training_length <-post_B$Q20
post_B$main_takeaway <-post_B$Q21.1
post_B$how_to_improve <-post_B$Q22
post_B$additional_comments <-post_B$Q23
post_B$utility_breakout_sessions <-post_B$Q15_5
post_B$rating_breakout_session <-post_B$Q18
post_C$material_clear <-post_C$Q15_1
post_C$relevant <-post_C$Q15_2
post_C$practical <-post_C$Q15_3
post_C$interact_faculty <-post_C$Q15_4
post_C$interact_students <-post_C$Q15_5
post_C$interact_friendsfam <-post_C$Q15_6
post_C$utility_mh_module <-post_C$Q16_1
post_C$utility_comm_module <-post_C$Q16_2
post_C$utility_support_module <-post_C$Q16_3
post_C$utility_resource_module <-post_C$Q16_4
post_C$utility_disc_module <-post_C$Q16_5
post_C$facilitator_engaging <-post_C$Q17
post_C$plan_to_implement_yn <-post_C$Q18
post_C$plan_to_implement_text <-post_C$Q18_2_TEXT
post_C$overall_rating <-post_C$Q19
post_C$training_length <-post_C$Q20
post_C$main_takeaway <-post_C$Q21
post_C$how_to_improve <-post_C$Q22
post_C$additional_comments <-post_C$Q23
post_C$utility_breakout_sessions <- NA
post_C$rating_breakout_session <- NApost_A$FASCCO <- post_A$Q13_1
post_A$Mhealthy <- post_A$Q13_3
post_A$CAPS <- post_A$Q13_4
post_A$PES <- post_A$Q13_5
post_A$Dep_toolkit <- post_A$Q13_6
post_A$CARE <- post_A$Q13_2
post_A$Wolv_Wellness <- NA
post_A$CAPS_Counselor <- NA
post_A$Togetherall <- NA
post_A$CampusMindWorks <- NA
post_A$BetterYou <- NA
post_A$MMOCWR <- NA
post_B$FASCCO <- post_B$Q13_1
post_B$Mhealthy <- post_B$Q13_2
post_B$CAPS <- post_B$Q13_4
post_B$PES <- post_B$Q13_9
post_B$Dep_toolkit <- post_B$Q13_10
post_B$CARE <- NA
post_B$Wolv_Wellness <- post_B$Q13_3
post_B$CAPS_Counselor <- post_B$Q13_5
post_B$Togetherall <- post_B$Q13_6
post_B$CampusMindWorks <- post_B$Q13_7
post_B$BetterYou <- post_B$Q13_8
post_B$MMOCWR <- NA
post_C$FASCCO <- post_C$Q14_1
post_C$Mhealthy <- post_C$Q14_3
post_C$CAPS <- post_C$Q14_4
post_C$PES <- post_C$Q14_5
post_C$Dep_toolkit <- post_C$Q14_6
post_C$CARE <- NA
post_C$Wolv_Wellness <- NA
post_C$CAPS_Counselor <- NA
post_C$Togetherall <- NA
post_C$CampusMindWorks <- NA
post_C$BetterYou <- NA
post_C$MMOCWR <- post_C$Q14_2# Now deleting the row that had the question wording
post_A <- post_A[-1, ]
post_B <- post_B[-1, ]
post_C <- post_C[-1, ]
# Now restricting to just the variables we're interested in
post_A <- post_A[ ,c("ResponseId", "StartDate", "group", "time", "duration", "fam_mh_conds", "conf_id_distress", "comf_resp_mh_issues", "comf_talk_mh_students", "comf_talk_mh_coworkers", "conf_student_mh_resource", "conf_coworker_mh_resource", "UM_role", "manage_staff", "role_w_ugrads", "role_w_grads", "material_clear", "relevant", "practical", "interact_faculty", "interact_students", "interact_friendsfam", "utility_mh_module", "utility_comm_module", "utility_support_module", "utility_resource_module", "utility_disc_module", "facilitator_engaging", "plan_to_implement_yn", "plan_to_implement_text", "overall_rating", "training_length", "main_takeaway", "how_to_improve", "additional_comments", "utility_breakout_sessions", "rating_breakout_session", "FASCCO", "Mhealthy", "CAPS", "PES", "Dep_toolkit", "CARE", "Wolv_Wellness", "CAPS_Counselor", "Togetherall", "CampusMindWorks", "BetterYou", "MMOCWR")]
post_B <- post_B[ ,c("ResponseId", "StartDate", "group", "time", "duration", "fam_mh_conds", "conf_id_distress", "comf_resp_mh_issues", "comf_talk_mh_students", "comf_talk_mh_coworkers", "conf_student_mh_resource", "conf_coworker_mh_resource", "UM_role", "manage_staff", "role_w_ugrads", "role_w_grads", "material_clear", "relevant", "practical", "interact_faculty", "interact_students", "interact_friendsfam", "utility_mh_module", "utility_comm_module", "utility_support_module", "utility_resource_module", "utility_disc_module", "facilitator_engaging", "plan_to_implement_yn", "plan_to_implement_text", "overall_rating", "training_length", "main_takeaway", "how_to_improve", "additional_comments", "utility_breakout_sessions", "rating_breakout_session", "FASCCO", "Mhealthy", "CAPS", "PES", "Dep_toolkit", "CARE", "Wolv_Wellness", "CAPS_Counselor", "Togetherall", "CampusMindWorks", "BetterYou", "MMOCWR")]
post_C <- post_C[ ,c("ResponseId", "StartDate", "group", "time", "duration", "fam_mh_conds", "conf_id_distress", "comf_resp_mh_issues", "comf_talk_mh_students", "comf_talk_mh_coworkers", "conf_student_mh_resource", "conf_coworker_mh_resource", "UM_role", "manage_staff", "role_w_ugrads", "role_w_grads", "material_clear", "relevant", "practical", "interact_faculty", "interact_students", "interact_friendsfam", "utility_mh_module", "utility_comm_module", "utility_support_module", "utility_resource_module", "utility_disc_module", "facilitator_engaging", "plan_to_implement_yn", "plan_to_implement_text", "overall_rating", "training_length", "main_takeaway", "how_to_improve", "additional_comments", "utility_breakout_sessions", "rating_breakout_session", "FASCCO", "Mhealthy", "CAPS", "PES", "Dep_toolkit", "CARE", "Wolv_Wellness", "CAPS_Counselor", "Togetherall", "CampusMindWorks", "BetterYou", "MMOCWR")]
# Now appending the data
post <- rbind(post_A, post_B, post_C)# Now re-coding character variables into numeric variables
post$fam_mh_conds[post$fam_mh_conds=="Not at all"] <- 0
post$fam_mh_conds[post$fam_mh_conds=="Somewhat"] <- 1
post$fam_mh_conds[post$fam_mh_conds=="Very"] <- 2
post$fam_mh_conds[post$fam_mh_conds==""] <- NA
post$conf_id_distress[post$conf_id_distress=="Not at all"] <- 0
post$conf_id_distress[post$conf_id_distress=="Somewhat"] <- 1
post$conf_id_distress[post$conf_id_distress=="Very"] <- 2
post$conf_id_distress[post$conf_id_distress==""] <- NA
post$comf_resp_mh_issues[post$comf_resp_mh_issues=="Not at all"] <- 0
post$comf_resp_mh_issues[post$comf_resp_mh_issues=="Somewhat"] <- 1
post$comf_resp_mh_issues[post$comf_resp_mh_issues=="Very"] <- 2
post$comf_resp_mh_issues[post$comf_resp_mh_issues=="Very little"] <- 0 # Kinesiology and Voices group had different labels
post$comf_resp_mh_issues[post$comf_resp_mh_issues=="Some"] <- 1 # Kinesiology and Voices group had different labels
post$comf_resp_mh_issues[post$comf_resp_mh_issues=="Quite a lot"] <- 2 # Kinesiology and Voices group had different labels
post$comf_resp_mh_issues[post$comf_resp_mh_issues==""] <- NA
post$comf_talk_mh_students[post$comf_talk_mh_students=="Not at all"] <- 0
post$comf_talk_mh_students[post$comf_talk_mh_students=="Somewhat"] <- 1
post$comf_talk_mh_students[post$comf_talk_mh_students=="Very"] <- 2
post$comf_talk_mh_students[post$comf_talk_mh_students==""] <- NA
post$comf_talk_mh_students[post$comf_talk_mh_students=="Not applicable, I don't work with students"] <- NA
post$comf_talk_mh_coworkers[post$comf_talk_mh_coworkers=="Not at all"] <- 0
post$comf_talk_mh_coworkers[post$comf_talk_mh_coworkers=="Somewhat"] <- 1
post$comf_talk_mh_coworkers[post$comf_talk_mh_coworkers=="Very"] <- 2
post$comf_talk_mh_coworkers[post$comf_talk_mh_coworkers==""] <- NA
post$conf_student_mh_resource[post$conf_student_mh_resource=="Not at all"] <- 0
post$conf_student_mh_resource[post$conf_student_mh_resource=="Somewhat"] <- 1
post$conf_student_mh_resource[post$conf_student_mh_resource=="Very"] <- 2
post$conf_student_mh_resource[post$conf_student_mh_resource==""] <- NA
post$conf_student_mh_resource[post$conf_student_mh_resource=="Not applicable, I don't work with students"] <- NA
post$conf_coworker_mh_resource[post$conf_coworker_mh_resource=="Not at all"] <- 0
post$conf_coworker_mh_resource[post$conf_coworker_mh_resource=="Somewhat"] <- 1
post$conf_coworker_mh_resource[post$conf_coworker_mh_resource=="Very"] <- 2
post$conf_coworker_mh_resource[post$conf_coworker_mh_resource==""] <- NA# table(post$material_clear) # Disagree, Somewhat agree, Strongly agree
# post$material_clear[post$material_clear=="Disagree"] <- 0
# post$material_clear[post$material_clear=="Somewhat agree"] <- 1
# post$material_clear[post$material_clear=="Strongly agree"] <- 2
post$material_clear[post$material_clear==""] <- NA
#
# table(post$relevant) # Disagree, Somewhat agree, Strongly agree
# post$relevant[post$relevant=="Disagree"] <- 0
# post$relevant[post$relevant=="Somewhat agree"] <- 1
# post$relevant[post$relevant=="Strongly agree"] <- 2
post$relevant[post$relevant==""] <- NA
#
# table(post$practical) # Disagree, Somewhat agree, Strongly agree
# post$practical[post$practical=="Disagree"] <- 0
# post$practical[post$practical=="Somewhat agree"] <- 1
# post$practical[post$practical=="Strongly agree"] <- 2
post$practical[post$practical==""] <- NA
#
# table(post$interact_faculty) # Disagree, Somewhat agree, Strongly agree
# post$interact_faculty[post$interact_faculty=="Disagree"] <- 0
# post$interact_faculty[post$interact_faculty=="Somewhat agree"] <- 1
# post$interact_faculty[post$interact_faculty=="Strongly agree"] <- 2
post$interact_faculty[post$interact_faculty==""] <- NA
#
# table(post$interact_students) # Disagree, Somewhat agree, Strongly agree
# post$interact_students[post$interact_students=="Disagree"] <- 0
# post$interact_students[post$interact_students=="Somewhat agree"] <- 1
# post$interact_students[post$interact_students=="Strongly agree"] <- 2
post$interact_students[post$interact_students==""] <- NA
#
# table(post$interact_friendsfam) # Disagree, Somewhat agree, Strongly agree
# post$interact_friendsfam[post$interact_friendsfam=="Disagree"] <- 0
# post$interact_friendsfam[post$interact_friendsfam=="Somewhat agree"] <- 1
# post$interact_friendsfam[post$interact_friendsfam=="Strongly agree"] <- 2
post$interact_friendsfam[post$interact_friendsfam==""] <- NA
#
# table(post$utility_mh_module) # Not useful, Somewhat useful, Very useful
# post$utility_mh_module[post$utility_mh_module=="Not useful"] <- 0
# post$utility_mh_module[post$utility_mh_module=="Somewhat useful"] <- 1
# post$utility_mh_module[post$utility_mh_module=="Very useful"] <- 2
post$utility_mh_module[post$utility_mh_module==""] <- NA
#
# table(post$utility_comm_module) # Not useful, Somewhat useful, Very useful
# post$utility_comm_module[post$utility_comm_module=="Not useful"] <- 0
# post$utility_comm_module[post$utility_comm_module=="Somewhat useful"] <- 1
# post$utility_comm_module[post$utility_comm_module=="Very useful"] <- 2
post$utility_comm_module[post$utility_comm_module==""] <- NA
#
# table(post$utility_support_module) # Not useful, Somewhat useful, Very useful
# post$utility_support_module[post$utility_support_module=="Not useful"] <- 0
# post$utility_support_module[post$utility_support_module=="Somewhat useful"] <- 1
# post$utility_support_module[post$utility_support_module=="Very useful"] <- 2
post$utility_support_module[post$utility_support_module==""] <- NA
#
# table(post$utility_resource_module) # Not useful, Somewhat useful, Very useful
# post$utility_resource_module[post$utility_resource_module=="Not useful"] <- 0
# post$utility_resource_module[post$utility_resource_module=="Somewhat useful"] <- 1
# post$utility_resource_module[post$utility_resource_module=="Very useful"] <- 2
post$utility_resource_module[post$utility_resource_module==""] <- NA
#
# table(post$utility_disc_module) # Not useful, Somewhat useful, Very useful
# post$utility_disc_module[post$utility_disc_module=="Not useful"] <- 0
# post$utility_disc_module[post$utility_disc_module=="Somewhat useful"] <- 1
# post$utility_disc_module[post$utility_disc_module=="Very useful"] <- 2
post$utility_disc_module[post$utility_disc_module==""] <- NA
#
# table(post$facilitator_engaging) # Not engaging, Somewhat engaging, Very engaging
# post$facilitator_engaging[post$facilitator_engaging=="Not engaging"] <- 0
# post$facilitator_engaging[post$facilitator_engaging=="Somewhat engaging"] <- 1
# post$facilitator_engaging[post$facilitator_engaging=="Very engaging"] <- 2
post$facilitator_engaging[post$facilitator_engaging==""] <- NA
#
# table(post$plan_to_implement_yn) # Not really, Yes
# post$plan_to_implement_yn[post$plan_to_implement_yn=="Not really"] <- 0
# post$plan_to_implement_yn[post$plan_to_implement_yn=="Yes (Please consider sharing/providing an example)"] <- 1
post$plan_to_implement_yn[post$plan_to_implement_yn==""] <- NA
#
# table(post$overall_rating) # Poor, Good, Excellent
# post$overall_rating[post$overall_rating=="Poor"] <- 0
# post$overall_rating[post$overall_rating=="Good"] <- 1
# post$overall_rating[post$overall_rating=="Excellent"] <- 2
post$overall_rating[post$overall_rating==""] <- NA
#
# table(post$training_length) # Too short, About right, Too long
# post$training_length[post$training_length=="Too short"] <- 0
# post$training_length[post$training_length=="About right"] <- 1
# post$training_length[post$training_length=="Too long"] <- 2
post$training_length[post$training_length==""] <- NA
#
# table(post$utility_breakout_sessions) # Not useful, Somewhat useful, Very useful
# post$utility_breakout_sessions[post$utility_breakout_sessions=="Not useful"] <- 0
# post$utility_breakout_sessions[post$utility_breakout_sessions=="Somewhat useful"] <- 1
# post$utility_breakout_sessions[post$utility_breakout_sessions=="Very useful"] <- 2
post$utility_breakout_sessions[post$utility_breakout_sessions==""] <- NA
#
# table(post$rating_breakout_session) # Poor, Good, Excellent
# post$rating_breakout_session[post$rating_breakout_session=="Poor"] <- 0
# post$rating_breakout_session[post$rating_breakout_session=="Good"] <- 1
# post$rating_breakout_session[post$rating_breakout_session=="Excellent"] <- 2
post$rating_breakout_session[post$rating_breakout_session==""] <- NA# Not familiar, Heard about it, Used it/encouraged someone to use it
# # FASCCO
# post$FASCCO[post$FASCCO=="Not familiar"] <- 0
# post$FASCCO[post$FASCCO=="Heard about it"] <- 0
# post$FASCCO[post$FASCCO=="Used it/encouraged someone to use it"] <- 0
post$FASCCO[post$FASCCO==""] <- NA
#
# # Mhealthy
# post$Mhealthy[post$Mhealthy=="Not familiar"] <- 0
# post$Mhealthy[post$Mhealthy=="Heard about it"] <- 0
# post$Mhealthy[post$Mhealthy=="Used it/encouraged someone to use it"] <- 0
post$Mhealthy[post$Mhealthy==""] <- NA
#
# # CAPS
# post$CAPS[post$CAPS=="Not familiar"] <- 0
# post$CAPS[post$CAPS=="Heard about it"] <- 0
# post$CAPS[post$CAPS=="Used it/encouraged someone to use it"] <- 0
post$CAPS[post$CAPS==""] <- NA
#
# # PES
# post$PES[post$PES=="Not familiar"] <- 0
# post$PES[post$PES=="Heard about it"] <- 0
# post$PES[post$PES=="Used it/encouraged someone to use it"] <- 0
post$PES[post$PES==""] <- NA
#
# # Dep_toolkit
# post$Dep_toolkit[post$Dep_toolkit=="Not familiar"] <- 0
# post$Dep_toolkit[post$Dep_toolkit=="Heard about it"] <- 0
# post$Dep_toolkit[post$Dep_toolkit=="Used it/encouraged someone to use it"] <- 0
post$Dep_toolkit[post$Dep_toolkit==""] <- NA
#
# # CARE
# post$CARE[post$CARE=="Not familiar"] <- 0
# post$CARE[post$CARE=="Heard about it"] <- 0
# post$CARE[post$CARE=="Used it/encouraged someone to use it"] <- 0
post$CARE[post$CARE==""] <- NA
#
# # Wolv_Wellness
# post$Wolv_Wellness[post$Wolv_Wellness=="Not familiar"] <- 0
# post$Wolv_Wellness[post$Wolv_Wellness=="Heard about it"] <- 0
# post$Wolv_Wellness[post$Wolv_Wellness=="Used it/encouraged someone to use it"] <- 0
post$Wolv_Wellness[post$Wolv_Wellness==""] <- NA
#
# # CAPS_Counselor
# post$CAPS_Counselor[post$CAPS_Counselor=="Not familiar"] <- 0
# post$CAPS_Counselor[post$CAPS_Counselor=="Heard about it"] <- 0
# post$CAPS_Counselor[post$CAPS_Counselor=="Used it/encouraged someone to use it"] <- 0
post$CAPS_Counselor[post$CAPS_Counselor==""] <- NA
#
# # Togetherall
# post$Togetherall[post$Togetherall=="Not familiar"] <- 0
# post$Togetherall[post$Togetherall=="Heard about it"] <- 0
# post$Togetherall[post$Togetherall=="Used it/encouraged someone to use it"] <- 0
post$Togetherall[post$Togetherall==""] <- NA
#
# # CampusMindWorks
# post$CampusMindWorks[post$CampusMindWorks=="Not familiar"] <- 0
# post$CampusMindWorks[post$CampusMindWorks=="Heard about it"] <- 0
# post$CampusMindWorks[post$CampusMindWorks=="Used it/encouraged someone to use it"] <- 0
post$CampusMindWorks[post$CampusMindWorks==""] <- NA
#
# # BetterYou
# post$BetterYou[post$BetterYou=="Not familiar"] <- 0
# post$BetterYou[post$BetterYou=="Heard about it"] <- 0
# post$BetterYou[post$BetterYou=="Used it/encouraged someone to use it"] <- 0
post$BetterYou[post$BetterYou==""] <- NA
#
# # MMOCWR
# post$MMOCWR[post$MMOCWR=="Not familiar"] <- 0
# post$MMOCWR[post$MMOCWR=="Heard about it"] <- 0
# post$MMOCWR[post$MMOCWR=="Used it/encouraged someone to use it"] <- 0
post$MMOCWR[post$MMOCWR==""] <- NA# First, adding variables to the pre- that are in the post-; making NA
pre$UM_role <- NA
pre$manage_staff <- NA
pre$role_w_ugrads <- NA
pre$role_w_grads <- NA
pre$material_clear <- NA
pre$relevant <- NA
pre$practical <- NA
pre$interact_faculty <- NA
pre$interact_students <- NA
pre$interact_friendsfam <- NA
pre$utility_mh_module <- NA
pre$utility_comm_module <- NA
pre$utility_support_module <- NA
pre$utility_resource_module <- NA
pre$utility_disc_module <- NA
pre$facilitator_engaging <- NA
pre$plan_to_implement_yn <- NA
pre$plan_to_implement_text <- NA
pre$overall_rating <- NA
pre$training_length <- NA
pre$main_takeaway <- NA
pre$how_to_improve <- NA
pre$additional_comments <- NA
pre$utility_breakout_sessions <- NA
pre$rating_breakout_session <- NA
# Appending pre- and post- together
data <- rbind(pre, post)
# Re-arranging variables
data <- data[ ,c("ResponseId", "StartDate", "group", "time", "duration", "fam_mh_conds", "conf_id_distress", "comf_resp_mh_issues", "comf_talk_mh_students", "comf_talk_mh_coworkers", "conf_student_mh_resource", "conf_coworker_mh_resource", "FASCCO", "Mhealthy", "CAPS", "PES", "Dep_toolkit", "CARE", "Wolv_Wellness", "CAPS_Counselor", "Togetherall", "CampusMindWorks", "BetterYou", "MMOCWR", "overall_rating", "facilitator_engaging", "material_clear", "relevant", "practical", "interact_faculty", "interact_students", "interact_friendsfam", "utility_mh_module", "utility_comm_module", "utility_support_module", "utility_resource_module", "utility_disc_module", "utility_breakout_sessions", "rating_breakout_session", "training_length", "plan_to_implement_yn", "plan_to_implement_text", "main_takeaway", "how_to_improve", "additional_comments", "UM_role", "manage_staff", "role_w_ugrads", "role_w_grads")]
# Saving the data
write.csv(data, paste0(path,"/Workplace_MH_Training_Survey.csv"), row.names = FALSE)
# Clearing the environment
# rm(list=objects())