library(tidyverse)
library(psych)
library(ggplot2)
library(qualtRics)
library(dplyr)Teacher<- separate(data = Teacher, col = Q6, into = c("Cont1", "Cont2", "Cont3", "Cont4", "Cont5", "Cont6", "Cont7", "Cont8", "Cont9", "Cont10"), sep = ",")
Teacher<- Teacher %>%
mutate(Cont1 = case_when(Cont1 == "Art" ~ "Elective",
Cont1 == "Foreign Language" ~ "Elective",
Cont1 == "General elementary education" ~ "General Elementary",
Cont1 == "Language Arts/English" ~ "English Language Arts",
Cont1 == "Math" ~ "Math",
Cont1 == "Multi-media" ~ "Elective",
Cont1 == "Music" ~ "Elective",
Cont1 == "Other (Please Specify)" ~ "Other",
Cont1 == "Industrial education (including shop" ~ "Elective",
Cont1 == "Physical Education" ~ "Elective",
Cont1 == "Science" ~ "Science",
Cont1 == "Special Education" ~ "Special Education",
Cont1 == "Home Economics or Consumer Science" ~ "Elective",
Cont1 == "Social studies" ~ "Social Studies"))#Limit the dataset only to include WY Public Teachers who consented to the survey
Teacher2<- subset(Teacher, Q2 == "I am a public school teacher currently teaching in the state of Wyoming.")
Teacher2<- subset(Teacher2, Q1 == "I consent to this survey")
#Remove unnecessary columns
Teacher2<- dplyr::select(Teacher2, -c(StartDate, EndDate, Status, Progress, `Duration (in seconds)`, RecordedDate, DistributionChannel, UserLanguage, Finished, Q2_2_TEXT, Q3_4_TEXT, Q4_6_TEXT, ))
#Recodee text values as numeric values on Likert items
Teacher2<- Teacher2%>%
mutate_at(c("Q14_1", "Q14_2", "Q14_3", "Q14_4", "Q14_5"), funs(recode(., "Very Unlikely" = 1, "Unlikely" = 2, "Likely" = 3, "Very Likely" = 4))) %>%
mutate_at(c("Q15_1", "Q15_2", "Q15_3", "Q15_4", "Q17_1", "Q17_2", "Q17_3", "Q17_4", "Q17_5", "Q19_1", "Q19_2", "Q19_3", "Q19_4", "Q19_5", "Q20_1", "Q20_2", "Q20_3", "Q20_4", "Q20_5", "Q20_6", "Q20_7", "Q20_8", "Q20_9", "Q20_10", "Q21", "Q23_1", "Q23_2", "Q23_3", "Q23_4", "Q23_5", "Q23_6", "Q23_7", "Q23_8", "Q23_9", "Q23_10", "Q24_1", "Q24_2", "Q24_3", "Q24_4", "Q24_5", "Q24_6", "Q24_7", "Q24_8", "Q24_9", "Q24_10", "Q25", "Q27_1", "Q27_2", "Q27_3", "Q27_4", "Q27_5", "Q27_6", "Q27_8", "Q28_1", "Q28_2", "Q28_3", "Q28_4", "Q28_5", "Q28_6", "Q28_8", "Q29", "Q32_1", "Q32_2", "Q32_3", "Q32_4", "Q32_5", "Q32_6", "Q32_7", "Q38", "Q39", "Q40", "Q41_1", "Q41_2", "Q41_3", "Q41_5", "Q41_6", "Q41_7", "Q41_10", "Q44_1", "Q44_2", "Q44_3", "Q44_4", "Q45_1", "Q45_2", "Q45_3", "Q45_4", "Q48", "Q49", "Q52", "Q55", "Q57_1", "Q57_2", "Q57_3", "Q57_4", "Q57_5", "Q59_1", "Q59_2", "Q59_3", "Q59_4"), funs(recode(., "Strongly Disagree" = 1, "Disagree" = 2, "Agree" = 3, "Strongly Agree" = 4, "Strongly disagree" = 1, "Strongly agree" = 4)))
#Reverse code negative items
Teacher2<- Teacher2%>%
mutate_at(c("Q27_7", "Q28_7", "Q41_4", "Q41_8", "Q41_9"),funs(recode(., "Strongly Disagree" = 4, "Disagree" = 3, "Agree" = 2, "Strongly Agree" = 1, "Strongly disagree" = 4, "Strongly agree" = 1)))
#Calculate Scale Scores
Teacher2<- Teacher2 %>%
mutate("Teach_Satisfy"= Q17_1 + Q17_2 + Q17_3 + Q17_4 +Q17_5) %>%
mutate("Anxiety"= Q19_1 + Q19_2 + Q19_3 + Q19_4 + Q19_5) %>%
mutate("Depression"= Q20_1 + Q20_2 + Q20_3 + Q20_4 + Q20_5 + Q20_6 + Q20_7 + Q20_8) %>%
mutate("InPerson_Sup"= Q23_1 + Q23_2 + Q23_3 + Q23_4 + Q23_5 + Q23_6 + Q23_7 + Q23_8 + Q23_9 + Q23_10) %>%
mutate("Online_Sup"= Q24_1 + Q24_2 + Q24_3 + Q24_4 + Q24_5 + Q24_6 + Q24_7 + Q24_8 + Q24_9 + Q24_10) %>%
mutate("InPerson_Task"= Q27_1 + Q27_2 + Q27_3 + Q27_4 + Q27_5 + Q27_6 + Q27_7 + Q27_8) %>%
mutate("Community_Support" = Q23_1 + Q23_2 + Q23_4) %>%
mutate("Professional_Support"= Q23_3 + Q23_8 + Q23_9) %>%
mutate("Online_Task"= Q28_1 + Q28_2 + Q28_3 + Q28_4 + Q28_5 + Q28_6 + Q28_7 + Q28_8) %>%
mutate("Technology"= Q32_1 + Q32_2 + Q32_3 + Q32_4 + Q32_5 + Q32_6) %>%
mutate("Assessment"= Q41_1 + Q41_2 + Q41_3 + Q41_4) %>%
mutate("Initiatives"= Q41_5 + Q41_6 + Q41_7 + Q41_8 + Q41_9) %>%
mutate("InPerson_Efficacy"= Q44_1 + Q44_2 + Q44_3 + Q44_4) %>%
mutate("Online_Efficacy"= Q45_1 + Q45_2 + Q45_3 + Q45_4)
#Get rid of text in answers and convert to first two characters of answer after letters eliminated
Teacher2$Q11<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q11))
Teacher2$Q11<- as.numeric(substr(Teacher2$Q11, start = 1, stop = 2))
#Code comparison data to eliminate text and make numeric
Teacher2$Q34_1_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q34_1_1))
Teacher2$Q34_1_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q34_1_2))
Teacher2$Q34_2_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q34_2_1))
Teacher2$Q34_2_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q34_2_2))
Teacher2$Q34_3_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q34_3_1))
Teacher2$Q34_3_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q34_3_2))
Teacher2$Q34_4_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q34_4_1))
Teacher2$Q34_4_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q34_4_2))
Teacher2$Q34_5_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q34_5_1))
Teacher2$Q34_5_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q34_5_2))
Teacher2$Q35_1_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q35_1_1))
Teacher2$Q35_1_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q35_1_2))
Teacher2$Q35_2_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q35_2_1))
Teacher2$Q35_2_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q35_2_2))
Teacher2$Q35_3_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q35_3_1))
Teacher2$Q35_3_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q35_3_2))
Teacher2$Q35_4_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q35_4_1))
Teacher2$Q35_4_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q35_4_2))
Teacher2$Q35_5_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q35_5_1))
Teacher2$Q35_5_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q35_5_2))
Teacher2$Q36_1_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q36_1_1))
Teacher2$Q36_1_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q36_1_2))
Teacher2$Q36_2_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q36_2_1))
Teacher2$Q36_2_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q36_2_2))
Teacher2$Q36_3_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q36_3_1))
Teacher2$Q36_3_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q36_3_2))
Teacher2$Q36_4_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q36_4_1))
Teacher2$Q36_4_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q36_4_2))
Teacher2$Q36_5_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q36_5_1))
Teacher2$Q36_5_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q36_5_2))
Teacher2$Q47_1_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_1_1))
Teacher2$Q47_1_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_1_2))
Teacher2$Q47_2_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_2_1))
Teacher2$Q47_2_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_2_2))
Teacher2$Q47_3_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_3_1))
Teacher2$Q47_3_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_3_2))
Teacher2$Q47_4_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_4_1))
Teacher2$Q47_4_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_4_2))
Teacher2$Q47_5_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_5_1))
Teacher2$Q47_5_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_5_2))
Teacher2$Q47_6_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_6_1))
Teacher2$Q47_6_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_6_2))
Teacher2$Q47_7_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_7_1))
Teacher2$Q47_7_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_7_2))
Teacher2$Q47_8_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_8_1))
Teacher2$Q47_8_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_8_2))
Teacher2$Q47_9_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_9_1))
Teacher2$Q47_9_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q47_9_2))
Teacher2$Q51_1_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_1_1))
Teacher2$Q51_1_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_1_2))
Teacher2$Q51_2_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_2_1))
Teacher2$Q51_2_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_2_2))
Teacher2$Q51_3_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_3_1))
Teacher2$Q51_3_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_3_2))
Teacher2$Q51_4_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_4_1))
Teacher2$Q51_4_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_4_2))
Teacher2$Q51_5_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_5_1))
Teacher2$Q51_5_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_5_2))
Teacher2$Q51_6_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_6_1))
Teacher2$Q51_6_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_6_2))
Teacher2$Q51_7_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_7_1))
Teacher2$Q51_7_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_7_2))
Teacher2$Q51_8_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_8_1))
Teacher2$Q51_8_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q51_8_2))
Teacher2$Q54_1_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q54_1_1))
Teacher2$Q54_1_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q54_1_2))
Teacher2$Q54_2_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q54_2_1))
Teacher2$Q54_2_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q54_2_2))
Teacher2$Q54_3_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q54_3_1))
Teacher2$Q54_3_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q54_3_2))
Teacher2$Q54_4_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q54_4_1))
Teacher2$Q54_4_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q54_4_2))
Teacher2$Q54_5_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q54_5_1))
Teacher2$Q54_5_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q54_5_2))
Teacher2$Q54_6_1<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q54_6_1))
Teacher2$Q54_6_2<- as.numeric(gsub("[^0-9.-]","",Teacher2$Q54_6_2))
###reduce outlier typos with digits
Teacher2$Q34_1_1<- as.numeric(substr(Teacher2$Q34_1_1, start = 1, stop = 2))
Teacher2$Q34_1_2<- as.numeric(substr(Teacher2$Q34_1_2, start = 1, stop = 2))
Teacher2$Q34_2_1<- as.numeric(substr(Teacher2$Q34_2_1, start = 1, stop = 2))
Teacher2$Q34_2_2<- as.numeric(substr(Teacher2$Q34_2_2, start = 1, stop = 2))
Teacher2$Q34_3_1<- as.numeric(substr(Teacher2$Q34_3_1, start = 1, stop = 2))
Teacher2$Q34_3_2<- as.numeric(substr(Teacher2$Q34_3_2, start = 1, stop = 2))
Teacher2$Q34_4_1<- as.numeric(substr(Teacher2$Q34_4_1, start = 1, stop = 2))
Teacher2$Q34_4_2<- as.numeric(substr(Teacher2$Q34_4_2, start = 1, stop = 2))
Teacher2$Q34_5_1<- as.numeric(substr(Teacher2$Q34_5_1, start = 1, stop = 2))
Teacher2$Q34_5_2<- as.numeric(substr(Teacher2$Q34_5_2, start = 1, stop = 2))
Teacher2$Q35_1_1<- as.numeric(substr(Teacher2$Q35_1_1, start = 1, stop = 2))
Teacher2$Q35_1_2<- as.numeric(substr(Teacher2$Q35_1_2, start = 1, stop = 2))
Teacher2$Q35_2_1<- as.numeric(substr(Teacher2$Q35_2_1, start = 1, stop = 2))
Teacher2$Q35_2_2<- as.numeric(substr(Teacher2$Q35_2_2, start = 1, stop = 2))
Teacher2$Q35_3_1<- as.numeric(substr(Teacher2$Q35_3_1, start = 1, stop = 2))
Teacher2$Q35_3_2<- as.numeric(substr(Teacher2$Q35_3_2, start = 1, stop = 2))
Teacher2$Q35_4_1<- as.numeric(substr(Teacher2$Q35_4_1, start = 1, stop = 2))
Teacher2$Q35_4_2<- as.numeric(substr(Teacher2$Q35_4_2, start = 1, stop = 2))
Teacher2$Q35_5_1<- as.numeric(substr(Teacher2$Q35_5_1, start = 1, stop = 2))
Teacher2$Q35_5_2<- as.numeric(substr(Teacher2$Q35_5_2, start = 1, stop = 2))
Teacher2$Q36_1_1<- as.numeric(substr(Teacher2$Q36_1_1, start = 1, stop = 2))
Teacher2$Q36_1_2<- as.numeric(substr(Teacher2$Q36_1_2, start = 1, stop = 2))
Teacher2$Q36_2_1<- as.numeric(substr(Teacher2$Q36_2_1, start = 1, stop = 2))
Teacher2$Q36_2_2<- as.numeric(substr(Teacher2$Q36_2_2, start = 1, stop = 2))
Teacher2$Q36_3_1<- as.numeric(substr(Teacher2$Q36_3_1, start = 1, stop = 2))
Teacher2$Q36_3_2<- as.numeric(substr(Teacher2$Q36_3_2, start = 1, stop = 2))
Teacher2$Q36_4_1<- as.numeric(substr(Teacher2$Q36_4_1, start = 1, stop = 2))
Teacher2$Q36_4_2<- as.numeric(substr(Teacher2$Q36_4_2, start = 1, stop = 2))
Teacher2$Q36_5_1<- as.numeric(substr(Teacher2$Q36_5_1, start = 1, stop = 2))
Teacher2$Q36_5_2<- as.numeric(substr(Teacher2$Q36_5_2, start = 1, stop = 2))
Teacher2$Q47_1_1<- as.numeric(substr(Teacher2$Q47_1_1, start = 1, stop = 2))
Teacher2$Q47_1_2<- as.numeric(substr(Teacher2$Q47_1_2, start = 1, stop = 2))
Teacher2$Q47_2_1<- as.numeric(substr(Teacher2$Q47_2_1, start = 1, stop = 2))
Teacher2$Q47_2_2<- as.numeric(substr(Teacher2$Q47_2_2, start = 1, stop = 2))
Teacher2$Q47_3_1<- as.numeric(substr(Teacher2$Q47_3_1, start = 1, stop = 2))
Teacher2$Q47_3_2<- as.numeric(substr(Teacher2$Q47_3_2, start = 1, stop = 2))
Teacher2$Q47_4_1<- as.numeric(substr(Teacher2$Q47_4_1, start = 1, stop = 2))
Teacher2$Q47_4_2<- as.numeric(substr(Teacher2$Q47_4_2, start = 1, stop = 2))
Teacher2$Q47_5_1<- as.numeric(substr(Teacher2$Q47_5_1, start = 1, stop = 2))
Teacher2$Q47_5_2<- as.numeric(substr(Teacher2$Q47_5_2, start = 1, stop = 2))
Teacher2$Q47_6_1<- as.numeric(substr(Teacher2$Q47_6_1, start = 1, stop = 2))
Teacher2$Q47_6_2<- as.numeric(substr(Teacher2$Q47_6_2, start = 1, stop = 2))
Teacher2$Q47_7_1<- as.numeric(substr(Teacher2$Q47_7_1, start = 1, stop = 2))
Teacher2$Q47_7_2<- as.numeric(substr(Teacher2$Q47_7_2, start = 1, stop = 2))
Teacher2$Q47_8_1<- as.numeric(substr(Teacher2$Q47_8_1, start = 1, stop = 2))
Teacher2$Q47_8_2<- as.numeric(substr(Teacher2$Q47_8_2, start = 1, stop = 2))
Teacher2$Q47_9_1<- as.numeric(substr(Teacher2$Q47_9_1, start = 1, stop = 2))
Teacher2$Q47_9_2<- as.numeric(substr(Teacher2$Q47_9_2, start = 1, stop = 2))
Teacher2$Q51_1_1<- as.numeric(substr(Teacher2$Q51_1_1, start = 1, stop = 2))
Teacher2$Q51_1_2<- as.numeric(substr(Teacher2$Q51_1_2, start = 1, stop = 2))
Teacher2$Q51_2_1<- as.numeric(substr(Teacher2$Q51_2_1, start = 1, stop = 2))
Teacher2$Q51_2_2<- as.numeric(substr(Teacher2$Q51_2_2, start = 1, stop = 2))
Teacher2$Q51_3_1<- as.numeric(substr(Teacher2$Q51_3_1, start = 1, stop = 2))
Teacher2$Q51_3_2<- as.numeric(substr(Teacher2$Q51_3_2, start = 1, stop = 2))
Teacher2$Q51_4_1<- as.numeric(substr(Teacher2$Q51_4_1, start = 1, stop = 2))
Teacher2$Q51_4_2<- as.numeric(substr(Teacher2$Q51_4_2, start = 1, stop = 2))
Teacher2$Q51_5_1<- as.numeric(substr(Teacher2$Q51_5_1, start = 1, stop = 2))
Teacher2$Q51_5_2<- as.numeric(substr(Teacher2$Q51_5_2, start = 1, stop = 2))
Teacher2$Q51_6_1<- as.numeric(substr(Teacher2$Q51_6_1, start = 1, stop = 2))
Teacher2$Q51_6_2<- as.numeric(substr(Teacher2$Q51_6_2, start = 1, stop = 2))
Teacher2$Q51_7_1<- as.numeric(substr(Teacher2$Q51_7_1, start = 1, stop = 2))
Teacher2$Q51_7_2<- as.numeric(substr(Teacher2$Q51_7_2, start = 1, stop = 2))
Teacher2$Q51_8_1<- as.numeric(substr(Teacher2$Q51_8_1, start = 1, stop = 2))
Teacher2$Q51_8_2<- as.numeric(substr(Teacher2$Q51_8_2, start = 1, stop = 2))
Teacher2$Q54_1_1<- as.numeric(substr(Teacher2$Q54_1_1, start = 1, stop = 2))
Teacher2$Q54_1_2<- as.numeric(substr(Teacher2$Q54_1_2, start = 1, stop = 2))
Teacher2$Q54_2_1<- as.numeric(substr(Teacher2$Q54_2_1, start = 1, stop = 2))
Teacher2$Q54_2_2<- as.numeric(substr(Teacher2$Q54_2_2, start = 1, stop = 2))
Teacher2$Q54_3_1<- as.numeric(substr(Teacher2$Q54_3_1, start = 1, stop = 2))
Teacher2$Q54_3_2<- as.numeric(substr(Teacher2$Q54_3_2, start = 1, stop = 2))
Teacher2$Q54_4_1<- as.numeric(substr(Teacher2$Q54_4_1, start = 1, stop = 2))
Teacher2$Q54_4_2<- as.numeric(substr(Teacher2$Q54_4_2, start = 1, stop = 2))
Teacher2$Q54_5_1<- as.numeric(substr(Teacher2$Q54_5_1, start = 1, stop = 2))
Teacher2$Q54_5_2<- as.numeric(substr(Teacher2$Q54_5_2, start = 1, stop = 2))
Teacher2$Q54_6_1<- as.numeric(substr(Teacher2$Q54_6_1, start = 1, stop = 2))
Teacher2$Q54_6_2<- as.numeric(substr(Teacher2$Q54_6_2, start = 1, stop = 2))
write.csv(Teacher, "Teacher.csv")
write.csv(Teacher2, "teacher2.csv")`