mirror of
https://github.com/kidwellj/re_connect_survey.git
synced 2026-03-03 13:54:12 +00:00
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
3 changed files with 404 additions and 22 deletions
|
|
@ -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…
Add table
Add a link
Reference in a new issue