Merge branch 'main' of https://github.com/kidwellj/re_connect_survey

.Rhistory

@@ -0,0 +1,258 @@
+knitr::opts_chunk$set(echo = TRUE)
+# Load RColorBrewer
+# install.packages("RColorBrewer")
+library(RColorBrewer)
+# 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
+library(ggplot2)
+summaries_data <- read.csv("./data/visualization data.csv")
+# Q22
+#Q8 (school type)
+summaries_data$Q8_recode <- factor(summaries_data$Q8_recode, levels = c(1, 2, 3, 4), labels = c("local authority", "academy", "free school", "independent school"))
+Q22_by_Q8visualization <- ggplot(summaries_data, aes(x = Q8_recode, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar")
+Q22_by_Q8visualization
+#Q9 (school size)
+summaries_data$Q9_recode <- factor(summaries_data$Q9_recode, levels = c(1, 2, 3), labels = c("1-9", "10-25", "25-100"))
+Q22_by_Q9visualization <- ggplot(summaries_data, aes(x = Q9_recode, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar")
+Q22_by_Q9visualization
+#Q10 (school location)
+# Not sure what all the options are?
+Q22_by_Q10visualization <- ggplot(summaries_data, aes(x = Q10, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + coord_flip()
+Q22_by_Q10visualization
+#Q12-14 (school's official religion)
+summaries_data$Q12 <- factor(summaries_data$Q12, levels = c("No", "Yes"), labels = c("No", "Yes"))
+Q22_by_Q12visualization <- ggplot(summaries_data, aes(x = Q12, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar")
+Q22_by_Q12visualization
+#Q15-16 (school's informal religion)
+summaries_data$Q15 <- factor(summaries_data$Q15, levels = c("No", "Yes"), labels = c("No", "Yes"))
+Q22_by_Q15visualization <- ggplot(summaries_data, aes(x = Q15, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar")
+Q22_by_Q15visualization
+#Q21 (respondent personal religious background)
+summaries_data$Q21_binaryrecode <- factor(summaries_data$Q21_binaryrecode, levels = c(1, 2), labels = c("No", "Yes"))
+Q22_by_Q21visualization <- ggplot(summaries_data, aes(x = Q21_binaryrecode, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar")
+Q22_by_Q21visualization
+###OR###
+Q22_by_Q21visualization2 <- ggplot(summaries_data, aes(x = Q21, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + coord_flip()
+Q22_by_Q21visualization2
+#Q4 (teacher's degree subject) - write-in...figure out how to sort -- recode to sort similar subjects
+Q22_by_Q4visualization <- ggplot(summaries_data, aes(x = Q4, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + coord_flip()
+Q22_by_Q4visualization
+#Q18 (respondent gender)
+Q22_by_Q18visualization <- ggplot(summaries_data, aes(x = Q18, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar")
+Q22_by_Q18visualization
+#Q19 (respondent ethnic self-desc)
+Q22_by_Q19visualization <- ggplot(summaries_data, aes(x = Q19, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + coord_flip()
+Q22_by_Q19visualization
+library(ggpubr)
+test_plot_together <- ggarrange(Q22_by_Q4visualization, Q22_by_Q8visualization, Q22_by_Q9visualization, Q22_by_Q10visualization, Q22_by_Q12visualization, Q22_by_Q15visualization, Q22_by_Q18visualization, Q22_by_Q19visualization, Q22_by_Q21visualization, labels = c("Teacher's Degree Subject", "School Type", "School Size", "School Location", "School Formal Religious Affiliation", "School Informal Religious Affiliation", "Respondent Gender", "Respondent Ethnicity", "Respondent Personal Religious Background", ncol = 3, nrow = 3))
+test_plot_together
+# Q24
+summaries_data$Q8_recode <- factor(summaries_data$Q8_recode, levels = c(1, 2, 3, 4), labels = c("local authority", "academy", "free school", "independent school"))
+Q24_byQ8visualization1 <- ggplot(summaries_data, aes(x = understanding.of.nature, fill = Q8_recode)) + geom_bar(position = "stack")
+Q24_byQ8visualization1
+Q24_byQ8visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q8_recode)) + geom_bar(position = "stack")
+Q24_byQ8visualization1
+summaries_data$Understanding.of.nature <- factor(summaries_data$Understanding.of.nature, levels = c("TRUE", "FALSE"), labels = c("TRUE", "FALSE"))
+Q24_byQ8visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q8_recode)) + geom_bar(position = "stack")
+Q24_byQ8visualization1
+Q24_byQ8visualization1 <- ggplot(summaries_data, aes(x = Q8_recode, fill = Understanding.of.nature)) + geom_bar(position = "stack")
+Q24_byQ8visualization1
+Q25_by_Q8visualization <- ggplot(summaries_data, aes(x = Q8_recode, fill = Q25)) + geom_bar(position = "stack")
+Q25_by_Q8visualization
+summaries_data <- read.csv("./data/visualization data.csv")
+# Q24
+summaries_data$Q8_recode <- factor(summaries_data$Q8_recode, levels = c(1, 2, 3, 4), labels = c("local authority", "academy", "free school", "independent school"))
+#summaries_data$Understanding.of.nature <- factor(summaries_data$Understanding.of.nature, levels = c("TRUE", "FALSE"), labels = c("TRUE", "FALSE"))
+Q24_byQ8visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q8_recode)) + geom_bar(position = "stack")
+Q24_byQ8visualization1
+Q24_byQ8visualization2 <- ggplot(summaries_data, aes(x = Relationship.between.spiritual.and.matiral.worlds, fill = Q8_recode)) + geom_bar(position = "stack")
+Q24_byQ8visualization2
+Q24_byQ8visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsbility.towards.the.earth, fill = Q8_recode)) + geom_bar(position = "stack")
+Q24_byQ8visualization3
+Q24_byQ8visualization3 <- ggplot(summaries_data, aes(x = Human.beings.responsbility.towards.the.earth, fill = Q8_recode)) + geom_bar(position = "stack")
+Q24_byQ8visualization3
+Q24_byQ8visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsibility.towards.the.earth, fill = Q8_recode)) + geom_bar(position = "stack")
+Q24_byQ8visualization3
+Q24_byQ8visualization4 <- ggplot(summaries_data, aes(x = Climate.crisis.and.or.diversity, fill = Q8_recode)) + geom_bar(position = "stack")
+Q24_byQ8visualization4
+Q24_by_Q8_allvisualization <- ggarrange(Q24_byQ8visualization1, Q24_byQ8visualization2, Q24_byQ8visualization3, Q24_byQ8visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 2, nrow = 2))
+annotate_figure(Q24_by_Q8_allvisualization, top = text_grob("Units of Work Covered Within RE by School Type"))
+annotate_figure(Q24_by_Q8_allvisualization, top = text_grob("Units of Work Covered Within RE by School Type"))
+Q24_by_Q8_allvisualization
+#Q9 (school size)
+summaries_data$Q9_recode <- factor(summaries_data$Q9_recode, levels = c(1, 2, 3), labels = c("1-9", "10-25", "25-100"))
+Q24_byQ9visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q9_recode)) + geom_bar(position = "stack")
+Q24_byQ9visualization1
+Q24_byQ9visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q9_recode)) + geom_bar(position = "stack")
+Q24_byQ9visualization2 <- ggplot(summaries_data, aes(x = Relationship.between.spiritual.and.matiral.worlds, fill = Q9_recode)) + geom_bar(position = "stack")
+Q24_byQ9visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsibility.towards.the.earth, fill = Q9_recode)) + geom_bar(position = "stack")
+Q24_byQ9visualization4 <- ggplot(summaries_data, aes(x = Climate.crisis.and.or.diversity, fill = Q9_recode)) + geom_bar(position = "stack")
+Q24_by_Q9_allvisualization <- ggarrange(Q24_byQ9visualization1, Q24_byQ9visualization2, Q24_byQ9visualization3, Q24_byQ9visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 2, nrow = 2))
+annotate_figure(Q24_by_Q9_allvisualization, top = text_grob("Units of Work Covered Within RE by School Size"))
+Q24_by_Q8_allvisualization
+Q24_by_Q9_allvisualization
+#Q10 (school location)
+Q24_byQ10visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q10)) + geom_bar(position = "stack") + coord_flip()
+Q24_byQ10visualization2 <- ggplot(summaries_data, aes(x = Relationship.between.spiritual.and.matiral.worlds, fill = Q10)) + geom_bar(position = "stack") + coord_flip()
+Q24_byQ10visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsibility.towards.the.earth, fill = Q10)) + geom_bar(position = "stack") + coord_flip()
+Q24_byQ10visualization4 <- ggplot(summaries_data, aes(x = Climate.crisis.and.or.diversity, fill = Q10)) + geom_bar(position = "stack") + coord_flip()
+Q24_by_Q10_allvisualization <- ggarrange(Q24_byQ10visualization1, Q24_byQ10visualization2, Q24_byQ10visualization3, Q24_byQ10visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 2, nrow = 2))
+annotate_figure(Q24_by_Q10_allvisualization, top = text_grob("Units of Work Covered Within RE by School Location"))
+annotate_figure(Q24_by_Q10_allvisualization, top = text_grob("Units of Work Covered Within RE by School Location"))
+Q24_by_Q10_allvisualization
+#Q10 (school location)
+Q24_byQ10visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q10)) + geom_bar(position = "stack")
+Q24_byQ10visualization2 <- ggplot(summaries_data, aes(x = Relationship.between.spiritual.and.matiral.worlds, fill = Q10)) + geom_bar(position = "stack")
+Q24_byQ10visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsibility.towards.the.earth, fill = Q10)) + geom_bar(position = "stack")
+Q24_byQ10visualization4 <- ggplot(summaries_data, aes(x = Climate.crisis.and.or.diversity, fill = Q10)) + geom_bar(position = "stack")
+Q24_by_Q10_allvisualization <- ggarrange(Q24_byQ10visualization1, Q24_byQ10visualization2, Q24_byQ10visualization3, Q24_byQ10visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 2, nrow = 2))
+annotate_figure(Q24_by_Q10_allvisualization, top = text_grob("Units of Work Covered Within RE by School Location"))
+annotate_figure(Q24_by_Q10_allvisualization, top = text_grob("Units of Work Covered Within RE by School Location"))
+Q24_by_Q10_allvisualization
+Q24_byQ19visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q19)) + geom_bar(position = "stack") + coord_flip()
+Q24_byQ19visualization1
+#Q15-16 (school's informal religion)
+summaries_data$Q15 <- factor(summaries_data$Q15, levels = c("No", "Yes"), labels = c("No", "Yes"))
+Q24_byQ15visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q15)) + geom_bar(position = "stack")
+Q24_byQ15visualization2 <- ggplot(summaries_data, aes(x = Relationship.between.spiritual.and.matiral.worlds, fill = Q15)) + geom_bar(position = "stack")
+Q24_byQ15visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsibility.towards.the.earth, fill = Q15)) + geom_bar(position = "stack")
+Q24_byQ15visualization4 <- ggplot(summaries_data, aes(x = Climate.crisis.and.or.diversity, fill = Q15)) + geom_bar(position = "stack")
+Q24_by_Q15_allvisualization <- ggarrange(Q24_byQ15visualization1, Q24_byQ15visualization2, Q24_byQ15visualization3, Q24_byQ15visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 2, nrow = 2))
+annotate_figure(Q24_by_Q15_allvisualization, top = text_grob("Units of Work Covered Within RE by School Unofficial Religious Affiliation Status"))
+annotate_figure(Q24_by_Q15_allvisualization, top = text_grob("Units of Work Covered Within RE by School Unofficial Religious Affiliation Status"))
+Q24_by_Q15_allvisualization
+Q24_byQ15visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q15)) + geom_bar(position = "stack") + labs(fill = "Unofficial Religious Affiliation")
+Q24_byQ15visualization1
+#Q18 (respondent gender)
+Q24_byQ18visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q18)) + geom_bar(position = "stack") + labs(fill = "Gender")
+Q24_byQ18visualization2 <- ggplot(summaries_data, aes(x = Relationship.between.spiritual.and.matiral.worlds, fill = Q18)) + geom_bar(position = "stack") + labs(fill = "Gender")
+Q24_byQ18visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsibility.towards.the.earth, fill = Q18)) + geom_bar(position = "stack") + labs(fill = "Gender")
+Q24_byQ18visualization4 <- ggplot(summaries_data, aes(x = Climate.crisis.and.or.diversity, fill = Q18)) + geom_bar(position = "stack") + labs(fill = "Gender")
+Q24_by_Q18_allvisualization <- ggarrange(Q24_byQ18visualization1, Q24_byQ18visualization2, Q24_byQ18visualization3, Q24_byQ18visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 2, nrow = 2))
+annotate_figure(Q24_by_Q18_allvisualization, top = text_grob("Units of Work Covered Within RE by Respondent Gender"))
+Q24_by_Q18_allvisualization
+Q24_byQ19visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q19)) + geom_bar(position = "stack") + labs(fill = "Ethicity")
+Q24_byQ19visualization2 <- ggplot(summaries_data, aes(x = Relationship.between.spiritual.and.matiral.worlds, fill = Q19)) + geom_bar(position = "stack") + labs(fill = "Ethicity")
+Q24_byQ19visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsibility.towards.the.earth, fill = Q19)) + geom_bar(position = "stack") + labs(fill = "Ethicity")
+Q24_byQ19visualization4 <- ggplot(summaries_data, aes(x = Climate.crisis.and.or.diversity, fill = Q19)) + geom_bar(position = "stack") + labs(fill = "Ethicity")
+Q24_by_Q19_allvisualization <- ggarrange(Q24_byQ19visualization1, Q24_byQ19visualization2, Q24_byQ19visualization3, Q24_byQ19visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 2, nrow = 2))
+Q24_by_Q19_allvisualization
+Q24_by_Q19_allvisualization <- ggarrange(Q24_byQ19visualization1, Q24_byQ19visualization2, Q24_byQ19visualization3, Q24_byQ19visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 1, nrow = 4))
+annotate_figure(Q24_by_Q19_allvisualization, top = text_grob("Units of Work Covered Within RE by Respondent Ethnic Self-Identity"))
+annotate_figure(Q24_by_Q19_allvisualization, top = text_grob("Units of Work Covered Within RE by Respondent Ethnic Self-Identity"))
+Q24_by_Q19_allvisualization
+# Q25
+#Q8 (school type)
+summaries_data$Q8_recode <- factor(summaries_data$Q8_recode, levels = c(1, 2, 3, 4), labels = c("local authority", "academy", "free school", "independent school"))
+Q25_by_Q8visualization <- ggplot(summaries_data, aes(x = Q8_recode, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Type")
+Q25_by_Q8visualization
+# Q25
+#Q8 (school type)
+summaries_data$Q8_recode <- factor(summaries_data$Q8_recode, levels = c(1, 2, 3, 4), labels = c("local authority", "academy", "free school", "independent school"))
+Q25_by_Q8visualization <- ggplot(summaries_data, aes(x = Q8_recode, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Type")
+Q25_by_Q8visualization
+summaries_data <- read.csv("./data/visualization data.csv")
+summaries_data$Q25 <- factor(summaries_data$Q25, levels = c("Yes", "Maybe", "No"), labels = c("Yes", "Maybe", "No"))
+# Q25
+#Q8 (school type)
+summaries_data$Q8_recode <- factor(summaries_data$Q8_recode, levels = c(1, 2, 3, 4), labels = c("local authority", "academy", "free school", "independent school"))
+Q25_by_Q8visualization <- ggplot(summaries_data, aes(x = Q8_recode, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Type")
+Q25_by_Q8visualization
+Q25_by_Q8visualization <- ggplot(summaries_data, aes(x = Q8_recode, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Type") + coord_flip()
+Q25_by_Q8visualization
+#Q9 (school size)
+summaries_data$Q9_recode <- factor(summaries_data$Q9_recode, levels = c(1, 2, 3), labels = c("1-9", "10-25", "25-100")) + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Faculty Size")
+#Q9 (school size)
+summaries_data$Q9_recode <- factor(summaries_data$Q9_recode, levels = c(1, 2, 3), labels = c("1-9", "10-25", "25-100"))
+Q25_by_Q9visualization <- ggplot(summaries_data, aes(x = Q9_recode, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Faculty Size")
+Q25_by_Q9visualization
+#Q10 (school location)
+Q25_by_Q10visualization <- ggplot(summaries_data, aes(x = Q10, fill = Q25)) + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Location") + coord_flip()
+Q25_by_Q10visualization
+#Q10 (school location)
+Q25_by_Q10visualization <- ggplot(summaries_data, aes(x = Q10, fill = Q25)) + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Location") + coord_flip()
+Q25_by_Q10visualization
+#Q10 (school location)
+Q25_by_Q10visualization <- ggplot(summaries_data, aes(x = Q10, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Location") + coord_flip()
+Q25_by_Q10visualization
+Q25_by_Q12visualization <- ggplot(summaries_data, aes(x = Q12, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Official Religious Affiliation Status")
+Q25_by_Q12visualization
+Q25_by_Q15visualization <- ggplot(summaries_data, aes(x = Q15, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Unofficial Religious Affiliation Status")
+Q25_by_Q15visualization
+Q25_by_Q21visualization <- ggplot(summaries_data, aes(x = Q21_binaryrecode, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "Respondent Personal Religious Affiliation")
+Q25_by_Q21visualization
+#Q21 (respondent personal religious background)
+summaries_data$Q21_binaryrecode <- factor(summaries_data$Q21_binaryrecode, levels = c(1, 2), labels = c("No", "Yes"))
+Q25_by_Q21visualization <- ggplot(summaries_data, aes(x = Q21_binaryrecode, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "Respondent Personal Religious Affiliation")
+Q25_by_Q21visualization
+#Q19 (respondent ethnic self-desc)
+Q25_by_Q19visualization <- ggplot(summaries_data, aes(x = Q19, fill = Q25)) + geom_bar(position = "stack") + coord_flip() + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "Ethnicity")
+Q25_by_Q19visualization
+Q22_by_Q8visualization <- ggplot(summaries_data, aes(x = Q8_recode, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Syllabus Allows Exploration of Relationship Between Environment and Religion/Worldview")
+Q22_by_Q8visualization
+Q22_by_Q9visualization <- ggplot(summaries_data, aes(x = Q9_recode, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Syllabus Allows Exploration of Relationship Between Environment and Religion/Worldview")
+Q22_by_Q9visualization
+#Q10 (school location)
+Q22_by_Q10visualization <- ggplot(summaries_data, aes(x = Q10, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + coord_flip() + labs(x = "School Location") + labs(y = "Syllabus Allows Exploration of Relationship Between Environment and Religion/Worldview")
+Q22_by_Q10visualization
+#Q12-14 (school's official religion)
+summaries_data$Q12 <- factor(summaries_data$Q12, levels = c("No", "Yes"), labels = c("No", "Yes"))
+Q22_by_Q12visualization <- ggplot(summaries_data, aes(x = Q12, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Official Relgious Affiliation") + labs(y = "Syllabus Allows Exploration of Relationship Between Environment and Religion/Worldview")
+Q22_by_Q12visualization
+#Q23_by_Q8visualization <- ggplot(summaries_data, aes(x = Q8_recode, y = cbind(Q23_1, Q23_2))) + stat_summary(fun = "mean", geom = "bar")
+Q23_by_Q8visualization1 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q23_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Environment is a Prominent Syllabus Theme")
+Q23_by_Q8visualization1
+# Q27 -- May need 7 different graphs per... time consuming but not too difficult
+#Q8 (school type)
+summaries_data$Q8_recode <- factor(summaries_data$Q8_recode, levels = c(1, 2, 3, 4), labels = c("local authority", "academy", "free school", "independent school"))
+Q27_by_Q8visualization1 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Material World")
+Q27_by_Q8visualization2 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Meaning, Purpose, and Value of Nature")
+Q27_by_Q8visualization3 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_3)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Climate/Biodiversity Crisis")
+Q27_by_Q8visualization3 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_3)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Climate/Biodiversity Crisis")
+Q27_by_Q8visualization4 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_4)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Locations of Passages on Environment in Sacred Texts or Key Writings")
+Q27_by_Q8visualization5 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_5)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Material World Relate to Practice")
+Q27_by_Q8visualization6 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_6)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "How Live Out Beliefs about Meaning, Prupose, and Value of Nature")
+Q27_by_Q8visualization7 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_7)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Put Beliefs about Climate/Biodiversity Crisis into Practice")
+Q27_by_Q8allvisualization <- ggarrange(Q27_byQ8visualization1, Q27_byQ8visualization2, Q27_byQ8visualization3, Q27_byQ8visualization4, Q27_by_Q8visualization5, Q27_by_Q8visualization6, Q27_by_Q8visualization7, labels = c("Material World", "Meaning, Purpose, and Value of Nature", "Climate/Biodiversity Crisis", "Locations of Passages on Environment in Sacred Texts or Key Writings","Material World Relate to Practice", "How Live Out Beliefs about Meaning, Prupose, and Value of Nature","Put Beliefs about Climate/Biodiversity Crisis into Practice", ncol = 2, nrow = 2))
+Q27_by_Q8allvisualization <- ggarrange(Q27_by_Q8visualization1, Q27_by_Q8visualization2, Q27_by_Q8visualization3, Q27_by_Q8visualization4, Q27_by_Q8visualization5, Q27_by_Q8visualization6, Q27_by_Q8visualization7, labels = c("Material World", "Meaning, Purpose, and Value of Nature", "Climate/Biodiversity Crisis", "Locations of Passages on Environment in Sacred Texts or Key Writings","Material World Relate to Practice", "How Live Out Beliefs about Meaning, Prupose, and Value of Nature","Put Beliefs about Climate/Biodiversity Crisis into Practice", ncol = 2, nrow = 2))
+annotate_figure(Q27_by_Q8_allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+Q27_by_Q8visualization1
+summaries_data <- read.csv("./data/visualization data.csv")
+# Q27 -- May need 7 different graphs per... time consuming but not too difficult
+#Q8 (school type)
+summaries_data$Q8_recode <- factor(summaries_data$Q8_recode, levels = c(1, 2, 3, 4), labels = c("local authority", "academy", "free school", "independent school"))
+Q27_by_Q8visualization1 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Material World")
+Q27_by_Q8visualization1
+Q27_by_Q8visualization2 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Meaning, Purpose, and Value of Nature")
+Q27_by_Q8visualization3 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_3)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Climate/Biodiversity Crisis")
+Q27_by_Q8visualization4 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_4)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Locations of Passages on Environment in Sacred Texts or Key Writings")
+Q27_by_Q8visualization5 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_5)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Material World Relate to Practice")
+Q27_by_Q8visualization6 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_6)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "How Live Out Beliefs about Meaning, Prupose, and Value of Nature")
+Q27_by_Q8visualization7 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_7)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Put Beliefs about Climate/Biodiversity Crisis into Practice")
+Q27_by_Q8allvisualization <- ggarrange(Q27_by_Q8visualization1, Q27_by_Q8visualization2, Q27_by_Q8visualization3, Q27_by_Q8visualization4, Q27_by_Q8visualization5, Q27_by_Q8visualization6, Q27_by_Q8visualization7, labels = c("Material World", "Meaning, Purpose, and Value of Nature", "Climate/Biodiversity Crisis", "Locations of Passages on Environment in Sacred Texts or Key Writings","Material World Relate to Practice", "How Live Out Beliefs about Meaning, Prupose, and Value of Nature","Put Beliefs about Climate/Biodiversity Crisis into Practice", ncol = 2, nrow = 2))
+annotate_figure(Q27_by_Q8_allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+annotate_figure(Q27_by_Q8allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+Q27_by_Q8allvisualization <- ggarrange(Q27_by_Q8visualization1, Q27_by_Q8visualization2, Q27_by_Q8visualization3, Q27_by_Q8visualization4, Q27_by_Q8visualization5, Q27_by_Q8visualization6, Q27_by_Q8visualization7, labels = c("Material World", "Meaning, Purpose, and Value of Nature", "Climate/Biodiversity Crisis", "Locations of Passages on Environment in Sacred Texts or Key Writings","Material World Relate to Practice", "How Live Out Beliefs about Meaning, Prupose, and Value of Nature","Put Beliefs about Climate/Biodiversity Crisis into Practice", ncol = 2, nrow = 4))
+annotate_figure(Q27_by_Q8allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+Q27_by_Q9visualization1 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Size") + labs(y = "Material World")
+Q27_by_Q9visualization1
+#Q9 (school size)
+summaries_data$Q9_recode <- factor(summaries_data$Q9_recode, levels = c(1, 2, 3), labels = c("1-9", "10-25", "25-100"))
+Q27_by_Q9visualization1 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Size") + labs(y = "Material World")
+Q27_by_Q9visualization1
+Q27_by_Q9visualization2 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Meaning, Purpose, and Value of Nature")
+Q27_by_Q9visualization3 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_3)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Climate/Biodiversity Crisis")
+Q27_by_Q9visualization4 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_4)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Locations of Passages on Environment in Sacred Texts or Key Writings")
+Q27_by_Q9visualization5 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_5)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Material World Relate to Practice")
+Q27_by_Q9visualization6 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_6)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "How Live Out Beliefs about Meaning, Prupose, and Value of Nature")
+Q27_by_Q9visualization7 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_7)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Put Beliefs about Climate/Biodiversity Crisis into Practice")
+Q27_by_Q9allvisualization <- ggarrange(Q27_by_Q9visualization1, Q27_by_Q9visualization2, Q27_by_Q9visualization3, Q27_by_Q9visualization4, Q27_by_Q9visualization5, Q27_by_Q9visualization6, Q27_by_Q9visualization7, labels = c("Material World", "Meaning, Purpose, and Value of Nature", "Climate/Biodiversity Crisis", "Locations of Passages on Environment in Sacred Texts or Key Writings","Material World Relate to Practice", "How Live Out Beliefs about Meaning, Prupose, and Value of Nature","Put Beliefs about Climate/Biodiversity Crisis into Practice", ncol = 2, nrow = 4))
+annotate_figure(Q27_by_Q8allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+Q27_by_Q9allvisualization
+annotate_figure(Q27_by_Q9allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+annotate_figure(Q27_by_Q9allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+Q27_by_Q9allvisualization
+#Q12-14 (school's official religion)
+summaries_data$Q12 <- factor(summaries_data$Q12, levels = c("No", "Yes"), labels = c("No", "Yes"))
+Q27_by_Q12visualization1 <- ggplot(summaries_data, aes(x = Q12, y = Q27_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Official Religious Affiliation") + labs(y = "Material World")
+Q27_by_Q12visualization1

Connect Project R Markdown.Rmd

@@ -138,18 +138,516 @@ table(Q3_1factor)
     - Q18 (respondent gender)
     - Q19 (respondent ethnic self-desc)
     
-```{r Plots}
+```{r Plots Q22}
+library(ggplot2)
+summaries_data <- read.csv("./data/visualization data.csv")
+
 # Q22
+   #Q8 (school type)
+summaries_data$Q8_recode <- factor(summaries_data$Q8_recode, levels = c(1, 2, 3, 4), labels = c("local authority", "academy", "free school", "independent school"))
 
+Q22_by_Q8visualization <- ggplot(summaries_data, aes(x = Q8_recode, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Syllabus Allows Exploration of Relationship Between Environment and Religion/Worldview")
+Q22_by_Q8visualization
+
+  #Q9 (school size)
+summaries_data$Q9_recode <- factor(summaries_data$Q9_recode, levels = c(1, 2, 3), labels = c("1-9", "10-25", "25-100"))
+
+Q22_by_Q9visualization <- ggplot(summaries_data, aes(x = Q9_recode, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Syllabus Allows Exploration of Relationship Between Environment and Religion/Worldview")
+Q22_by_Q9visualization
+
+  #Q10 (school location)
+Q22_by_Q10visualization <- ggplot(summaries_data, aes(x = Q10, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + coord_flip() + labs(x = "School Location") + labs(y = "Syllabus Allows Exploration of Relationship Between Environment and Religion/Worldview")
+Q22_by_Q10visualization
+
+  #Q12-14 (school's official religion) 
+summaries_data$Q12 <- factor(summaries_data$Q12, levels = c("No", "Yes"), labels = c("No", "Yes"))
+
+Q22_by_Q12visualization <- ggplot(summaries_data, aes(x = Q12, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Official Relgious Affiliation") + labs(y = "Syllabus Allows Exploration of Relationship Between Environment and Religion/Worldview")
+Q22_by_Q12visualization
+
+  #Q15-16 (school's informal religion)
+summaries_data$Q15 <- factor(summaries_data$Q15, levels = c("No", "Yes"), labels = c("No", "Yes"))
+Q22_by_Q15visualization <- ggplot(summaries_data, aes(x = Q15, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Unofficial Religious Affiliation") + labs(y = "Syllabus Allows Exploration of Relationship Between Environment and Religion/Worldview")
+Q22_by_Q15visualization
+
+  #Q21 (respondent personal religious background)
+summaries_data$Q21_binaryrecode <- factor(summaries_data$Q21_binaryrecode, levels = c(1, 2), labels = c("No", "Yes"))
+
+Q22_by_Q21visualization <- ggplot(summaries_data, aes(x = Q21_binaryrecode, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Personal Religious Background") + labs(y = "Syllabus Allows Exploration of Relationship Between Environment and Religion/Worldview")
+Q22_by_Q21visualization
+
+
+  #Q4 (teacher's degree subject) - write-in...figure out how to sort -- recode to sort similar subjects
+Q22_by_Q4visualization <- ggplot(summaries_data, aes(x = Q4, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + coord_flip()
+Q22_by_Q4visualization
+
+  #Q18 (respondent gender)
+Q22_by_Q18visualization <- ggplot(summaries_data, aes(x = Q18, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Gender") + labs(y = "Syllabus Allows Exploration of Relationship Between Environment and Religion/Worldview")
+Q22_by_Q18visualization
+
+  #Q19 (respondent ethnic self-desc)
+Q22_by_Q19visualization <- ggplot(summaries_data, aes(x = Q19, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar") + coord_flip() + labs(x = "Ethnicity") + labs(y = "Syllabus Allows Exploration of Relationship Between Environment and Religion/Worldview")
+Q22_by_Q19visualization
+
+
+install.packages("ggpubr")
+#library(ggplot2)
+
+library(ggpubr)
+
+test_plot_together <- ggarrange(Q22_by_Q4visualization, Q22_by_Q8visualization, Q22_by_Q9visualization, Q22_by_Q10visualization, Q22_by_Q12visualization, Q22_by_Q15visualization, Q22_by_Q18visualization, Q22_by_Q19visualization, Q22_by_Q21visualization, labels = c("Teacher's Degree Subject", "School Type", "School Size", "School Location", "School Formal Religious Affiliation", "School Informal Religious Affiliation", "Respondent Gender", "Respondent Ethnicity", "Respondent Personal Religious Background", ncol = 3, nrow = 3))
+
+test_plot_together
+```
+
+```{r Plots Q23}
+summaries_data <- read.csv("./data/visualization data.csv")
 # Q23
+   #Q8 (school type)
+summaries_data$Q8_recode <- factor(summaries_data$Q8_recode, levels = c(1, 2, 3, 4), labels = c("local authority", "academy", "free school", "independent school"))
+ 
+ #split??
 
+#Q23_by_Q8visualization <- ggplot(summaries_data, aes(x = Q8_recode, y = cbind(Q23_1, Q23_2))) + stat_summary(fun = "mean", geom = "bar")
+Q23_by_Q8visualization1 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q23_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Environment is a Prominent Syllabus Theme")
+Q23_by_Q8visualization1
+
+Q23_by_Q8visualization2 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q23_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Environment Should be a Prominent Syllabus Theme")
+Q23_by_Q8visualization2
+
+  #Q9 (school size)
+summaries_data$Q9_recode <- factor(summaries_data$Q9_recode, levels = c(1, 2, 3), labels = c("1-9", "10-25", "25-100"))
+
+Q23_by_Q9visualization1 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q23_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Environment is a Prominent Syllabus Theme")
+Q23_by_Q9visualization1
+
+Q23_by_Q9visualization2 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q23_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Environment Should be a Prominent Syllabus Theme")
+Q23_by_Q9visualization2
+
+  #Q10 (school location)
+Q23_by_Q10visualization1 <- ggplot(summaries_data, aes(x = Q10, y = Q23_1)) + stat_summary(fun = "mean", geom = "bar") + coord_flip() + labs(x = "School Location") + labs(y = "Environment is a Prominent Syllabus Theme")
+Q23_by_Q10visualization1
+
+Q23_by_Q10visualization2 <- ggplot(summaries_data, aes(x = Q10, y = Q23_2)) + stat_summary(fun = "mean", geom = "bar") + coord_flip() + labs(x = "School Location") + labs(y = "Environment Should be a Prominent Syllabus Theme")
+Q23_by_Q10visualization2
+
+  #Q12-14 (school's official religion) 
+summaries_data$Q12 <- factor(summaries_data$Q12, levels = c("No", "Yes"), labels = c("No", "Yes"))
+
+Q23_by_Q12visualization1 <- ggplot(summaries_data, aes(x = Q12, y = Q23_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Official Religious Affiliation") + labs(y = "Environment is a Prominent Syllabus Theme")
+Q23_by_Q12visualization1
+
+Q23_by_Q12visualization2 <- ggplot(summaries_data, aes(x = Q12, y = Q23_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Official Religious Affiliation") + labs(y = "Environment Should be a Prominent Syllabus Theme")
+Q23_by_Q12visualization2
+
+  #Q15-16 (school's informal religion)
+summaries_data$Q15 <- factor(summaries_data$Q15, levels = c("No", "Yes"), labels = c("No", "Yes"))
+
+Q23_by_Q15visualization1 <- ggplot(summaries_data, aes(x = Q15, y = Q23_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Unofficial Religious Affiliation") + labs(y = "Environment is a Prominent Syllabus Theme")
+Q23_by_Q15visualization1
+
+Q23_by_Q15visualization2 <- ggplot(summaries_data, aes(x = Q15, y = Q23_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Unofficial Religious Affiliation") + labs(y = "Environment Should be a Prominent Syllabus Theme")
+Q23_by_Q15visualization2
+
+  #Q21 (respondent personal religious background)
+summaries_data$Q21_binaryrecode <- factor(summaries_data$Q21_binaryrecode, levels = c(1, 2), labels = c("No", "Yes"))
+
+Q23_by_Q21visualization1 <- ggplot(summaries_data, aes(x = Q21_binaryrecode, y = Q23_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Personal Religious Background") + labs(y = "Environment is a Prominent Syllabus Theme")
+Q23_by_Q21visualization1
+
+Q23_by_Q21visualization2 <- ggplot(summaries_data, aes(x = Q21_binaryrecode, y = Q23_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Personal Religious Background") + labs(y = "Environment Should be a Prominent Syllabus Theme")
+Q23_by_Q21visualization2
+
+  #Q4 (teacher's degree subject) - write-in...figure out how to sort
+
+  #Q18 (respondent gender)
+Q23_by_Q18visualization1 <- ggplot(summaries_data, aes(x = Q18, y = Q23_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Gender") + labs(y = "Environment is a Prominent Syllabus Theme")
+Q23_by_Q18visualization1
+
+Q23_by_Q18visualization2 <- ggplot(summaries_data, aes(x = Q18, y = Q23_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Gender") + labs(y = "Environment Should be a Prominent Syllabus Theme")
+Q23_by_Q18visualization2
+
+  #Q19 (respondent ethnic self-desc)
+Q23_by_Q19visualization1 <- ggplot(summaries_data, aes(x = Q19, y = Q23_1)) + stat_summary(fun = "mean", geom = "bar") + coord_flip() + labs(x = "Ethnicity") + labs(y = "Environment is a Prominent Syllabus Theme")
+Q23_by_Q19visualization1
+
+Q23_by_Q19visualization2 <- ggplot(summaries_data, aes(x = Q19, y = Q23_2)) + stat_summary(fun = "mean", geom = "bar") + coord_flip() + labs(x = "Ethnicity") + labs(y = "Environment Should be a Prominent Syllabus Theme")
+Q23_by_Q19visualization2
+
+```
+
+```{r Plots Q24}
+summaries_data <- read.csv("./data/visualization data.csv")
 # Q24
+  #Q8(school type)
+summaries_data$Q8_recode <- factor(summaries_data$Q8_recode, levels = c(1, 2, 3, 4), labels = c("local authority", "academy", "free school", "independent school"))
+
+Q24_byQ8visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q8_recode)) + geom_bar(position = "stack") + labs(fill = "School Type")
+Q24_byQ8visualization1
+
+Q24_byQ8visualization2 <- ggplot(summaries_data, aes(x = Relationship.between.spiritual.and.matiral.worlds, fill = Q8_recode)) + geom_bar(position = "stack") + labs(fill = "School Type")
+Q24_byQ8visualization2
+
+Q24_byQ8visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsibility.towards.the.earth, fill = Q8_recode)) + geom_bar(position = "stack") + labs(fill = "School Type")
+Q24_byQ8visualization3
+
+Q24_byQ8visualization4 <- ggplot(summaries_data, aes(x = Climate.crisis.and.or.diversity, fill = Q8_recode)) + geom_bar(position = "stack") + labs(fill = "School Type")
+Q24_byQ8visualization4
+
+Q24_by_Q8_allvisualization <- ggarrange(Q24_byQ8visualization1, Q24_byQ8visualization2, Q24_byQ8visualization3, Q24_byQ8visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 2, nrow = 2))
+annotate_figure(Q24_by_Q8_allvisualization, top = text_grob("Units of Work Covered Within RE by School Type"))
+Q24_by_Q8_allvisualization
+
+  #Q9 (school size)
+summaries_data$Q9_recode <- factor(summaries_data$Q9_recode, levels = c(1, 2, 3), labels = c("1-9", "10-25", "25-100"))
+
+Q24_byQ9visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q9_recode)) + geom_bar(position = "stack") + labs(fill = "School Faculty Size")
+Q24_byQ9visualization1
+
+Q24_byQ9visualization2 <- ggplot(summaries_data, aes(x = Relationship.between.spiritual.and.matiral.worlds, fill = Q9_recode)) + geom_bar(position = "stack") + labs(fill = "School Faculty Size")
+Q24_byQ9visualization2
+
+Q24_byQ9visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsibility.towards.the.earth, fill = Q9_recode)) + geom_bar(position = "stack") + labs(fill = "School Faculty Size")
+Q24_byQ9visualization3
+
+Q24_byQ9visualization4 <- ggplot(summaries_data, aes(x = Climate.crisis.and.or.diversity, fill = Q9_recode)) + geom_bar(position = "stack") + labs(fill = "School Faculty Size")
+Q24_byQ9visualization4
+
+Q24_by_Q9_allvisualization <- ggarrange(Q24_byQ9visualization1, Q24_byQ9visualization2, Q24_byQ9visualization3, Q24_byQ9visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 2, nrow = 2))
+annotate_figure(Q24_by_Q9_allvisualization, top = text_grob("Units of Work Covered Within RE by School Size"))
+Q24_by_Q9_allvisualization
+
+
+  #Q10 (school location)
+Q24_byQ10visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q10)) + geom_bar(position = "stack") + labs(fill = "School Location")
+Q24_byQ10visualization1
+
+Q24_byQ10visualization2 <- ggplot(summaries_data, aes(x = Relationship.between.spiritual.and.matiral.worlds, fill = Q10)) + geom_bar(position = "stack") + labs(fill = "School Location")
+Q24_byQ10visualization2
+
+Q24_byQ10visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsibility.towards.the.earth, fill = Q10)) + geom_bar(position = "stack") + labs(fill = "School Location")
+Q24_byQ10visualization3
+
+Q24_byQ10visualization4 <- ggplot(summaries_data, aes(x = Climate.crisis.and.or.diversity, fill = Q10)) + geom_bar(position = "stack") + labs(fill = "School Location")
+Q24_byQ10visualization4
+
+Q24_by_Q10_allvisualization <- ggarrange(Q24_byQ10visualization1, Q24_byQ10visualization2, Q24_byQ10visualization3, Q24_byQ10visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 2, nrow = 2))
+annotate_figure(Q24_by_Q10_allvisualization, top = text_grob("Units of Work Covered Within RE by School Location"))
+Q24_by_Q10_allvisualization
+
+  #Q12-14 (school's official religion) 
+summaries_data$Q12 <- factor(summaries_data$Q12, levels = c("No", "Yes"), labels = c("No", "Yes"))
+
+Q24_byQ12visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q12)) + geom_bar(position = "stack") + labs(fill = "Official Religious Affliiation")
+Q24_byQ12visualization1
+
+Q24_byQ12visualization2 <- ggplot(summaries_data, aes(x = Relationship.between.spiritual.and.matiral.worlds, fill = Q12)) + geom_bar(position = "stack") + labs(fill = "Official Religious Affliiation")
+Q24_byQ12visualization2
+
+Q24_byQ12visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsibility.towards.the.earth, fill = Q12)) + geom_bar(position = "stack") + labs(fill = "Official Religious Affliiation")
+Q24_byQ12visualization3
+
+Q24_byQ12visualization4 <- ggplot(summaries_data, aes(x = Climate.crisis.and.or.diversity, fill = Q12)) + geom_bar(position = "stack") + labs(fill = "Official Religious Affliiation")
+Q24_byQ12visualization4
+
+Q24_by_Q12_allvisualization <- ggarrange(Q24_byQ12visualization1, Q24_byQ12visualization2, Q24_byQ12visualization3, Q24_byQ12visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 2, nrow = 2))
+annotate_figure(Q24_by_Q12_allvisualization, top = text_grob("Units of Work Covered Within RE by School Official Religious Affiliation Status"))
+Q24_by_Q12_allvisualization
+
+
+  #Q15-16 (school's informal religion)
+summaries_data$Q15 <- factor(summaries_data$Q15, levels = c("No", "Yes"), labels = c("No", "Yes"))
+
+Q24_byQ15visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q15)) + geom_bar(position = "stack") + labs(fill = "Unofficial Religious Affiliation")
+Q24_byQ15visualization1
+
+Q24_byQ15visualization2 <- ggplot(summaries_data, aes(x = Relationship.between.spiritual.and.matiral.worlds, fill = Q15)) + geom_bar(position = "stack") + labs(fill = "Unofficial Religious Affiliation")
+Q24_byQ15visualization2
+
+Q24_byQ15visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsibility.towards.the.earth, fill = Q15)) + geom_bar(position = "stack") + labs(fill = "Unofficial Religious Affiliation")
+Q24_byQ15visualization3
+
+Q24_byQ15visualization4 <- ggplot(summaries_data, aes(x = Climate.crisis.and.or.diversity, fill = Q15)) + geom_bar(position = "stack") + labs(fill = "Unofficial Religious Affiliation")
+Q24_byQ15visualization4
+
+Q24_by_Q15_allvisualization <- ggarrange(Q24_byQ15visualization1, Q24_byQ15visualization2, Q24_byQ15visualization3, Q24_byQ15visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 2, nrow = 2))
+annotate_figure(Q24_by_Q15_allvisualization, top = text_grob("Units of Work Covered Within RE by School Unofficial Religious Affiliation Status"))
+Q24_by_Q15_allvisualization
+
+  #Q4 (teacher's degree subject) - write-in...figure out how to sort
+
+  #Q18 (respondent gender)
+Q24_byQ18visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q18)) + geom_bar(position = "stack") + labs(fill = "Gender")
+Q24_byQ18visualization1
+
+Q24_byQ18visualization2 <- ggplot(summaries_data, aes(x = Relationship.between.spiritual.and.matiral.worlds, fill = Q18)) + geom_bar(position = "stack") + labs(fill = "Gender")
+Q24_byQ18visualization2
+
+Q24_byQ18visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsibility.towards.the.earth, fill = Q18)) + geom_bar(position = "stack") + labs(fill = "Gender")
+Q24_byQ18visualization3
+
+Q24_byQ18visualization4 <- ggplot(summaries_data, aes(x = Climate.crisis.and.or.diversity, fill = Q18)) + geom_bar(position = "stack") + labs(fill = "Gender")
+Q24_byQ18visualization4
+
+Q24_by_Q18_allvisualization <- ggarrange(Q24_byQ18visualization1, Q24_byQ18visualization2, Q24_byQ18visualization3, Q24_byQ18visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 2, nrow = 2))
+annotate_figure(Q24_by_Q18_allvisualization, top = text_grob("Units of Work Covered Within RE by Respondent Gender"))
+Q24_by_Q18_allvisualization
+
+
+  #Q19 (respondent ethnic self-desc)
+
+Q24_byQ19visualization1 <- ggplot(summaries_data, aes(x = Understanding.of.nature, fill = Q19)) + geom_bar(position = "stack") + labs(fill = "Ethicity")
+Q24_byQ19visualization1
+
+Q24_byQ19visualization2 <- ggplot(summaries_data, aes(x = Relationship.between.spiritual.and.matiral.worlds, fill = Q19)) + geom_bar(position = "stack") + labs(fill = "Ethicity")
+Q24_byQ19visualization2
+
+Q24_byQ19visualization3 <- ggplot(summaries_data, aes(x = Human.beings..responsibility.towards.the.earth, fill = Q19)) + geom_bar(position = "stack") + labs(fill = "Ethicity")
+Q24_byQ19visualization3
+
+Q24_byQ19visualization4 <- ggplot(summaries_data, aes(x = Climate.crisis.and.or.diversity, fill = Q19)) + geom_bar(position = "stack") + labs(fill = "Ethicity")
+Q24_byQ19visualization4
+
+Q24_by_Q19_allvisualization <- ggarrange(Q24_byQ19visualization1, Q24_byQ19visualization2, Q24_byQ19visualization3, Q24_byQ19visualization4, labels = c("Understanding of Nature", "Relationship Between Spiritual and Material Worlds", "Human Beings' Responsibility Towards the Earth", "Climate Crisis and/or Diversity", ncol = 1, nrow = 4))
+annotate_figure(Q24_by_Q19_allvisualization, top = text_grob("Units of Work Covered Within RE by Respondent Ethnic Self-Identity"))
+Q24_by_Q19_allvisualization
+
+
+```
+
+```{r Plots Q25}
+
+summaries_data <- read.csv("./data/visualization data.csv")
+summaries_data$Q25 <- factor(summaries_data$Q25, levels = c("Yes", "Maybe", "No"), labels = c("Yes", "Maybe", "No"))
 
 # Q25
+   #Q8 (school type)
+summaries_data$Q8_recode <- factor(summaries_data$Q8_recode, levels = c(1, 2, 3, 4), labels = c("local authority", "academy", "free school", "independent school"))
+
+Q25_by_Q8visualization <- ggplot(summaries_data, aes(x = Q8_recode, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Type") + coord_flip()
+Q25_by_Q8visualization
+
+  #Q9 (school size)
+summaries_data$Q9_recode <- factor(summaries_data$Q9_recode, levels = c(1, 2, 3), labels = c("1-9", "10-25", "25-100"))
+
+Q25_by_Q9visualization <- ggplot(summaries_data, aes(x = Q9_recode, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Faculty Size")
+Q25_by_Q9visualization
+
+  #Q10 (school location)
+Q25_by_Q10visualization <- ggplot(summaries_data, aes(x = Q10, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Location") + coord_flip()
+Q25_by_Q10visualization
+
+  #Q12-14 (school's official religion) 
+summaries_data$Q12 <- factor(summaries_data$Q12, levels = c("No", "Yes"), labels = c("No", "Yes"))
+
+Q25_by_Q12visualization <- ggplot(summaries_data, aes(x = Q12, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Official Religious Affiliation Status")
+Q25_by_Q12visualization
+
+  #Q15-16 (school's informal religion)
+summaries_data$Q15 <- factor(summaries_data$Q15, levels = c("No", "Yes"), labels = c("No", "Yes"))
+
+Q25_by_Q15visualization <- ggplot(summaries_data, aes(x = Q15, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "School Unofficial Religious Affiliation Status")
+Q25_by_Q15visualization
+
+  #Q21 (respondent personal religious background)
+summaries_data$Q21_binaryrecode <- factor(summaries_data$Q21_binaryrecode, levels = c(1, 2), labels = c("No", "Yes"))
+
+Q25_by_Q21visualization <- ggplot(summaries_data, aes(x = Q21_binaryrecode, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "Respondent Personal Religious Affiliation")
+Q25_by_Q21visualization
+
+  #Q4 (teacher's degree subject) - write-in...figure out how to sort
+
+  #Q18 (respondent gender)
+Q25_by_Q18visualization <- ggplot(summaries_data, aes(x = Q18, fill = Q25)) + geom_bar(position = "stack") + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "Gender")
+Q25_by_Q18visualization
+
+  #Q19 (respondent ethnic self-desc)
+Q25_by_Q19visualization <- ggplot(summaries_data, aes(x = Q19, fill = Q25)) + geom_bar(position = "stack") + coord_flip() + labs(fill = "Want to Explore Environment as a Theme") + labs(x = "Ethnicity")
+Q25_by_Q19visualization
+
+```
+
+```{r Plots Q26}
+# Q26 -- This one is more tricky since there are 9 tick box options as a multi-response. There would need to be 9x graphs per subsetting resulting in 9x9 graphs...81. I can do them, but I'm not sure if it would be the best way to do this. Similar to Q27, which would be 9x7 graphs the way I'm doing them now
+```
+
+```{r Plots Q27}
+summaries_data <- read.csv("./data/visualization data.csv")
+# Q27 -- May need 7 different graphs per... time consuming but not too difficult
+   #Q8 (school type)
+summaries_data$Q8_recode <- factor(summaries_data$Q8_recode, levels = c(1, 2, 3, 4), labels = c("local authority", "academy", "free school", "independent school"))
+
+Q27_by_Q8visualization1 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Material World")
+Q27_by_Q8visualization1
+
+Q27_by_Q8visualization2 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Meaning, Purpose, and Value of Nature")
+
+Q27_by_Q8visualization3 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_3)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Climate/Biodiversity Crisis")
+
+Q27_by_Q8visualization4 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_4)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Locations of Passages on Environment in Sacred Texts or Key Writings")
+
+Q27_by_Q8visualization5 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_5)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Material World Relate to Practice")
+
+Q27_by_Q8visualization6 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_6)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "How Live Out Beliefs about Meaning, Prupose, and Value of Nature")
+
+Q27_by_Q8visualization7 <- ggplot(summaries_data, aes(x = Q8_recode, y = Q27_7)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Type") + labs(y = "Put Beliefs about Climate/Biodiversity Crisis into Practice")
+
+Q27_by_Q8allvisualization <- ggarrange(Q27_by_Q8visualization1, Q27_by_Q8visualization2, Q27_by_Q8visualization3, Q27_by_Q8visualization4, Q27_by_Q8visualization5, Q27_by_Q8visualization6, Q27_by_Q8visualization7, labels = c("Material World", "Meaning, Purpose, and Value of Nature", "Climate/Biodiversity Crisis", "Locations of Passages on Environment in Sacred Texts or Key Writings","Material World Relate to Practice", "How Live Out Beliefs about Meaning, Prupose, and Value of Nature","Put Beliefs about Climate/Biodiversity Crisis into Practice", ncol = 2, nrow = 4))
+annotate_figure(Q27_by_Q8allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+
+
+  #Q9 (school size)
+summaries_data$Q9_recode <- factor(summaries_data$Q9_recode, levels = c(1, 2, 3), labels = c("1-9", "10-25", "25-100"))
+
+Q27_by_Q9visualization1 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Material World")
+Q27_by_Q9visualization1
+
+Q27_by_Q9visualization2 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Meaning, Purpose, and Value of Nature")
+
+Q27_by_Q9visualization3 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_3)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Climate/Biodiversity Crisis")
+
+Q27_by_Q9visualization4 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_4)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Locations of Passages on Environment in Sacred Texts or Key Writings")
+
+Q27_by_Q9visualization5 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_5)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Material World Relate to Practice")
+
+Q27_by_Q9visualization6 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_6)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "How Live Out Beliefs about Meaning, Prupose, and Value of Nature")
+
+Q27_by_Q9visualization7 <- ggplot(summaries_data, aes(x = Q9_recode, y = Q27_7)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Faculty Size") + labs(y = "Put Beliefs about Climate/Biodiversity Crisis into Practice")
+
+Q27_by_Q9allvisualization <- ggarrange(Q27_by_Q9visualization1, Q27_by_Q9visualization2, Q27_by_Q9visualization3, Q27_by_Q9visualization4, Q27_by_Q9visualization5, Q27_by_Q9visualization6, Q27_by_Q9visualization7, labels = c("Material World", "Meaning, Purpose, and Value of Nature", "Climate/Biodiversity Crisis", "Locations of Passages on Environment in Sacred Texts or Key Writings","Material World Relate to Practice", "How Live Out Beliefs about Meaning, Prupose, and Value of Nature","Put Beliefs about Climate/Biodiversity Crisis into Practice", ncol = 2, nrow = 4))
+annotate_figure(Q27_by_Q9allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+Q27_by_Q9allvisualization
+
+  #Q10 (school location)
+Q27_by_Q10visualization1 <- ggplot(summaries_data, aes(x = Q10, y = Q27_1)) + stat_summary(fun = "mean", geom = "bar") + coord_flip() + labs(x = "School Location") + labs(y = "Material World")
+Q27_by_Q10visualization1
+
+Q27_by_Q10visualization2 <- ggplot(summaries_data, aes(x = Q10, y = Q27_2)) + stat_summary(fun = "mean", geom = "bar") + coord_flip() + labs(x = "School Location") + labs(y = "Meaning, Purpose, and Value of Nature")
+
+Q27_by_Q10visualization3 <- ggplot(summaries_data, aes(x = Q10, y = Q27_3)) + stat_summary(fun = "mean", geom = "bar") + coord_flip() + labs(x = "School Location") + labs(y = "Climate/Biodiversity Crisis")
+
+Q27_by_Q10visualization4 <- ggplot(summaries_data, aes(x = Q10, y = Q27_4)) + stat_summary(fun = "mean", geom = "bar") + coord_flip() + labs(x = "School Location") + labs(y = "Locations of Passages on Environment in Sacred Texts or Key Writings")
+
+Q27_by_Q10visualization5 <- ggplot(summaries_data, aes(x = Q10, y = Q27_5)) + stat_summary(fun = "mean", geom = "bar") + coord_flip() + labs(x = "School Location") + labs(y = "Material World Relate to Practice")
+
+Q27_by_Q10visualization6 <- ggplot(summaries_data, aes(x = Q10, y = Q27_6)) + stat_summary(fun = "mean", geom = "bar") + coord_flip() + labs(x = "School Location") + labs(y = "How Live Out Beliefs about Meaning, Prupose, and Value of Nature")
+
+Q27_by_Q10visualization7 <- ggplot(summaries_data, aes(x = Q10, y = Q27_7)) + stat_summary(fun = "mean", geom = "bar") + coord_flip() + labs(x = "School Location") + labs(y = "Put Beliefs about Climate/Biodiversity Crisis into Practice")
+
+Q27_by_Q10allvisualization <- ggarrange(Q27_by_Q10visualization1, Q27_by_Q10visualization2, Q27_by_Q10visualization3, Q27_by_Q10visualization4, Q27_by_Q10visualization5, Q27_by_Q10visualization6, Q27_by_Q10visualization7, labels = c("Material World", "Meaning, Purpose, and Value of Nature", "Climate/Biodiversity Crisis", "Locations of Passages on Environment in Sacred Texts or Key Writings","Material World Relate to Practice", "How Live Out Beliefs about Meaning, Prupose, and Value of Nature","Put Beliefs about Climate/Biodiversity Crisis into Practice", ncol = 2, nrow = 4))
+annotate_figure(Q27_by_Q10allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+Q27_by_Q10allvisualization
+
+  #Q12-14 (school's official religion) 
+summaries_data$Q12 <- factor(summaries_data$Q12, levels = c("No", "Yes"), labels = c("No", "Yes"))
+
+Q27_by_Q12visualization1 <- ggplot(summaries_data, aes(x = Q12, y = Q27_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Official Religious Affiliation") + labs(y = "Material World")
+Q27_by_Q12visualization1
+
+Q27_by_Q12visualization2 <- ggplot(summaries_data, aes(x = Q12, y = Q27_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Official Religious Affiliation") + labs(y = "Meaning, Purpose, and Value of Nature")
+
+Q27_by_Q12visualization3 <- ggplot(summaries_data, aes(x = Q12, y = Q27_3)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Official Religious Affiliation") + labs(y = "Climate/Biodiversity Crisis")
+
+Q27_by_Q12visualization4 <- ggplot(summaries_data, aes(x = Q12, y = Q27_4)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Official Religious Affiliation") + labs(y = "Locations of Passages on Environment in Sacred Texts or Key Writings")
+
+Q27_by_Q12visualization5 <- ggplot(summaries_data, aes(x = Q12, y = Q27_5)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Official Religious Affiliation") + labs(y = "Material World Relate to Practice")
+
+Q27_by_Q12visualization6 <- ggplot(summaries_data, aes(x = Q12, y = Q27_6)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Official Religious Affiliation") + labs(y = "How Live Out Beliefs about Meaning, Prupose, and Value of Nature")
+
+Q27_by_Q12visualization7 <- ggplot(summaries_data, aes(x = Q12, y = Q27_7)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Official Religious Affiliation") + labs(y = "Put Beliefs about Climate/Biodiversity Crisis into Practice")
+
+Q27_by_Q12allvisualization <- ggarrange(Q27_by_Q12visualization1, Q27_by_Q12visualization2, Q27_by_Q12visualization3, Q27_by_Q12visualization4, Q27_by_Q12visualization5, Q27_by_Q12visualization6, Q27_by_Q12visualization7, labels = c("Material World", "Meaning, Purpose, and Value of Nature", "Climate/Biodiversity Crisis", "Locations of Passages on Environment in Sacred Texts or Key Writings","Material World Relate to Practice", "How Live Out Beliefs about Meaning, Prupose, and Value of Nature","Put Beliefs about Climate/Biodiversity Crisis into Practice", ncol = 2, nrow = 4))
+annotate_figure(Q27_by_Q12allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+Q27_by_Q12allvisualization
+
+  #Q15-16 (school's informal religion)
+summaries_data$Q15 <- factor(summaries_data$Q15, levels = c("No", "Yes"), labels = c("No", "Yes"))
+
+Q27_by_Q15visualization1 <- ggplot(summaries_data, aes(x = Q15, y = Q27_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Unofficial Religious Affiliation") + labs(y = "Material World")
+Q27_by_Q15visualization1
+
+Q27_by_Q15visualization2 <- ggplot(summaries_data, aes(x = Q15, y = Q27_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Unofficial Religious Affiliation") + labs(y = "Meaning, Purpose, and Value of Nature")
+
+Q27_by_Q15visualization3 <- ggplot(summaries_data, aes(x = Q15, y = Q27_3)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Unofficial Religious Affiliation") + labs(y = "Climate/Biodiversity Crisis")
+
+Q27_by_Q15visualization4 <- ggplot(summaries_data, aes(x = Q15, y = Q27_4)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Unofficial Religious Affiliation") + labs(y = "Locations of Passages on Environment in Sacred Texts or Key Writings")
+
+Q27_by_Q15visualization5 <- ggplot(summaries_data, aes(x = Q15, y = Q27_5)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Unofficial Religious Affiliation") + labs(y = "Material World Relate to Practice")
+
+Q27_by_Q15visualization6 <- ggplot(summaries_data, aes(x = Q15, y = Q27_6)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Unofficial Religious Affiliation") + labs(y = "How Live Out Beliefs about Meaning, Prupose, and Value of Nature")
+
+Q27_by_Q15visualization7 <- ggplot(summaries_data, aes(x = Q15, y = Q27_7)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "School Unofficial Religious Affiliation") + labs(y = "Put Beliefs about Climate/Biodiversity Crisis into Practice")
+
+Q27_by_Q15allvisualization <- ggarrange(Q27_by_Q15visualization1, Q27_by_Q15visualization2, Q27_by_Q15visualization3, Q27_by_Q15visualization4, Q27_by_Q15visualization5, Q27_by_Q15visualization6, Q27_by_Q15visualization7, labels = c("Material World", "Meaning, Purpose, and Value of Nature", "Climate/Biodiversity Crisis", "Locations of Passages on Environment in Sacred Texts or Key Writings","Material World Relate to Practice", "How Live Out Beliefs about Meaning, Prupose, and Value of Nature","Put Beliefs about Climate/Biodiversity Crisis into Practice", ncol = 2, nrow = 4))
+annotate_figure(Q27_by_Q15allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+Q27_by_Q15allvisualization
+
+  #Q21 (respondent personal religious background)
+summaries_data$Q21_binaryrecode <- factor(summaries_data$Q21_binaryrecode, levels = c(1, 2), labels = c("No", "Yes"))
+
+Q27_by_Q21visualization1 <- ggplot(summaries_data, aes(x = Q21_binaryrecode, y = Q27_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Personal Religious Affiliation") + labs(y = "Material World")
+Q27_by_Q21visualization1
+
+Q27_by_Q21visualization2 <- ggplot(summaries_data, aes(x = Q21_binaryrecode, y = Q27_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Personal Religious Affiliation") + labs(y = "Meaning, Purpose, and Value of Nature")
+
+Q27_by_Q21visualization3 <- ggplot(summaries_data, aes(x = Q21_binaryrecode, y = Q27_3)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Personal Religious Affiliation") + labs(y = "Climate/Biodiversity Crisis")
+
+Q27_by_Q21visualization4 <- ggplot(summaries_data, aes(x = Q21_binaryrecode, y = Q27_4)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Personal Religious Affiliation") + labs(y = "Locations of Passages on Environment in Sacred Texts or Key Writings")
+
+Q27_by_Q21visualization5 <- ggplot(summaries_data, aes(x = Q21_binaryrecode, y = Q27_5)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Personal Religious Affiliation") + labs(y = "Material World Relate to Practice")
+
+Q27_by_Q21visualization6 <- ggplot(summaries_data, aes(x = Q21_binaryrecode, y = Q27_6)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Personal Religious Affiliation") + labs(y = "How Live Out Beliefs about Meaning, Prupose, and Value of Nature")
+
+Q27_by_Q21visualization7 <- ggplot(summaries_data, aes(x = Q21_binaryrecode, y = Q27_7)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Personal Religious Affiliation") + labs(y = "Put Beliefs about Climate/Biodiversity Crisis into Practice")
+
+Q27_by_Q21allvisualization <- ggarrange(Q27_by_Q21visualization1, Q27_by_Q21visualization2, Q27_by_Q21visualization3, Q27_by_Q21visualization4, Q27_by_Q21visualization5, Q27_by_Q21visualization6, Q27_by_Q21visualization7, labels = c("Material World", "Meaning, Purpose, and Value of Nature", "Climate/Biodiversity Crisis", "Locations of Passages on Environment in Sacred Texts or Key Writings","Material World Relate to Practice", "How Live Out Beliefs about Meaning, Prupose, and Value of Nature","Put Beliefs about Climate/Biodiversity Crisis into Practice", ncol = 2, nrow = 4))
+annotate_figure(Q27_by_Q21allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+Q27_by_Q21allvisualization
+
+  #Q4 (teacher's degree subject) - write-in...figure out how to sort
+
+  #Q18 (respondent gender)
+Q27_by_Q18visualization1 <- ggplot(summaries_data, aes(x = Q18, y = Q27_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Gender") + labs(y = "Material World")
+Q27_by_Q12visualization1
+
+Q27_by_Q18visualization2 <- ggplot(summaries_data, aes(x = Q18, y = Q27_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Gender") + labs(y = "Meaning, Purpose, and Value of Nature")
+
+Q27_by_Q18visualization3 <- ggplot(summaries_data, aes(x = Q18, y = Q27_3)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Gender") + labs(y = "Climate/Biodiversity Crisis")
+
+Q27_by_Q18visualization4 <- ggplot(summaries_data, aes(x = Q18, y = Q27_4)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Gender") + labs(y = "Locations of Passages on Environment in Sacred Texts or Key Writings")
+
+Q27_by_Q18visualization5 <- ggplot(summaries_data, aes(x = Q18, y = Q27_5)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Gender") + labs(y = "Material World Relate to Practice")
+
+Q27_by_Q18visualization6 <- ggplot(summaries_data, aes(x = Q18, y = Q27_6)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Gender") + labs(y = "How Live Out Beliefs about Meaning, Prupose, and Value of Nature")
+
+Q27_by_Q18visualization7 <- ggplot(summaries_data, aes(x = Q18, y = Q27_7)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Gender") + labs(y = "Put Beliefs about Climate/Biodiversity Crisis into Practice")
+
+Q27_by_Q18allvisualization <- ggarrange(Q27_by_Q18visualization1, Q27_by_Q18visualization2, Q27_by_Q18visualization3, Q27_by_Q18visualization4, Q27_by_Q18visualization5, Q27_by_Q18visualization6, Q27_by_Q18visualization7, labels = c("Material World", "Meaning, Purpose, and Value of Nature", "Climate/Biodiversity Crisis", "Locations of Passages on Environment in Sacred Texts or Key Writings","Material World Relate to Practice", "How Live Out Beliefs about Meaning, Prupose, and Value of Nature","Put Beliefs about Climate/Biodiversity Crisis into Practice", ncol = 2, nrow = 4))
+annotate_figure(Q27_by_Q18allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+Q27_by_Q18allvisualization
+
+  #Q19 (respondent ethnic self-desc)
+Q27_by_Q19visualization1 <- ggplot(summaries_data, aes(x = Q19, y = Q27_1)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Ethnicity") + labs(y = "Material World")
+Q27_by_Q19visualization1
+
+Q27_by_Q19visualization2 <- ggplot(summaries_data, aes(x = Q19, y = Q27_2)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Ethnicity") + labs(y = "Meaning, Purpose, and Value of Nature")
+
+Q27_by_Q19visualization3 <- ggplot(summaries_data, aes(x = Q19, y = Q27_3)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Ethnicity") + labs(y = "Climate/Biodiversity Crisis")
+
+Q27_by_Q19visualization4 <- ggplot(summaries_data, aes(x = Q19, y = Q27_4)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Ethnicity") + labs(y = "Locations of Passages on Environment in Sacred Texts or Key Writings")
+
+Q27_by_Q19visualization5 <- ggplot(summaries_data, aes(x = Q19, y = Q27_5)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Ethnicity") + labs(y = "Material World Relate to Practice")
+
+Q27_by_Q19visualization6 <- ggplot(summaries_data, aes(x = Q19, y = Q27_6)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Ethnicity") + labs(y = "How Live Out Beliefs about Meaning, Prupose, and Value of Nature")
+
+Q27_by_Q19visualization7 <- ggplot(summaries_data, aes(x = Q19, y = Q27_7)) + stat_summary(fun = "mean", geom = "bar") + labs(x = "Ethnicity") + labs(y = "Put Beliefs about Climate/Biodiversity Crisis into Practice")
+
+Q27_by_Q19allvisualization <- ggarrange(Q27_by_Q19visualization1, Q27_by_Q19visualization2, Q27_by_Q19visualization3, Q27_by_Q19visualization4, Q27_by_Q19visualization5, Q27_by_Q19visualization6, Q27_by_Q19visualization7, labels = c("Material World", "Meaning, Purpose, and Value of Nature", "Climate/Biodiversity Crisis", "Locations of Passages on Environment in Sacred Texts or Key Writings","Material World Relate to Practice", "How Live Out Beliefs about Meaning, Prupose, and Value of Nature","Put Beliefs about Climate/Biodiversity Crisis into Practice", ncol = 2, nrow = 4))
+annotate_figure(Q27_by_Q19allvisualization, top = text_grob("Considering the Religions and Worldviews Covered, my Understanding of Beliefs about..."))
+Q27_by_Q19allvisualization
+
 
-# Q26
 
-# Q27
 ```
 
 ## Correlation testing:
@@ -266,19 +764,71 @@ head(Q13_data)
   # then analyze based on specific one
 Q13_data$Q13_recode <- factor(Q13_data$Q13_recode, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), labels = c("Church of England", "Roman Catholic", "Methodist", "Other Christian", "Jewish", "Muslim", "Sikh", "Hindu", "Multi-Faith", "None of the above"))
 
+# Test with only included levels
+Q13_data$Q13_recode <- factor(Q13_data$Q13_recode, levels = c(1, 2, 4, 6), labels = c("Church of England", "Roman Catholic", "Other Christian", "Muslim"))
+# No change with this one...still nonsignificant difference
+
   # Q22
 hist(Q13_data$Q22_average)
 specific_affiliation_test <- aov(Q22_average ~ Q13_recode, data = Q13_data)
+typeof(Q13_data$Q13_recode)
 summary(specific_affiliation_test)
 
   # Q23
+specific_affiliation_test_Q23 <- manova(cbind(Q23_1, Q23_2) ~ Q13_recode, data = Q13_data)
+summary(specific_affiliation_test_Q23)
 
   # Q27
+specific_affiliation_test_Q27 <- manova(cbind(Q27_1, Q27_2, Q27_3, Q27_4, Q27_5, Q27_6, Q27_7) ~ Q13_recode, data = Q13_data)
+summary(specific_affiliation_test_Q27)
 
 ## Q15-16 with Q22, Q23, Q27
   # Q15 is binary; 1st test whether difference in answers based on whether the school has an informal religious character or not. Q16 provides further detail and can be explored
 
+religion_affiliation_data$Q15 <- factor(religion_affiliation_data$Q15, levels = c("No", "Yes"), labels = c("No", "Yes"))
 
+  ## Q22
+informal_affiliation_test_Q22 <- t.test(Q22_average ~ Q15, data = religion_affiliation_data, paired = FALSE)
+informal_affiliation_test_Q22
+
+  ## Q23
+informal_affiliation_test_Q23 <- manova(cbind(Q23_1, Q23_2) ~ Q15, data = religion_affiliation_data)
+summary(informal_affiliation_test_Q23)
+
+  ## Q27
+informal_affiliation_test_Q27 <- manova(cbind(Q27_1, Q27_2, Q27_3, Q27_4, Q27_5, Q27_6, Q27_7) ~ Q15, data = religion_affiliation_data)
+summary(informal_affiliation_test_Q27)
+
+```
+
+```{r Analyses based on personal religious affiliation}
 ## Q21 with Q22, Q23, Q27
   # Q21 is personal religious affiliation. This may be more tricky as it is a free answer...but can code the type of religious affiliation and test that way? -- would be chi-square or some sort of non-para analysis due to the small number of respondents who answered this
+
+personal_religious_affiliation_data <- read.csv("./data/Personal religious affiliation data.csv")
+
+head(personal_religious_affiliation_data)
+
+personal_religious_affiliation_data$Q21_binaryrecode <- factor(personal_religious_affiliation_data$Q21_binaryrecode, levels = c(1, 2), labels = c("none", "answered"))
+
+  ## Q22
+personal_religious_affiliation_test_Q22 <- t.test(Q22_avg ~ Q21_binaryrecode, data = personal_religious_affiliation_data, paired = FALSE)
+personal_religious_affiliation_test_Q22
+
+  ## Q23
+personal_religious_affiliation_test_Q23 <- manova(cbind(Q23_1, Q23_2) ~ Q21_binaryrecode, data = personal_religious_affiliation_data)
+summary(personal_religious_affiliation_test_Q23)
+
+  ## Q27
+personal_religious_affiliation_test_Q27 <- manova(cbind(Q27_1, Q27_2, Q27_3, Q27_4, Q27_5, Q27_6, Q27_7) ~ Q21_binaryrecode, data = personal_religious_affiliation_data)
+summary(personal_religious_affiliation_test_Q27)
+
+  # Significant difference between answers to Q27 and whether participants indicated a personal religious affiliation -- with the small sample size it may be easier to visualize the differences here based on freeform answer
+
+head(personal_religious_affiliation_data)
+personal_religious_affiliation_means <- aggregate(cbind(Q27_1, Q27_2, Q27_3, Q27_4, Q27_5, Q27_6, Q27_7) ~ Q21_binaryrecode, data = personal_religious_affiliation_data, FUN = mean)
+personal_religious_affiliation_means
+
+## In viewing the means, it is likely the significant difference viewed in the above MANOVA is within Q27_7, with those who indicated having a personal religious affiliation reporting lower scores (M = 2.94) than those who did not answer or indicated they had no religious affiliation (M = 3.83). This makes sense as a higher score indicates they disagree that they know about "how they put their beliefs about the climate/biodiversity crisis into practice"
+  # Also a slight difference in Q27_3 with those indicating having a personal      religious affiliation reporting slightly lower scores (M = 3.24) than those who   did not answer to indicated they had no religious affiliation (M = 3.76)
 ```

data/Personal religious affiliation data.csv

@@ -0,0 +1,80 @@
+ResponseId,Q21,Q21_binaryrecode,Q22_1,Q22_2,Q22_avg,Q23_1,Q23_2,Q27_1,Q27_2,Q27_3,Q27_4,Q27_5,Q27_6,Q27_7
+R_XgZyEbCrviQUw1P,Nonreligious,1,4,4,4,3,5,4,4,4,4,4,4,4
+R_2yk0rVnQzYe2KPW,Christian,2,4,3,3.5,2,5,4,5,5,3,4,4,4
+R_1Fh13ZAPiKTPBcY,,1,3,3,3,3,4,4,4,4,4,4,4,4
+R_s7rgQ9fWe1q93DX,Muslim British ,2,4,2,3,4,5,4,3,2,3,2,2,2
+R_xlm1MZwsxj7PmXn,Pentecostal,2,4,2,3,1,4,5,4,2,5,4,3,3
+R_d4invy5EhFhL077,RC - Lapsed,2,4,3,3.5,3,3,4,4,2,3,2,3,2
+R_Or2XpjCr16F1dfj,,1,5,5,5,4,5,4,4,4,4,4,4,4
+R_2wttznEd20wnoav,,1,5,5,5,5,1,5,5,5,5,5,5,5
+R_22xKOMaYKahuUwP,Christian ,2,5,5,5,5,5,5,5,5,5,5,5,4
+R_12DTxizWqCfcC8p,Non religious,1,4,4,4,3,5,4,4,4,4,4,4,4
+R_9sK4N6UJRbSbnMd,,1,2,2,2,2,4,5,4,2,3,2,3,2
+R_2YrL3mNpuhfwkb6,Secular,2,2,2,2,4,4,3,4,2,4,4,4,3
+R_3OcSThsDDJ6gKPB,Hindu,2,4,4,4,3,4,4,4,4,4,4,5,4
+R_blWDNPdZjoGf6Jb,,1,3,3,3,2,4,3,3,3,4,4,4,5
+R_3DupDvBYJOygzha,Christian,2,5,4,4.5,2,4,4,4,2,5,3,4,3
+R_1mDCWzUD5KU7dLj,,1,4,2,3,2,3,4,4,3,2,3,3,3
+R_1jkPiVsydoiHO7Z,Christian,2,5,5,5,2,5,5,5,2,5,5,5,2
+R_3PoDm7qEPwP4Fpk,,1,4,4,4,2,4,4,4,4,3,4,4,4
+R_1XgssrO1h3cXVu1,Christian,2,4,2,3,2,3,2,2,2,1,2,3,1
+R_1rjoqaWYW3T8AI6,N/A,1,4,2,3,1,5,4,4,4,4,4,2,2
+R_2agI4Np4ECu3eCX,No affiliation.,1,5,4,4.5,4,3,5,5,4,5,5,5,5
+R_z293ttW0xbnJ7e9,,1,5,5,5,5,3,4,4,4,5,5,4,5
+R_3KIsc1OEh9i3CV8,Agnostic,2,5,4,4.5,4,4,4,5,3,3,4,3,3
+R_3KHD4dfqf7OktEX,Christian,2,5,4,4.5,2,3,5,5,4,5,5,5,4
+R_6xjTIrxF9WJdOA9,agnostic,2,5,4,4.5,2,3,5,5,4,4,5,5,4
+R_2EGCBnHFRACR18K,Practicing Christian,2,5,5,5,4,4,5,5,5,5,5,5,5
+R_3Hh9DLcBMJ1joSt,Catholic,2,4,2,3,2,5,5,5,4,2,4,2,2
+R_1nW9lk1FssIEliA,christian,2,4,4,4,2,4,4,4,2,4,4,4,3
+R_2rOZ2qBOkmAFmLo,Non-believer,1,4,2,3,2,1,5,5,2,4,4,4,4
+R_2bVumEeTpy5kYJB,Open,2,4,2,3,4,4,5,5,4,4,2,4,2
+R_1PdCHMNFVEYzeFF,Yes,2,4,4,4,2,2,4,4,4,1,2,2,2
+R_1PbLxSwXuuVGv51,Catholic,2,4,3,3.5,3,4,4,5,3,4,5,5,3
+R_xgTtbFHQBjYOxR7,RC,2,5,4,4.5,4,5,5,5,5,4,4,4,4
+R_3oLvowq6ixh599S,Christian,2,4,4,4,4,4,4,5,4,5,5,5,4
+R_1kYPntMmMqoD4fm,Christian,2,4,4,4,2,3,4,4,3,5,4,4,4
+R_6gRpYYhWysBRqdX,c of E,2,4,3,3.5,4,3,4,2,4,1,2,2,2
+R_12av6RHT5MXMAiK,Roman Catholic ,2,4,3,3.5,4,5,5,5,2,4,4,5,2
+R_3R4UrVwYAu3rqOM,Christian ,2,5,5,5,4,4,3,3,4,4,4,4,4
+R_3GqUEdaNc4tWcfn,Religious,2,3,3,3,3,3,5,4,2,3,4,3,2
+R_2ToDtpH3tvBcxeg,Agnostic ,2,5,4,4.5,4,3,4,5,5,3,2,4,4
+R_2qasekTiGfcNpd2,Christian,2,4,4,4,4,5,5,5,4,4,5,5,4
+R_4JIYBPm5T0nxEtz,,1,3,3,3,3,4,3,3,3,3,3,3,3
+R_tLnCoZBzXaynebD,Christian,2,4,3,3.5,4,5,4,5,4,4,4,4,4
+R_1OrxEBDwzeEVivk,cHRISTIAN ,2,4,4,4,3,3,4,4,3,3,4,4,3
+R_3MuICyKiNv3u5je,,1,5,4,4.5,4,3,5,5,5,5,5,5,4
+R_QcrS6oloaNxW1fH,Christian,2,1,1,1,1,5,5,5,2,2,4,4,2
+R_23VQhp9HIQlIscc,"Christian, Sufi",2,4,4,4,3,5,4,4,4,3,4,3,3
+R_3iOvxOWCyQEZ9hM,,1,4,4,4,3,5,5,5,5,5,5,5,5
+R_1Pbo6cvZo69pLon,,1,5,4,4.5,2,3,4,4,4,3,4,4,4
+R_TiOZvH6j9dhEIs9,,1,2,3,2.5,3,5,5,4,4,3,4,3,3
+R_1jH3yDnmvHcjTsM,,1,4,4,4,2,2,4,4,3,4,4,4,4
+R_T1SN1Zit1YusRKV,,1,4,4,4,4,5,4,5,5,5,4,5,5
+R_R9UMtu2HItMLFi9,,1,5,2,3.5,2,3,3,3,4,1,2,2,2
+R_T00xAPfRQAU7waZ,Christian,2,5,4,4.5,5,5,5,5,4,4,5,4,4
+R_3njXtkaZDtpG9fp,CATHOLIC,2,4,2,3,1,5,5,5,4,5,5,5,5
+R_dcn0MBJ4OrUUxJD,Christian,2,4,3,3.5,2,5,4,4,3,4,3,3,2
+R_1Iz73IwUr01lRNU,Athiest,2,1,2,1.5,1,5,5,5,5,5,5,5,4
+R_2rTa06kkdqoxrZK,Christian,2,4,4,4,3,3,4,5,3,2,3,4,3
+R_3kiVHui1BVcwusf,Humanist,2,5,4,4.5,2,2,5,4,4,4,2,5,2
+R_cTNtnbQi3ofK8Fz,Christian,2,5,2,3.5,2,5,4,4,2,4,4,4,2
+R_1dtoO3odjNbYClh,catholic,2,4,4,4,4,3,4,4,4,4,4,4,3
+R_0U1I31ldIOQsO09,Christian ,2,4,2,3,2,4,2,4,2,4,2,4,2
+R_22VLsB4xvyZYCBw,Christian,2,5,4,4.5,2,3,4,4,3,4,4,4,3
+R_1QsBURUrWn2Vxrw,,1,3,3,3,3,3,4,4,4,3,4,5,4
+R_UT47X0QOtyCVjvb,Agnostic ,2,4,2,3,2,3,4,3,3,4,4,4,2
+R_1gMjGtT6ZU3e1LU,Catholic ,2,2,2,2,2,5,3,3,3,1,3,3,3
+R_2V4qtqY6IdMzyr2,Christian,2,2,2,2,1,4,3,2,2,4,3,4,2
+R_2TMjGaamnNsLQz1,Christian,2,4,4,4,2,4,2,2,2,1,2,4,2
+R_3iPSssHAneNAsGH,Anglican Christian,2,3,3,3,2,4,4,4,2,2,4,4,2
+R_2UgBh0WempUe3xI,,1,5,4,4.5,4,3,4,4,4,3,4,4,4
+R_1IL8gk2YdtWCZHf,Agnostic ,2,5,4,4.5,5,5,5,4,4,3,4,4,4
+R_1Ft7c0elY4DbBJS,,1,4,4,4,4,2,5,4,4,4,4,4,4
+R_23HjJq7BKt44hrz,,1,3,2,2.5,1,1,5,3,4,2,4,4,4
+R_3iDRlE6VP4OjzPS,C of E,2,2,2,2,2,4,3,2,2,1,2,2,1
+R_2UgbG6myvCouyLR,Atheist ,2,2,2,2,1,5,4,4,3,4,4,3,3
+R_5c0i8QxUt3yFDl7,,1,4,3,3.5,3,4,3,4,3,2,3,3,4
+R_1gGbhd56kDHm2nL,,1,5,4,4.5,5,5,4,4,4,4,4,4,4
+R_2Rb7yspNjL0JATD,,1,4,4,4,5,5,5,5,5,4,4,5,5
+R_2BhDufKhbDmMNeC,,1,1,1,1,1,5,1,3,1,1,1,3,1

data/visualization data.csv

@@ -0,0 +1,86 @@
+ResponseId,Q22_1,Q22_2,Q22_avg,Q23_1,Q23_2,Q24,Q24_recode,Understanding of nature,Relationship between spiritual and matiral worlds,Human beings' responsibility towards the earth,Climate crisis and/or diversity,Q25,Q26,Other Priorities,Lack Subject Knowledge,Lack Confidence,Current Syllabus,Pupil Disinterest,Department Head,Available Work Schemes,Unavailable Resources,Uncertain of Pedagogical Approach,Q27_1,Q27_2,Q27_3,Q27_4,Q27_5,Q27_6,Q27_7,Q8,Q8_recode,Q9,Q9_recode,Q10,Q12,Q13,Q13_recode,Q15,Q16,Q21,Q21_binaryrecode,Q4,Q4,Q18,Q19,Q1,Q35,Q5,Q2,Q3,Q3_Worldviews,Q3_Religion,Q3_Theology,Q3_Ethics,Q3_Philosophy,Q6,Q7,Q7_numerical
+R_XgZyEbCrviQUw1P,4,4,4,3,5,"Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)",3,FALSE,FALSE,TRUE,FALSE,Yes,4,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,4,4,4,4,4,4,4,academy,2,25-100,3,West Midlands,No,,,No,,Nonreligious,1,Religious Studies,Religious Studies,Male,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,5-10 years,"2,3,4,5",2,1,1,1,1,No,Full time (paid employee),1
+R_2yk0rVnQzYe2KPW,4,3,3.5,2,5,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,3,4",TRUE,FALSE,TRUE,TRUE,Yes,4,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,4,5,5,3,4,4,4,local authority,1,9-Jan,1,,Yes,Church of England,1,No,,Christian,2,,,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,5-10 years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_1Fh13ZAPiKTPBcY,3,3,3,3,4,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,3,4",TRUE,FALSE,TRUE,TRUE,Yes,4,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,4,4,4,4,4,4,4,local authority,1,25-100,3,London and South East,No,,,No,,,1,Sociology,Sociology,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_s7rgQ9fWe1q93DX,4,2,3,4,5,"Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)",3,FALSE,FALSE,TRUE,FALSE,Yes,"7,8,9",FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,TRUE,TRUE,4,3,2,3,2,2,2,independent school,4,25-100,3,London and South East,Yes,Muslim,6,No,,Muslim British ,2,Theology ,Theology ,Female,Any other Black/African/Caribbean background,secondary,Teacher,More than 50%,11 or more years,"2,5",2,1,2,2,1,Yes,Full time (paid employee),1
+R_xlm1MZwsxj7PmXn,4,2,3,1,4,"The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","2,3",FALSE,TRUE,TRUE,FALSE,Maybe,3,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,5,4,2,5,4,3,3,local authority,1,25-100,3,London and South East,Yes,Church of England,1,No,,Pentecostal,2,Religious Studies,Religious Studies,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_d4invy5EhFhL077,4,3,3.5,3,3,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,No,,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,4,4,2,3,2,3,2,local authority,1,25-Oct,2,Eastern England,Yes,Church of England,1,No,,RC - Lapsed,2,Philosophy ,Philosophy ,Male,Any other White ethnic background,primary,Teacher,,11 or more years,"1,2,3,5",1,1,1,2,1,Yes,Full time (paid employee),1
+R_Or2XpjCr16F1dfj,5,5,5,4,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Yes,"1,4",TRUE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,4,4,4,4,4,4,4,local authority,1,25-100,3,Eastern England,No,,,No,,,1,Religious Studies,Religious Studies,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_2wttznEd20wnoav,5,5,5,5,1,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,No,,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,5,5,5,5,5,5,5,academy,2,25-100,3,London and South East,Yes,Roman Catholic,2,No,,,1,Philosophy and theology ,Philosophy and theology ,Male,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"2,3,4,5",2,1,1,1,1,Yes,Full time (paid employee),1
+R_22xKOMaYKahuUwP,5,5,5,5,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Yes,1,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,5,5,5,5,5,5,4,academy,2,25-100,3,West Midlands,No,,,Yes,,Christian ,2,Religious studies and theology ,Religious studies and theology ,Female,Any other ethnic group,secondary,Teacher,Between 25% and 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Part time (paid employee),9
+R_12DTxizWqCfcC8p,4,4,4,3,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Yes,4,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,4,4,4,4,4,4,4,academy,2,25-100,3,West Midlands,No,,,Yes,There is nothing official but our assemblies reflect a Christian nature,Non religious,1,Theology,Theology,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_9sK4N6UJRbSbnMd,2,2,2,2,4,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Yes,"1,3,8,9",TRUE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,TRUE,TRUE,5,4,2,3,2,3,2,local authority,1,25-Oct,2,London and South East,Yes,Church of England,1,No,,,1,"Related arts: literature, music, dance and art ","Related arts: literature, music, dance and art ",Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,"1,2,3,5",1,1,1,2,1,Yes,Full time (paid employee),1
+R_2YrL3mNpuhfwkb6,2,2,2,4,4,"The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","2,3",FALSE,TRUE,TRUE,FALSE,Maybe,"1,5,9",TRUE,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,TRUE,3,4,2,4,4,4,3,academy,2,25-100,3,West Midlands,No,,,Yes,Christian ethos and history,Secular,2,Philosophy,Philosophy,Male,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,5-10 years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_3OcSThsDDJ6gKPB,4,4,4,3,4,"Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)",3,FALSE,FALSE,TRUE,FALSE,Yes,"7,8",FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,TRUE,FALSE,4,4,4,4,4,5,4,academy,2,25-100,3,North West,No,,,No,,Hindu,2,Theology and philosophy ,Theology and philosophy ,Female,Indian,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_blWDNPdZjoGf6Jb,3,3,3,2,4,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,Maybe,"1,4",TRUE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,3,3,3,4,4,4,5,academy,2,25-100,3,Yorkshire and North East,Yes,Church of England,1,No,,,1,Religious Studies ,Religious Studies ,Female,Pakistani,secondary,Teacher,Between 25% and 50%,5-10 years,"2,4,5",2,1,2,1,1,Yes,Full time (paid employee),1
+R_3DupDvBYJOygzha,5,4,4.5,2,4,"The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","2,3,4",FALSE,TRUE,TRUE,TRUE,Yes,4,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,4,4,2,5,3,4,3,academy,2,25-100,3,Yorkshire and North East,Yes,Church of England,1,No,,Christian,2,Theology,Theology,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,Less than 5 years,"1,2,3,4,5",1,1,1,1,1,No,Full time (paid employee),1
+R_1mDCWzUD5KU7dLj,4,2,3,2,3,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,Maybe,1,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,4,4,3,2,3,3,3,academy,2,25-100,3,North West,Yes,Church of England,1,No,,,1,Psychology ,Psychology ,Female,Prefer not to say,secondary,Teacher,More than 50%,11 or more years,2,2,1,2,2,2,No,Full time (paid employee),1
+R_1jkPiVsydoiHO7Z,5,5,5,2,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Yes,7,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,5,5,2,5,5,5,2,academy,2,25-100,3,Eastern England,No,,,No,,Christian,2,Humanities,Humanities,Male,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_3PoDm7qEPwP4Fpk,4,4,4,2,4,"The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","2,3,4",FALSE,TRUE,TRUE,TRUE,Yes,"7,8",FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,TRUE,FALSE,4,4,4,3,4,4,4,academy,2,25-100,3,East Midlands,No,,,No,,,1,Theology Education English ,Theology Education English ,Female,Irish,secondary,Teacher,More than 50%,11 or more years,"1,2,4,5",1,1,2,1,1,Yes,Full time (paid employee),1
+R_1XgssrO1h3cXVu1,4,2,3,2,3,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Maybe,"4,7,9",FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,TRUE,FALSE,TRUE,2,2,2,1,2,3,1,local authority,1,25-Oct,2,Eastern England,Yes,Church of England,1,No,,Christian,2,"Social Anthropology, Computing and Prayer","Social Anthropology, Computing and Prayer",Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,2,2,1,2,2,2,Yes,Full time (paid employee),1
+R_1rjoqaWYW3T8AI6,4,2,3,1,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Yes,"7,9",FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,FALSE,TRUE,4,4,4,4,4,2,2,academy,2,25-100,3,London and South East,No,,,No,,N/A,1,,,Male,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,5-10 years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_2agI4Np4ECu3eCX,5,4,4.5,4,3,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Maybe,8,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,FALSE,5,5,4,5,5,5,5,local authority,1,25-100,3,East Midlands,No,,,No,,No affiliation.,1,Combined ,Combined ,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_z293ttW0xbnJ7e9,5,5,5,5,3,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Yes,1,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,4,4,4,5,5,4,5,independent school,4,25-100,3,,No,,,No,,,1,BA QTS (S) RE and PE,BA QTS (S) RE and PE,Female,Prefer not to say,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,No,Full time (paid employee),1
+R_3KIsc1OEh9i3CV8,5,4,4.5,4,4,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,Maybe,"1,7",TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,4,5,3,3,4,3,3,independent school,4,25-100,3,Scotland,No,,,Yes,"Informally Christian.  This is not expressed in curriculum choices, only in school events. Eg. the school has a carol service, sings hymns in assembly, speech day is in a church.",Agnostic,2,Divinity,Divinity,Male,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,5-10 years,"2,3,4,5",2,1,1,1,1,Yes,Full time (paid employee),1
+R_3KHD4dfqf7OktEX,5,4,4.5,2,3,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,No,,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,5,5,4,5,5,5,4,academy,2,25-100,3,Yorkshire and North East,Yes,Church of England,1,No,,Christian,2,Theology and secondary education,Theology and secondary education,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,Between 25% and 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,No,Part time (paid employee),9
+R_6xjTIrxF9WJdOA9,5,4,4.5,2,3,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,No,,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,5,5,4,4,5,5,4,academy,2,25-100,3,East Midlands,No,,,No,,agnostic,2,Religious Studies and Music (Combined Honours),Religious Studies and Music (Combined Honours),Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_2EGCBnHFRACR18K,5,5,5,4,4,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,3,4",TRUE,FALSE,TRUE,TRUE,Maybe,4,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,5,5,5,5,5,5,5,academy,2,25-100,3,East Midlands,No,,,No,,Practicing Christian,2,Theology and Education Studies,Theology and Education Studies,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,2,2,1,2,2,2,Yes,Full time (paid employee),1
+R_3Hh9DLcBMJ1joSt,4,2,3,2,5,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,Yes,"3,4",FALSE,FALSE,TRUE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,5,5,4,2,4,2,2,local authority,1,25-Oct,2,East Midlands,No,,,Yes,we mark Christian festivals such as Christmas ,Catholic,2,Disability Studies with Education ,Disability Studies with Education ,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,5-10 years,"1,2",1,1,2,2,2,Yes,Full time (paid employee),1
+R_1nW9lk1FssIEliA,4,4,4,2,4,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,Yes,"7,8",FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,TRUE,FALSE,4,4,2,4,4,4,3,academy,2,25-100,3,West Midlands,Yes,Church of England,1,No,,christian,2,B.Ed (Hons ) in Early years education for Science and Drama ,B.Ed (Hons ) in Early years education for Science and Drama ,Male,Welsh/English/Scottish/Northern Irish/British,cross-phase,Teacher,Between 25% and 50%,11 or more years,"1,2",1,1,2,2,2,Yes,Full time (paid employee),1
+R_2rOZ2qBOkmAFmLo,4,2,3,2,1,"The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","2,3",FALSE,TRUE,TRUE,FALSE,No,,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,5,5,2,4,4,4,4,local authority,1,25-100,3,London and South East,No,,,No,,Non-believer,1,Theology,Theology,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,5-10 years,"1,2",1,1,2,2,2,No,Full time (paid employee),1
+R_2bVumEeTpy5kYJB,4,2,3,4,4,"Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","3,4",FALSE,FALSE,TRUE,TRUE,Maybe,"1,4",TRUE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,5,5,4,4,2,4,2,academy,2,25-100,3,London and South East,No,,,Yes,Christian,Open,2,Philosophy,Philosophy,Male,Caribbean,secondary,Teacher,More than 50%,5-10 years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_1PdCHMNFVEYzeFF,4,4,4,2,2,"The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","2,3",FALSE,TRUE,TRUE,FALSE,Yes,"2,4,7,8",FALSE,TRUE,FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,FALSE,4,4,4,1,2,2,2,academy,2,25-100,3,West Midlands,No,,,No,,Yes,2,Environment science ,Environment science ,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,2,2,1,2,2,2,Yes,Full time (paid employee),1
+R_1PbLxSwXuuVGv51,4,3,3.5,3,4,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Yes,"4,6,7,8",FALSE,FALSE,FALSE,TRUE,FALSE,TRUE,TRUE,TRUE,FALSE,4,5,3,4,5,5,3,local authority,1,25-100,3,London and South East,Yes,Roman Catholic,2,No,,Catholic,2,Education Studies,Education Studies,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,Less than 5 years,"1,2,3,4,5",1,1,1,1,1,No,Prefer not to answer,8
+R_xgTtbFHQBjYOxR7,5,4,4.5,4,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Yes,"4,7,8",FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,FALSE,5,5,5,4,4,4,4,local authority,1,25-100,3,Northern Ireland,Yes,Roman Catholic,2,No,,RC,2,World faiths and theology,World faiths and theology,Female,Irish,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4",1,1,1,1,2,Yes,Full time (paid employee),1
+R_3oLvowq6ixh599S,4,4,4,4,4,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,Yes,"1,7,8,9",TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,TRUE,TRUE,4,5,4,5,5,5,4,academy,2,25-100,3,Yorkshire and North East,No,,,Yes,Christian ethos inderpins academy values. Founder us a church leader. We have a church attached to one of the school hubs,Christian,2,,,Female,Caribbean,secondary,Teacher,Less than 25%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_1kYPntMmMqoD4fm,4,4,4,2,3,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Maybe,1,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,4,4,3,5,4,4,4,academy,2,25-100,3,Eastern England,Yes,Church of England,1,No,,Christian,2,Philosophy,Philosophy,Male,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_6gRpYYhWysBRqdX,4,3,3.5,4,3,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Maybe,"2,3",FALSE,TRUE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,4,2,4,1,2,2,2,local authority,1,9-Jan,1,North West,No,,,No,,c of E,2,Education,Education,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,"1,2",1,1,2,2,2,Yes,Part time (paid employee),9
+R_12av6RHT5MXMAiK,4,3,3.5,4,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Yes,"1,2",TRUE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,5,5,2,4,4,5,2,academy,2,25-100,3,Yorkshire and North East,Yes,Roman Catholic,2,No,,Roman Catholic ,2,Theology ,Theology ,Male,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_3R4UrVwYAu3rqOM,5,5,5,4,4,"Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","3,4",FALSE,FALSE,TRUE,TRUE,Yes,"4,6,7",FALSE,FALSE,FALSE,TRUE,FALSE,TRUE,TRUE,FALSE,FALSE,3,3,4,4,4,4,4,local authority,1,25-100,3,North West,No,,,No,,Christian ,2,Theology,Theology,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,Less than 5 years,"1,2,3,4,5",1,1,1,1,1,No,Full time (paid employee),1
+R_3GqUEdaNc4tWcfn,3,3,3,3,3,"Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)",3,FALSE,FALSE,TRUE,FALSE,Yes,"2,7,8",FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,TRUE,TRUE,FALSE,5,4,2,3,4,3,2,academy,2,25-100,3,London and South East,Yes,Roman Catholic,2,No,,Religious,2,Theology and Religious Studies,Theology and Religious Studies,Prefer not to say,Prefer not to say,secondary,Teacher,Between 25% and 50%,5-10 years,"2,3,5",2,1,1,2,1,No,Not working (other),7
+R_2ToDtpH3tvBcxeg,5,4,4.5,4,3,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,Yes,,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,4,5,5,3,2,4,4,academy,2,25-100,3,London and South East,No,,,No,,Agnostic ,2,Religious Studies,Religious Studies,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_2qasekTiGfcNpd2,4,4,4,4,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Yes,7,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,5,5,4,4,5,5,4,academy,2,25-Oct,2,London and South East,Yes,Church of England,1,No,,Christian,2,RE,RE,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,5-10 years,2,2,1,2,2,2,Yes,Part time (paid employee),9
+R_4JIYBPm5T0nxEtz,3,3,3,3,4,"Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)",3,FALSE,FALSE,TRUE,FALSE,Yes,4,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,3,3,3,3,3,3,3,local authority,1,9-Jan,1,London and South East,Yes,Church of England,1,No,,,1,Bachelor of education ,Bachelor of education ,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,2,2,1,2,2,2,No,Full time (paid employee),1
+R_tLnCoZBzXaynebD,4,3,3.5,4,5,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,Yes,"7,9",FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,FALSE,TRUE,4,5,4,4,4,4,4,local authority,1,25-Oct,2,London and South East,Yes,Church of England,1,No,,Christian,2,Sociology,Sociology,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,2,2,1,2,2,2,No,Part time (paid employee),9
+R_1OrxEBDwzeEVivk,4,4,4,3,3,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Maybe,"7,8,9",FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,TRUE,TRUE,4,4,3,3,4,4,3,local authority,1,25-100,3,London and South East,No,,,No,,cHRISTIAN ,2,History ,History ,Female,Prefer not to say,secondary,Teacher,More than 50%,11 or more years,"1,2",1,1,2,2,2,Yes,Full time (paid employee),1
+R_2ts69gqfWGXM2OU,5,5,5,4,3,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Maybe,1,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,,,,,,,,,,,,,No,,,No,,,1,,,,,secondary,Teacher,,5-10 years,"1,2,3,4,5",1,1,1,1,1,,, 
+R_3MuICyKiNv3u5je,5,4,4.5,4,3,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Maybe,,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,5,5,5,5,5,5,4,,,,,,Yes,Church of England,1,No,,Christian,2,,,,,secondary,Teacher,,11 or more years,"1,2,3,4,5",1,1,1,1,1,,, 
+R_QcrS6oloaNxW1fH,1,1,1,1,5,The relationship between the spiritual and material worlds in any religion/worldview,2,FALSE,TRUE,FALSE,FALSE,Yes,4,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,5,5,2,2,4,4,2,academy,2,25-100,3,North West,No,,,,,"Christian, Sufi",2,Religious and Theological Studies,Religious and Theological Studies,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_3gRSF49nx1NmAt0,4,2,3,1,3,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,Maybe,,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,,,,,,,,,,,,,No,,,,,,1,,,,,primary,Teacher,,11 or more years,2,2,1,2,2,2,,, 
+R_2tb28DZNGuxGs25,4,4,4,2,4,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Yes,"4,9",FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,TRUE,,,,,,,,,,,,,Yes,Other Christian,4,Yes,,,1,,,,,primary,Teacher,,11 or more years,2,2,1,2,2,2,,, 
+R_23VQhp9HIQlIscc,4,4,4,3,5,"The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","2,3",FALSE,TRUE,TRUE,FALSE,Yes,"4,7,9",FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,TRUE,FALSE,TRUE,4,4,4,3,4,3,3,local authority,1,25-Oct,2,London and South East,Yes,Other Christian,4,No,,,1,Computer Science,Computer Science,Female,Any other White ethnic background,primary,Teacher,,11 or more years,2,2,1,2,2,2,No,Part time (paid employee),9
+R_274kmFr7ieHlef0,2,2,2,2,3,"The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","2,3",FALSE,TRUE,TRUE,FALSE,Yes,"2,4,6",FALSE,TRUE,FALSE,TRUE,FALSE,TRUE,FALSE,FALSE,FALSE,,,,,,,,,,,,,Yes,Church of England,1,No,,,1,,,,,primary,Teacher,,5-10 years,"1,2",1,1,2,2,2,,, 
+R_3iOvxOWCyQEZ9hM,4,4,4,3,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Yes,"1,7,8",TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,TRUE,FALSE,5,5,5,5,5,5,5,,,,,,Yes,Roman Catholic,2,No,,,1,,,,,secondary,Teacher,,11 or more years,2,2,1,2,2,2,,, 
+R_1Pbo6cvZo69pLon,5,4,4.5,2,3,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Maybe,4,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,4,4,4,3,4,4,4,academy,2,25-100,3,Eastern England,Yes,Church of England,1,Yes,Multi-academy Trust with core values that are shared,,1,,,,,secondary,Teacher,Between 25% and 50%,11 or more years,"2,4,5",2,1,2,1,1,No,Full time (paid employee),1
+R_TiOZvH6j9dhEIs9,2,3,2.5,3,5,"The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","2,3",FALSE,TRUE,TRUE,FALSE,Yes,4,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,5,4,4,3,4,3,3,academy,2,25-100,3,London and South East,No,,,No,,Christian,2,Philosophy,Philosophy,,,secondary,Teacher,More than 50%,Less than 5 years,"1,2,4,5",1,1,2,1,1,No,Full time (paid employee),1
+R_1jH3yDnmvHcjTsM,4,4,4,2,2,Understandings of nature in any religion/worldview,1,TRUE,FALSE,FALSE,FALSE,Yes,7,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,4,4,3,4,4,4,4,,,,,,Yes,Church of England,1,No,,CATHOLIC,2,,,,,secondary,Teacher,,Less than 5 years,"2,3,4,5",2,1,1,1,1,,, 
+R_T1SN1Zit1YusRKV,4,4,4,4,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Yes,"4,8",FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,TRUE,FALSE,4,5,5,5,4,5,5,local authority,1,25-Oct,2,Wales,No,,,Yes,"over 60% of our students are Muslims, so this indirectly influences class discussions and interests",Christian,2,Environmental Studies,Environmental Studies,Male,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,"1,2,3",1,1,1,2,2,Yes,Part time (paid employee),9
+R_R9UMtu2HItMLFi9,5,2,3.5,2,3,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,No,,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,3,3,4,1,2,2,2,local authority,1,9-Jan,1,Wales,Yes,Other Christian,4,Yes,We have a Christian Ethos underpinning the Academy but we are not a faith school,Athiest,2,Welsh,Welsh,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,2,2,1,2,2,2,No,Part time (paid employee),9
+R_T00xAPfRQAU7waZ,5,4,4.5,5,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Yes,"7,8",FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,TRUE,FALSE,5,5,4,4,5,4,4,local authority,1,9-Jan,1,Eastern England,Yes,Other Christian,4,No,,Christian,2, Maths, Maths,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,"1,2,3,5",1,1,1,2,1,Yes,Full time (paid employee),1
+R_3njXtkaZDtpG9fp,4,2,3,1,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Yes,"4,8",FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,TRUE,FALSE,5,5,4,5,5,5,5,local authority,1,25-100,3,London and South East,Yes,Church of England,1,No,,Humanist,2,theology ,theology ,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,5-10 years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_dcn0MBJ4OrUUxJD,4,3,3.5,2,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Yes,"4,7,8",FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,FALSE,4,4,3,4,3,3,2,academy,2,9-Jan,1,Eastern England,No,,,No,,Christian,2,History,History,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,2,2,1,2,2,2,No,Full time (paid employee),1
+R_1Iz73IwUr01lRNU,1,2,1.5,1,5,,,FALSE,FALSE,FALSE,FALSE,Yes,6,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,5,5,5,5,5,5,4,academy,2,25-100,3,South West,Yes,Other Christian,4,Yes,,catholic,2,,,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"2,3,4,5",2,1,1,1,1,No,Full time (paid employee),1
+R_2rTa06kkdqoxrZK,4,4,4,3,3,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Maybe,3,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,4,5,3,2,3,4,3,academy,2,9-Jan,1,Eastern England,No,,,No,,Christian ,2,Primary Education with QTS,Primary Education with QTS,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,"1,2",1,1,2,2,2,Yes,Full time (paid employee),1
+R_3kiVHui1BVcwusf,5,4,4.5,2,2,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Yes,1,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,5,4,4,4,2,5,2,local authority,1,25-100,3,East Midlands,No,,,No,,Christian,2,Environmental science and life science,Environmental science and life science,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_cTNtnbQi3ofK8Fz,5,2,3.5,2,5,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,Yes,"1,2,3,8",TRUE,TRUE,TRUE,FALSE,FALSE,FALSE,FALSE,TRUE,FALSE,4,4,2,4,4,4,2,academy,2,25-100,3,Yorkshire and North East,No,,,No,,,1,Theology,Theology,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,5-10 years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_1dtoO3odjNbYClh,4,4,4,4,3,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Yes,"4,8",FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,TRUE,FALSE,4,4,4,4,4,4,3,local authority,1,25-100,3,London and South East,Yes,Church of England,1,Yes,,Agnostic ,2,"english, theology, religious education","english, theology, religious education",Female,Welsh/English/Scottish/Northern Irish/British,cross-phase,Teacher,More than 50%,11 or more years,"2,3,4,5",2,1,1,1,1,Yes,Full time (paid employee),1
+R_0U1I31ldIOQsO09,4,2,3,2,4,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,Yes,"2,3,4,8",FALSE,TRUE,TRUE,TRUE,FALSE,FALSE,FALSE,TRUE,FALSE,2,4,2,4,2,4,2,academy,2,9-Jan,1,London and South East,No,,,No,,Catholic ,2,Primary education ,Primary education ,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,5-10 years,"1,2",1,1,2,2,2,Yes,Full time (paid employee),1
+R_22VLsB4xvyZYCBw,5,4,4.5,2,3,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,Maybe,,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,4,4,3,4,4,4,3,local authority,1,9-Jan,1,Yorkshire and North East,Yes,Church of England,1,No,,Christian,2,English and Theology,English and Theology,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,"1,2",1,1,2,2,2,Yes,Part time (paid employee),9
+R_1QsBURUrWn2Vxrw,3,3,3,3,3,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,Maybe,"1,7",TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,4,4,4,3,4,5,4,academy,2,25-Oct,2,North West,Yes,Church of England,1,No,,Christian,2,science,science,Male,White and Asian,primary,Teacher,,Less than 5 years,4,2,2,2,1,2,Yes,Full time (paid employee),1
+R_UT47X0QOtyCVjvb,4,2,3,2,3,"The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","2,3",FALSE,TRUE,TRUE,FALSE,Maybe,"1,4",TRUE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,4,3,3,4,4,4,2,academy,2,25-100,3,London and South East,No,,,No,,Anglican Christian,2,Study of Religion ,Study of Religion ,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"1,2,3,4,5",1,1,1,1,1,Yes,Full time (paid employee),1
+R_1gMjGtT6ZU3e1LU,2,2,2,2,5,,,FALSE,FALSE,FALSE,FALSE,Yes,"3,8,9",FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,TRUE,TRUE,3,3,3,1,3,3,3,local authority,1,25-Oct,2,London and South East,No,,,No,,,1,I did Business studies and Tourism and the a PGCE,I did Business studies and Tourism and the a PGCE,Female,Caribbean,primary,Teacher,,5-10 years,2,2,1,2,2,2,Yes,Full time (paid employee),1
+R_2V4qtqY6IdMzyr2,2,2,2,1,4,The relationship between the spiritual and material worlds in any religion/worldview,2,FALSE,TRUE,FALSE,FALSE,Maybe,"2,3,4,7",FALSE,TRUE,TRUE,TRUE,FALSE,FALSE,TRUE,FALSE,FALSE,3,2,2,4,3,4,2,academy,2,9-Jan,1,West Midlands,No,,,No,,Agnostic ,2,Early Childhood Education Studies,Early Childhood Education Studies,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,Less than 5 years,"1,2,4,5",1,1,2,1,1,Yes,Full time (paid employee),1
+R_2TMjGaamnNsLQz1,4,4,4,2,4,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,3,4",TRUE,FALSE,TRUE,TRUE,Yes,4,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,2,2,2,1,2,4,2,academy,2,9-Jan,1,Eastern England,No,,,No,,,1,Music,Music,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,"1,2",1,1,2,2,2,Yes,Full time (paid employee),1
+R_3iPSssHAneNAsGH,3,3,3,2,4,"Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)",3,FALSE,FALSE,TRUE,FALSE,Yes,"4,7,8",FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,FALSE,4,4,2,2,4,4,2,local authority,1,25-Oct,2,London and South East,Yes,Church of England,1,No,,,1,,,Male,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,"1,2",1,1,2,2,2,Yes,Full time (paid employee),1
+R_2UgBh0WempUe3xI,5,4,4.5,4,3,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,3,4",TRUE,FALSE,TRUE,TRUE,Maybe,4,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,4,4,4,3,4,4,4,local authority,1,9-Jan,1,London and South East,,,,,,C of E,2,,,Female,Welsh/English/Scottish/Northern Irish/British,primary,Higher Level Teaching Assistant,,5-10 years,"1,2",1,1,2,2,2,Yes,Full time (paid employee),1
+R_1IL8gk2YdtWCZHf,5,4,4.5,5,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,No,,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,5,4,4,3,4,4,4,academy,2,25-Oct,2,London and South East,,,,,,Atheist ,2,Design and Technology ,Design and Technology ,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,2,2,1,2,2,2,Yes,Full time (paid employee),1
+R_1Ft7c0elY4DbBJS,4,4,4,4,2,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,3",TRUE,FALSE,TRUE,FALSE,No,,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,5,4,4,4,4,4,4,,,,,,,,,,,,1,,,,,secondary,Teacher,,11 or more years,"2,3,4,5",2,1,1,1,1,,, 
+R_23HjJq7BKt44hrz,3,2,2.5,1,1,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,3,4",TRUE,FALSE,TRUE,TRUE,No,,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,5,3,4,2,4,4,4,,,,,,,,,,,,1,,,,,primary,Teacher,,11 or more years,"1,2",1,1,2,2,2,,, 
+R_3iDRlE6VP4OjzPS,2,2,2,2,4,The relationship between the spiritual and material worlds in any religion/worldview,2,FALSE,TRUE,FALSE,FALSE,Yes,"2,4,7",FALSE,TRUE,FALSE,TRUE,FALSE,FALSE,TRUE,FALSE,FALSE,3,2,2,1,2,2,1,local authority,1,25-Oct,2,West Midlands,,,,,,,1,English literature,English literature,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,2,2,1,2,2,2,Yes,Part time (paid employee),9
+R_2UgbG6myvCouyLR,2,2,2,1,5,"Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)",3,FALSE,FALSE,TRUE,FALSE,Yes,"4,7,8",FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,FALSE,4,4,3,4,4,3,3,local authority,1,25-100,3,London and South East,,,,,,,1,Religious Studies & Theology,Religious Studies & Theology,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,5-10 years,2,2,1,2,2,2,Yes,Full time (paid employee),1
+R_5c0i8QxUt3yFDl7,4,3,3.5,3,4,Understandings of nature in any religion/worldview,1,TRUE,FALSE,FALSE,FALSE,Maybe,3,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,3,4,3,2,3,3,4,free school,3,9-Jan,1,,,,,,,,,,,,,primary,Teacher,,Less than 5 years,2,2,1,2,2,2,Yes,Not working (retired),5
+R_1gGbhd56kDHm2nL,5,4,4.5,5,5,"Understandings of nature in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,3,4",TRUE,FALSE,TRUE,TRUE,Yes,9,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,4,4,4,4,4,4,4,academy,2,25-100,3,East Midlands,,,,,,,,Social studies and humanities with re,Social studies and humanities with re,Female,Welsh/English/Scottish/Northern Irish/British,secondary,Teacher,More than 50%,11 or more years,"1,2,4",1,1,2,1,2,Yes,Full time (paid employee),1
+R_2Rb7yspNjL0JATD,4,4,4,5,5,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview),The climate crisis and/or biodiversity crisis in relation to any religion or worldview","1,2,3,4",TRUE,TRUE,TRUE,TRUE,Yes,"3,4,7,8",FALSE,FALSE,TRUE,TRUE,FALSE,FALSE,TRUE,TRUE,FALSE,5,5,5,4,4,5,5,local authority,1,25-100,3,London and South East,,,,,,,,,,Male,White and Black African,primary,Higher Level Teaching Assistant,,5-10 years,"1,5",1,2,2,2,1,Yes,Full time (paid employee),1
+R_3gT5K7U7CH9RohJ,2,1,1.5,1,3,"Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)",3,FALSE,FALSE,TRUE,FALSE,Maybe,4,FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,,,,,,,,,,,,,,,,,,,,,,,,primary,Teacher,,11 or more years,"1,2",1,1,2,2,2,,, 
+R_2BhDufKhbDmMNeC,1,1,1,1,5,,,FALSE,FALSE,FALSE,FALSE,Yes,"2,3,4,7,8,9",FALSE,TRUE,TRUE,TRUE,FALSE,FALSE,TRUE,TRUE,TRUE,1,3,1,1,1,3,1,academy,2,25-Oct,2,East Midlands,,,,,,,,Professional studies,Professional studies,Female,Welsh/English/Scottish/Northern Irish/British,primary,Teacher,,11 or more years,"1,2,4,5",1,1,2,1,1,Yes,Full time (paid employee),1
+R_22X0hD5g2Ps0RyO,4,3,3.5,3,3,"Understandings of nature in any religion/worldview,The relationship between the spiritual and material worlds in any religion/worldview,Human beings’ responsibility towards the earth (environmental ethics in general, or in relation to any religion/worldview)","1,2,3",TRUE,TRUE,TRUE,FALSE,Maybe,"4,7",FALSE,FALSE,FALSE,TRUE,FALSE,FALSE,TRUE,FALSE,FALSE,,,,,,,,,,,,,,,,,,,,,,,,primary,Teacher,,11 or more years,2,2,1,2,2,2,,,