kidwellj/re_connect_survey
1
0
Fork 0
mirror of https://github.com/kidwellj/re_connect_survey.git synced 2024-12-04 22:52:20 +00:00
Code Issues Packages Projects Releases Wiki Activity
re_connect_survey/.Rhistory
rehughes07 388e9e6bc0 And even more graphs 
I've finished the coding for all questions (with the exception of what I stated in the last update) for the graphs. They still need to be altered to be prettier and tidier, but that shouldn't take too much.

After working through the other file I'll go back and remove participants' who have missing data so the next time the code is run it will be uniform and not have the ones with the missing data.
2021-12-03 14:00:40 +00:00

259 lines
30 KiB
R
Raw Permalink Blame History

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
Reference in a new issue View git blame Copy permalink