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.
This commit is contained in:
rehughes07
parent
a5451ab618
commit
388e9e6bc0
|
|
@ -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
|
||||
|
|
@ -205,6 +205,7 @@ 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"))
|
||||
|
|
@ -280,6 +281,7 @@ 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"))
|
||||
|
|
@ -474,58 +476,180 @@ Q25_by_Q19visualization
|
|||
```
|
||||
|
||||
```{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"))
|
||||
#testplot <- ggplot(summaries_data, aes(x = Q8_recode, y = Q22_avg)) + geom_bar(stat = "identity")
|
||||
#testplot
|
||||
|
||||
Q22_by_Q8visualization <- ggplot(summaries_data, aes(x = Q8_recode, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar")
|
||||
Q22_by_Q8visualization
|
||||
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"))
|
||||
|
||||
Q22_by_Q9visualization <- ggplot(summaries_data, aes(x = Q9_recode, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar")
|
||||
Q22_by_Q9visualization
|
||||
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)
|
||||
# Not sure what all the options are?
|
||||
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"))
|
||||
|
||||
Q22_by_Q12visualization <- ggplot(summaries_data, aes(x = Q12, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar")
|
||||
Q22_by_Q12visualization
|
||||
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"))
|
||||
Q22_by_Q15visualization <- ggplot(summaries_data, aes(x = Q15, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar")
|
||||
Q22_by_Q15visualization
|
||||
|
||||
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"))
|
||||
|
||||
Q22_by_Q21visualization <- ggplot(summaries_data, aes(x = Q21_binaryrecode, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar")
|
||||
Q22_by_Q21visualization
|
||||
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
|
||||
|
||||
###OR###
|
||||
Q22_by_Q21visualization2 <- ggplot(summaries_data, aes(x = Q21, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar")
|
||||
Q22_by_Q21visualization2
|
||||
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)
|
||||
Q22_by_Q18visualization <- ggplot(summaries_data, aes(x = Q18, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar")
|
||||
Q22_by_Q18visualization
|
||||
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)
|
||||
Q22_by_Q19visualization <- ggplot(summaries_data, aes(x = Q19, y = Q22_avg)) + stat_summary(fun = "mean", geom = "bar")
|
||||
Q22_by_Q19visualization
|
||||
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
|
||||
|
||||
#Q21 (respondent personal religious background)
|
||||
summaries_data$Q21_binaryrecode <- factor(summaries_data$Q21_binaryrecode, levels = c(1, 2), labels = c("No", "Yes"))
|
||||
|
||||
|
||||
```
|
||||
|
|
|
|||
Loading…
Reference in New Issue