library(scales) # Used for adding percentages to bar charts # Define colour palettes for plots below coul3 <- brewer.pal(3, "RdYlBu") # Using RdYlBu range to generate 3 colour palette: https://colorbrewer2.org/#type=diverging&scheme=RdYlBu&n=5 TSR_data <- read.csv("./data/TSR data complete.csv") subject_data <- read.csv("./data/Subject data.csv") # Set up local workspace, as needed: if (dir.exists("data") == FALSE) { dir.create("data") } if (dir.exists("figures") == FALSE) { dir.create("figures") } if (dir.exists("derivedData") == FALSE) { dir.create("derivedData") } Philos_subset_High <- TSR_data[TSR_data$InterestinstudyingPhilosophy > 3, ] ### Philosophy ### Philos_subset_Low <- TSR_data[TSR_data$InterestinstudyingPhilosophy < 3 & TSR_data$InterestinstudyingPhilosophy != 0, ] ## Theology Interest #Low interest in Philosophy mean(as.numeric(Philos_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Philosophy mean(as.numeric(Philos_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) mean(as.numeric(TSR_data$InterestedinstudyingTheology)) mean(as.numeric(TSR_data$InterestedinstudyingTheology), na.rm = TRUE) mean(as.numeric(TSR_data$InterestedinstudyingReligiousStudies), na.rm = TRUE) library(kable) # Used for generating markdown tables install.packages("kable") ## Theology Interest #Low interest in Philosophy overall_mean_theology_interest <- mean(as.numeric(Philos_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Philosophy overall_mean_rs_interest <- mean(as.numeric(Philos_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) overall_mean_theology_interest <- mean(as.numeric(TSR_data$InterestedinstudyingTheology), na.rm = TRUE) overall_mean_rs_interest <- mean(as.numeric(TSR_data$InterestedinstudyingReligiousStudies), na.rm = TRUE) ### Philosophy ### Philos_subset_Low <- TSR_data[TSR_data$InterestinstudyingPhilosophy < 3 & TSR_data$InterestinstudyingPhilosophy != 0, ] Philos_subset_High <- TSR_data[TSR_data$InterestinstudyingPhilosophy > 3, ] mean(as.numeric(TSR_data$InterestedinstudyingTheology), na.rm = TRUE) mean(as.numeric(TSR_data$InterestedinstudyingReligiousStudies), na.rm = TRUE) mean(as.numeric(TSR_data$InterestinstudyingPhilosophy), na.rm = TRUE) mean(as.numeric(TSR_data$InterestedinStudyingPsychology), na.rm = TRUE) ### Philosophy ### Philos_subset_Low <- TSR_data[TSR_data$InterestinstudyingPhilosophy < 3 & TSR_data$InterestinstudyingPhilosophy != 0, ] Philos_subset_High <- TSR_data[TSR_data$InterestinstudyingPhilosophy > 3, ] ## Theology Interest #Low interest in Philosophy philosophy_interest_low_theology_interest_mean <- (as.numeric(Philos_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) ## Theology Interest #Low interest in Philosophy mean(as.numeric(Philos_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Philosophy mean(as.numeric(Philos_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Philosophy mean(as.numeric(Philos_subset_High$InterestedinstudyingTheology), na.rm = TRUE) ## Religious Studies Interest #Low interest in Philosophy mean(as.numeric(Philos_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE) #High interest in Philosophy mean(as.numeric(Philos_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE) ### Sociology ### Soc_subset_Low <- TSR_data[TSR_data$InterestinstudyingSociaology < 3 & TSR_data$InterestinstudyingSociaology != 0, ] Soc_subset_High <- TSR_data[TSR_data$InterestinstudyingSociaology > 3, ] ## Theology Interest #Low interest in Sociology lSocTheo <- mean(as.numeric(Soc_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Sociology hSocTheo <- mean(as.numeric(Soc_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) ## Religious Studies Interest #Low interest in Sociology mean(as.numeric(Soc_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE) #High interest in Sociology mean(as.numeric(Soc_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE) ## Theology Interest #Low interest in Sociology lSocTheo <- mean(as.numeric(Soc_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) ## Theology Interest #Low interest in Sociology mean(as.numeric(Soc_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Sociology mean(as.numeric(Soc_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) ## Theology Interest #Low interest in Sociology mean(as.numeric(Soc_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Sociology mean(as.numeric(Soc_subset_High$InterestedinstudyingTheology), na.rm = TRUE) ## Religious Studies Interest #Low interest in Sociology mean(as.numeric(Soc_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE) #High interest in Sociology mean(as.numeric(Soc_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE) ### Psychology ### Psych_subset_Low <- TSR_data[TSR_data$InterestedinStudyingPsychology < 3 & TSR_data$InterestedinStudyingPsychology != 0, ] Psych_subset_High <- TSR_data[TSR_data$InterestedinStudyingPsychology > 3, ] ## Theology Interest #Low interest in Psychology mean(as.numeric(Psych_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Psychology mean(as.numeric(Psych_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Psychology mean(as.numeric(Psych_subset_High$InterestedinstudyingTheology), na.rm = TRUE) ## Religious Studies Interest #Low interest in Psychology mean(as.numeric(Psych_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE) #High interest in Psychology mean(as.numeric(Psych_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE) ### History ### Hist_subset_Low <- TSR_data[TSR_data$InterestedinstudyingHistory < 3 & TSR_data$InterestedinstudyingHistory != 0, ] Hist_subset_High <- TSR_data[TSR_data$InterestedinstudyingHistory > 3, ] ## Theology Interest #Low interest in History mean(as.numeric(Hist_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in History mean(as.numeric(Hist_subset_High$InterestedinstudyingTheology), na.rm = TRUE) ## Religious Studies Interest #Low interest in History mean(as.numeric(Hist_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE) #High interest in History mean(as.numeric(Hist_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE) ### Ethics ### Ethics_subset_Low <- TSR_data[TSR_data$InterestedinstudyingEthics < 3 & TSR_data$InterestedinstudyingEthics != 0, ] Ethics_subset_High <- TSR_data[TSR_data$InterestedinstudyingEthics > 3, ] ## Theology Interest #Low interest in Ethics mean(as.numeric(Ethics_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Ethics mean(as.numeric(Ethics_subset_High$InterestedinstudyingTheology), na.rm = TRUE) ## Religious Studies Interest #Low interest in Ethics mean(as.numeric(Ethics_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE) #High interest in Ethics mean(as.numeric(Ethics_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE) ### Politics ### Polit_subset_Low <- TSR_data[TSR_data$InterestedinstudyingPolitics < 3 & TSR_data$InterestedinstudyingPolitics != 0, ] Polit_subset_High <- TSR_data[TSR_data$InterestedinstudyingPolitics > 3, ] ## Theology Interest #Low interest in Politics mean(as.numeric(Polit_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Politics mean(as.numeric(Polit_subset_High$InterestedinstudyingTheology), na.rm = TRUE) ## Religious Studies Interest #Low interest in Politics mean(as.numeric(Polit_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE) #High interest in Politics mean(as.numeric(Polit_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE) ### English ### Eng_subset_Low <- TSR_data[TSR_data$InterestedinstudyingEnglish < 3 & TSR_data$InterestedinstudyingEnglish != 0, ] Eng_subset_High <- TSR_data[TSR_data$InterestedinstudyingEnglish > 3, ] ## Theology Interest #Low interest in English mean(as.numeric(Eng_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in English mean(as.numeric(Eng_subset_High$InterestedinstudyingTheology), na.rm = TRUE) ## Religious Studies Interest #Low interest in English mean(as.numeric(Eng_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE) #High interest in English mean(as.numeric(Eng_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE) ### Math ### Math_subset_Low <- TSR_data[TSR_data$InterestedinstudyingMath < 3 & TSR_data$InterestedinstudyingMathy != 0, ] Math_subset_High <- TSR_data[TSR_data$InterestedinstudyingMath > 3, ] ## Theology Interest #Low interest in Math mean(as.numeric(Math_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Math mean(as.numeric(Math_subset_High$InterestedinstudyingTheology), na.rm = TRUE) ## Religious Studies Interest #Low interest in Math mean(as.numeric(Math_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE) #High interest in Math mean(as.numeric(Math_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE) ## Theology Interest #Low interest in Math mean(as.numeric(Math_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) ### Math ### Math_subset_Low <- TSR_data[TSR_data$InterestedinstudyingMath < 3 & TSR_data$InterestedinstudyingMath != 0, ] Math_subset_High <- TSR_data[TSR_data$InterestedinstudyingMath > 3, ] ## Theology Interest #Low interest in Math mean(as.numeric(Math_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Math mean(as.numeric(Math_subset_High$InterestedinstudyingTheology), na.rm = TRUE) ## Religious Studies Interest #Low interest in Math mean(as.numeric(Math_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE) #High interest in Math mean(as.numeric(Math_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE) ### Computer Science ### CompSci_subset_Low <- TSR_data[TSR_data$InterestedinstudyingComputerScience < 3 & TSR_data$InterestedinstudyingComputerScience != 0, ] CompSci_subset_High <- TSR_data[TSR_data$InterestedinstudyingComputerScience > 3, ] ## Theology Interest #Low interest in Computer Science mean(as.numeric(CompSci_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Computer Science mean(as.numeric(CompSci_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Computer Science mean(as.numeric(CompSci_subset_High$InterestedinstudyingTheology), na.rm = TRUE) ## Religious Studies Interest #Low interest in Computer Science mean(as.numeric(CompSci_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE) #High interest in Computer Science mean(as.numeric(CompSci_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE) ### Business ### Busi_subset_Low <- TSR_data[TSR_data$InterestedinstudyingBusiness < 3 & TSR_data$InterestedinstudyingBusiness != 0, ] Busi_subset_High <- TSR_data[TSR_data$InterestedinstudyingBusiness > 3, ] ## Theology Interest #Low interest in Business mean(as.numeric(Busi_subset_Low$InterestedinstudyingTheology), na.rm = TRUE) #High interest in Business mean(as.numeric(Busi_subset_High$InterestedinstudyingTheology), na.rm = TRUE) ## Religious Studies Interest #Low interest in Business mean(as.numeric(Busi_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE) #High interest in Business mean(as.numeric(Busi_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE) mean(as.numeric(TSR_data$GoodunderstandingofTheology), na.rm = TRUE) mean(as.numeric(TSR_data$GoodunderstandingofReligiousStudies), na.rm = TRUE) mean(as.numeric(TSR_data$GoodunderstandingofPhilosophy), na.rm = TRUE) mean(as.numeric(TSR_data$GoodunderstandingofPsychology), na.rm = TRUE) mean(as.numeric(TSR_data$GoodunderstandingofEnglish), na.rm = TRUE) mean(as.numeric(TSR_data$GoodunderstandingofMath), na.rm = TRUE) # Low understanding of philosophy cohort Philos_subset_Low <- TSR_data[TSR_data$GoodunderstandingofPhilosophy < 3 & TSR_data$GoodunderstandingofPhilosophy != 0, ] # High understanding of philosophy cohort Philos_subset_High <- TSR_data[TSR_data$GoodunderstandingofPhilosophy > 3, ] ## Theology Knowledge #Low knowledge in Philosophy mean(as.numeric(Philos_subset_Low$GoodunderstandingofTheology), na.rm = TRUE) #High knowledge in Philosophy mean(as.numeric(Philos_subset_High$GoodunderstandingofTheology), na.rm = TRUE) ## Religious Studies Knowledge #Low knowledge in Philosophy mean(as.numeric(Philos_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE) #High knowledge in Philosophy mean(as.numeric(Philos_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE) ### Sociology ### Soc_subset_Low <- TSR_data[TSR_data$GoodunderstandingofSociology < 3 & TSR_data$GoodunderstandingofSociology != 0, ] Soc_subset_High <- TSR_data[TSR_data$GoodunderstandingofSociology > 3, ] ## Theology knowledge #Low knowledge in Sociology mean(as.numeric(Soc_subset_Low$GoodunderstandingofTheology), na.rm = TRUE) #High knowledge in Sociology mean(as.numeric(Soc_subset_High$GoodunderstandingofTheology), na.rm = TRUE) ## Religious Studies knowledge #Low knowledge in Sociology mean(as.numeric(Soc_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE) #High knowledge in Sociology mean(as.numeric(Soc_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE) ### Psychology ### Psych_subset_Low <- TSR_data[TSR_data$GoodunderstandingofPsychology < 3 & TSR_data$GoodunderstandingofPsychology != 0, ] Psych_subset_High <- TSR_data[TSR_data$GoodunderstandingofPsychology > 3, ] ## Theology knowledge #Low knowledge in Psychology mean(as.numeric(Psych_subset_Low$GoodunderstandingofTheology), na.rm = TRUE) #High knowledge in Psychology mean(as.numeric(Psych_subset_High$GoodunderstandingofTheology), na.rm = TRUE) ## Religious Studies knowledge #Low knowledge in Psychology mean(as.numeric(Psych_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE) #High knowledge in Psychology mean(as.numeric(Psych_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE) ### History ### Hist_subset_Low <- TSR_data[TSR_data$GoodunderstandingofHistory < 3 & TSR_data$GoodunderstandingofHistory != 0, ] Hist_subset_High <- TSR_data[TSR_data$GoodunderstandingofHistory > 3, ] ## Theology knowledge #Low knowledge in History mean(as.numeric(Hist_subset_Low$GoodunderstandingofTheology), na.rm = TRUE) #High knowledge in History mean(as.numeric(Hist_subset_High$GoodunderstandingofTheology), na.rm = TRUE) ## Religious Studies knowledge #Low knowledge in History mean(as.numeric(Hist_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE) #High knowledge in History mean(as.numeric(Hist_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE) ### Ethics ### Ethics_subset_Low <- TSR_data[TSR_data$GoodunderstandingofEthics < 3 & TSR_data$GoodunderstandingofEthics != 0, ] Ethics_subset_High <- TSR_data[TSR_data$GoodunderstandingofEthics > 3, ] ## Theology knowledge #Low knowledge in Ethics mean(as.numeric(Ethics_subset_Low$GoodunderstandingofTheology), na.rm = TRUE) #High knowledge in Ethics mean(as.numeric(Ethics_subset_High$GoodunderstandingofTheology), na.rm = TRUE) ## Religious Studies knowledge #Low knowledge in Ethics mean(as.numeric(Ethics_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE) #High knowledge in Ethics mean(as.numeric(Ethics_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE) ### Politics ### Polit_subset_Low <- TSR_data[TSR_data$GoodunderstandingofPolitics < 3 & TSR_data$GoodunderstandingofPolitics != 0, ] Polit_subset_High <- TSR_data[TSR_data$GoodunderstandingofPolitics > 3, ] ## Theology knowledge #Low knowledge in Politics mean(as.numeric(Polit_subset_Low$GoodunderstandingofTheology), na.rm = TRUE) #High knowledge in Politics mean(as.numeric(Polit_subset_High$GoodunderstandingofTheology), na.rm = TRUE) ## Religious Studies knowledge #Low knowledge in Politics mean(as.numeric(Polit_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE) #High knowledge in Politics mean(as.numeric(Polit_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE) ### English ### Eng_subset_Low <- TSR_data[TSR_data$GoodunderstandingofEnglish < 3 & TSR_data$GoodunderstandingofEnglish != 0, ] Eng_subset_High <- TSR_data[TSR_data$GoodunderstandingofEnglish > 3, ] ## Theology knowledge #Low knowledge in English mean(as.numeric(Eng_subset_Low$GoodunderstandingofTheology), na.rm = TRUE) #High knowledge in English mean(as.numeric(Eng_subset_Low$GoodunderstandingofTheology), na.rm = TRUE) #High knowledge in English mean(as.numeric(Eng_subset_High$GoodunderstandingofTheology), na.rm = TRUE) ## Religious Studies knowledge #Low knowledge in English mean(as.numeric(Eng_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE) #High knowledge in English mean(as.numeric(Eng_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE) ### Math ### Math_subset_Low <- TSR_data[TSR_data$GoodunderstandingofMath < 3 & TSR_data$GoodunderstandingofMath != 0, ] Math_subset_High <- TSR_data[TSR_data$GoodunderstandingofMath > 3, ] ## Theology knowledge #Low knowledge in Math mean(as.numeric(Math_subset_Low$GoodunderstandingofTheology), na.rm = TRUE) #High knowledge in Math mean(as.numeric(Math_subset_High$GoodunderstandingofTheology), na.rm = TRUE) ## Religious Studies knowledge #Low knowledge in Math mean(as.numeric(Math_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE) #High knowledge in Math mean(as.numeric(Math_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE) ### Computer Science ### CompSci_subset_Low <- TSR_data[TSR_data$GoodunderstandingofComputerScience < 3 & TSR_data$GoodunderstandingofComputerScience != 0, ] CompSci_subset_High <- TSR_data[TSR_data$GoodunderstandingofComputerScience > 3, ] ## Theology knowledge #Low knowledge in Computer Science mean(as.numeric(CompSci_subset_Low$GoodunderstandingofTheology), na.rm = TRUE) #High knowledge in Computer Science mean(as.numeric(CompSci_subset_High$GoodunderstandingofTheology), na.rm = TRUE) ## Religious Studies knowledge #Low knowledge in Computer Science mean(as.numeric(CompSci_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE) #High knowledge in Computer Science mean(as.numeric(CompSci_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE) ### Business ### Busi_subset_Low <- TSR_data[TSR_data$GoodunderstandingofBusiness < 3 & TSR_data$GoodunderstandingofBusiness != 0, ] Busi_subset_High <- TSR_data[TSR_data$GoodunderstandingofBusiness > 3, ] ## Theology knowledge #Low knowledge in Business mean(as.numeric(Busi_subset_Low$GoodunderstandingofTheology), na.rm = TRUE) #High knowledge in Business mean(as.numeric(Busi_subset_High$GoodunderstandingofTheology), na.rm = TRUE) ## Religious Studies knowledge #Low knowledge in Business mean(as.numeric(Busi_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE) #High knowledge in Business mean(as.numeric(Busi_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE) ### Philosophy ### Philos_subset_Low <- TSR_data[TSR_data$Philosophyemployability < 3 & TSR_data$Philosophyemployability != 0, ] Philos_subset_High <- TSR_data[TSR_data$Philosophyemployability > 3, ] ## Theology employability #Low employability in Philosophy mean(as.numeric(Philos_subset_Low$Theologyemployability), na.rm = TRUE) #High employability in Philosophy mean(as.numeric(Philos_subset_High$Theologyemployability), na.rm = TRUE) ## Religious Studies employability #Low employability in Philosophy mean(as.numeric(Philos_subset_Low$ReligiousStudiesemployability), na.rm = TRUE) #High employability in Philosophy mean(as.numeric(Philos_subset_High$ReligiousStudiesemployability), na.rm = TRUE) mean(as.numeric(TSR_data$Theologyemployability), na.rm = TRUE) mean(as.numeric(TSR_data$ReligiousStudiesemployability), na.rm = TRUE) mean(as.numeric(TSR_data$Philosophyemployability), na.rm = TRUE) mean(as.numeric(TSR_data$PsychologyEmployability), na.rm = TRUE) mean(as.numeric(TSR_data$Englishemployability), na.rm = TRUE) mean(as.numeric(TSR_data$Mathemployability), na.rm = TRUE) mean(as.numeric(TSR_data$Businessemployability), na.rm = TRUE) mean(as.numeric(TSR_data$Theologyemployability), na.rm = TRUE) mean(as.numeric(TSR_data$ReligiousStudiesemployability), na.rm = TRUE) mean(as.numeric(TSR_data$Philosophyemployability), na.rm = TRUE) mean(as.numeric(TSR_data$PsychologyEmployability), na.rm = TRUE) mean(as.numeric(TSR_data$Englishemployability), na.rm = TRUE) mean(as.numeric(TSR_data$Mathemployability), na.rm = TRUE) mean(as.numeric(TSR_data$Businessemployability), na.rm = TRUE) mean(as.numeric(TSR_data$ComputerScienceemployability), na.rm = TRUE) ### Philosophy ### Philos_subset_Low <- TSR_data[TSR_data$Philosophyemployability < 3 & TSR_data$Philosophyemployability != 0, ] Philos_subset_High <- TSR_data[TSR_data$Philosophyemployability > 3, ] ## Theology employability #Low employability in Philosophy mean(as.numeric(Philos_subset_Low$Theologyemployability), na.rm = TRUE) #High employability in Philosophy mean(as.numeric(Philos_subset_High$Theologyemployability), na.rm = TRUE) ## Religious Studies employability #Low employability in Philosophy mean(as.numeric(Philos_subset_Low$ReligiousStudiesemployability), na.rm = TRUE) #High employability in Philosophy mean(as.numeric(Philos_subset_High$ReligiousStudiesemployability), na.rm = TRUE) ### Sociology ### Soc_subset_Low <- TSR_data[TSR_data$Sociologyemployability < 3 & TSR_data$Sociologyemployability != 0, ] Soc_subset_High <- TSR_data[TSR_data$Sociologyemployability > 3, ] ## Theology employability #Low employability in Sociology mean(as.numeric(Soc_subset_Low$Theologyemployability), na.rm = TRUE) #High employability in Sociology mean(as.numeric(Soc_subset_High$Theologyemployability), na.rm = TRUE) ## Religious Studies employability #Low employability in Sociology mean(as.numeric(Soc_subset_Low$ReligiousStudiesemployability), na.rm = TRUE) #High employability in Sociology mean(as.numeric(Soc_subset_High$ReligiousStudiesemployability), na.rm = TRUE) ### Psychology ### Psych_subset_Low <- TSR_data[TSR_data$PsychologyEmployability < 3 & TSR_data$PsychologyEmployability != 0, ] Psych_subset_High <- TSR_data[TSR_data$PsychologyEmployability > 3, ] ## Theology employability #Low employability in Psychology mean(as.numeric(Psych_subset_Low$Theologyemployability), na.rm = TRUE) #High employability in Psychology mean(as.numeric(Psych_subset_High$Theologyemployability), na.rm = TRUE) ## Religious Studies employability #Low employability in Psychology mean(as.numeric(Psych_subset_Low$ReligiousStudiesemployability), na.rm = TRUE) #High employability in Psychology mean(as.numeric(Psych_subset_High$ReligiousStudiesemployability), na.rm = TRUE) ### History ### Hist_subset_Low <- TSR_data[TSR_data$Historyemployability < 3 & TSR_data$Historyemployability != 0, ] Hist_subset_High <- TSR_data[TSR_data$Historyemployability > 3, ] ## Theology employability #Low employability in History mean(as.numeric(Hist_subset_Low$Theologyemployability), na.rm = TRUE) #High employability in History mean(as.numeric(Hist_subset_High$Theologyemployability), na.rm = TRUE) ## Religious Studies employability #Low employability in History mean(as.numeric(Hist_subset_Low$ReligiousStudiesemployability), na.rm = TRUE) #High employability in History mean(as.numeric(Hist_subset_High$ReligiousStudiesemployability), na.rm = TRUE) ### Ethics ### Ethics_subset_Low <- TSR_data[TSR_data$Ethicsemployability < 3 & TSR_data$Ethicsemployability != 0, ] Ethics_subset_High <- TSR_data[TSR_data$Ethicsemployability > 3, ] ## Theology employability #Low employability in Ethics mean(as.numeric(Ethics_subset_Low$Theologyemployability), na.rm = TRUE) #High employability in Ethics mean(as.numeric(Ethics_subset_High$Theologyemployability), na.rm = TRUE) ## Religious Studies employability #Low employability in Ethics mean(as.numeric(Ethics_subset_Low$ReligiousStudiesemployability), na.rm = TRUE) #High employability in Ethics mean(as.numeric(Ethics_subset_High$ReligiousStudiesemployability), na.rm = TRUE) ### Politics ### Polit_subset_Low <- TSR_data[TSR_data$Politicsemployability < 3 & TSR_data$Politicsemployability != 0, ] Polit_subset_High <- TSR_data[TSR_data$Politicsemployability > 3, ] ## Theology employability #Low employability in Politics mean(as.numeric(Polit_subset_Low$Theologyemployability), na.rm = TRUE) #High employability in Politics mean(as.numeric(Polit_subset_High$Theologyemployability), na.rm = TRUE) ## Religious Studies employability #Low employability in Politics mean(as.numeric(Polit_subset_Low$ReligiousStudiesemployability), na.rm = TRUE) #High employability in Politics mean(as.numeric(Polit_subset_High$ReligiousStudiesemployability), na.rm = TRUE) ### English ### Eng_subset_Low <- TSR_data[TSR_data$Englishemployability < 3 & TSR_data$Englishemployability != 0, ] Eng_subset_High <- TSR_data[TSR_data$Englishemployability > 3, ] ## Theology employability #Low employability in English mean(as.numeric(Eng_subset_Low$Theologyemployability), na.rm = TRUE) #High employability in English mean(as.numeric(Eng_subset_High$Theologyemployability), na.rm = TRUE) ## Religious Studies employability #Low employability in English mean(as.numeric(Eng_subset_Low$ReligiousStudiesemployability), na.rm = TRUE) #High employability in English mean(as.numeric(Eng_subset_High$ReligiousStudiesemployability), na.rm = TRUE) ### Math ### Math_subset_Low <- TSR_data[TSR_data$Mathemployability < 3 & TSR_data$Mathemployability != 0, ] Math_subset_High <- TSR_data[TSR_data$Mathemployability > 3, ] ## Theology employability #Low employability in Math mean(as.numeric(Math_subset_Low$Theologyemployability), na.rm = TRUE) #High employability in Math mean(as.numeric(Math_subset_High$Theologyemployability), na.rm = TRUE) ## Religious Studies employability #Low employability in Math mean(as.numeric(Math_subset_Low$ReligiousStudiesemployability), na.rm = TRUE) #High employability in Math mean(as.numeric(Math_subset_High$ReligiousStudiesemployability), na.rm = TRUE) ### Computer Science ### CompSci_subset_Low <- TSR_data[TSR_data$ComputerScienceemployability < 3 & TSR_data$ComputerScienceemployability != 0, ] CompSci_subset_High <- TSR_data[TSR_data$ComputerScienceemployability > 3, ] ## Theology employability #Low employability in Computer Science mean(as.numeric(CompSci_subset_Low$Theologyemployability), na.rm = TRUE) #High employability in Computer Science mean(as.numeric(CompSci_subset_High$Theologyemployability), na.rm = TRUE) ## Religious Studies employability #Low employability in Computer Science mean(as.numeric(CompSci_subset_Low$ReligiousStudiesemployability), na.rm = TRUE) #High employability in Computer Science mean(as.numeric(CompSci_subset_High$ReligiousStudiesemployability), na.rm = TRUE) ### Business ### Busi_subset_Low <- TSR_data[TSR_data$Businessemployability < 3 & TSR_data$Businessemployability != 0, ] Busi_subset_High <- TSR_data[TSR_data$Businessemployability > 3, ] ## Theology employability #Low employability in Business mean(as.numeric(Busi_subset_Low$Theologyemployability), na.rm = TRUE) #High employability in Business mean(as.numeric(Busi_subset_High$Theologyemployability), na.rm = TRUE) ## Religious Studies employability #Low employability in Business mean(as.numeric(Busi_subset_Low$ReligiousStudiesemployability), na.rm = TRUE) #High employability in Business mean(as.numeric(Busi_subset_High$ReligiousStudiesemployability), na.rm = TRUE)