mirror of
https://github.com/kidwellj/re_connect_survey.git
synced 2024-10-31 23:42:20 +00:00
388e9e6bc0
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.
259 lines
30 KiB
R
259 lines
30 KiB
R
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
|