CF_ClimateDataFin_F2021
Ian Ortiz
1/27/2022
setwd("C:/Users/ianmt/Documents/R")
library(psych)
library(readr)
library(epiDisplay)## Loading required package: foreign## Loading required package: survival## Loading required package: MASS## Loading required package: nnet##
## Attaching package: 'epiDisplay'## The following objects are masked from 'package:psych':
##
## alpha, cs, lookuplibrary(ggthemes)
library(ggdist)
library(ggplot2)##
## Attaching package: 'ggplot2'## The following object is masked from 'package:epiDisplay':
##
## alpha## The following objects are masked from 'package:psych':
##
## %+%, alphalibrary(viridisLite)
library(viridis)
library(dplyr)##
## Attaching package: 'dplyr'## The following object is masked from 'package:MASS':
##
## select## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(rlang)climate <- read.csv("CF_Climate_F2021.csv")
#View(climate)
climate2 <- climate
climate2[climate2 == ""] <- NAIdentities
Age
# Age
ggplot(climate2,
aes(x = Q1,
fill = Q1))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Age",
x = "Age Group",
y = "Frequency")
Race and Ethnicity
raceth_matrix <- stringr::str_split_fixed(climate$Q2_1,
",",
n = 2)
raceth_matrix[raceth_matrix == ""] <- NA
table(raceth_matrix)## raceth_matrix
## African American Asian American Middle Eastern Native American
## 2 1 1 1
## White/Caucasian
## 15#View(raceth_matrix)
racethID1 <- factor(raceth_matrix[,1])
racethID2 <- factor(raceth_matrix[,2])
table(racethID1)## racethID1
## African American Asian American Middle Eastern Native American
## 2 1 1 1
## White/Caucasian
## 13table(racethID2)## racethID2
## White/Caucasian
## 2gg_raceth <- data.frame(table(raceth_matrix))
ggplot(gg_raceth,
aes(x = raceth_matrix,
y = Freq,
fill = raceth_matrix))+
geom_col()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Race/Ethnicity",
x = "Race/Ethnicity",
y = "Frequency")
Country of Origin
ggplot(climate2,
aes(x = Q2_2,
fill = Q2_2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Country of Origin",
x = "Country",
y = "Frequency")
Gender
gender_matrix <- stringr::str_split_fixed(climate$Q3,
",",
n = 3)
gender_matrix[gender_matrix == ""] <- NA
table(gender_matrix)## gender_matrix
## Genderqueer Cisgender Genderfluid Man Non-binary Transgender
## 3 10 3 1 2 1
## Woman
## 13#View(gender_matrix)
genderID1 <- factor(gender_matrix[,1])
genderID2 <- factor(gender_matrix[,2])
genderID3 <- factor(gender_matrix[,3])
table(genderID1)## genderID1
## Cisgender Genderfluid Transgender Woman
## 10 3 1 4table(genderID2)## genderID2
## Genderqueer Man Non-binary Woman
## 3 1 1 7table(genderID3)## genderID3
## Non-binary Woman
## 1 2gg_gender <- data.frame(table(gender_matrix))
ggplot(gg_gender,
aes(x = gender_matrix,
y = Freq,
fill = gender_matrix))+
geom_col()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Gender",
x = "Gender",
y = "Frequency")
Sexual Orientation
sexuality_matrix <- stringr::str_split_fixed(climate$Q4,
",",
n = 3)
sexuality_matrix[sexuality_matrix == ""] <- NA
table(sexuality_matrix)## sexuality_matrix
## Asexual Bisexual Gay Heterosexual Lesbian Pansexual
## 1 4 1 6 1 2
## Queer Questioning
## 6 2#View(sexuality_matrix)
sexualityID1 <- factor(sexuality_matrix[,1])
sexualityID2 <- factor(sexuality_matrix[,2])
sexualityID3 <- factor(sexuality_matrix[,3])
table(sexualityID1)## sexualityID1
## Asexual Bisexual Gay Heterosexual Lesbian Pansexual
## 1 4 1 6 1 1
## Queer Questioning
## 3 1table(sexualityID2)## sexualityID2
## Pansexual Queer Questioning
## 1 2 1table(sexualityID3)## sexualityID3
## Queer
## 1gg_sexuality <- data.frame(table(sexuality_matrix))
ggplot(gg_sexuality,
aes(x = sexuality_matrix,
y = Freq,
fill = sexuality_matrix))+
geom_col()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Sexual Orientation",
x = "Sexual Orientation",
y = "Frequency")
Religion
ggplot(climate2,
aes(x = Q8,
fill = Q8))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Religious Affiliation",
x = "Affiliation",
y = "Frequency")
Dis/Ability
ggplot(climate2,
aes(x = Q9,
fill = Q9))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Dis/Ability",
x = "Dis/Ability",
y = "Frequency")
Socioeconomic
Family Household
ggplot(climate2,
aes(x = Q7,
fill = Q7))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Living with Family or Independent",
x = "Living Situation",
y = "Frequency")
Estimated Family Income
climate2_1 <- climate2
#View(climate2_1)
oldvals2_1 <- c("1$0 - $8,500", "2$8,501 - $34,500", "3$34,501 - $83,600", "4$83,601 - $174,400", "5$174,401 - $379,150", "6$379,150+")
newvals2_1 <- c(1,2,3,4,5,6)
faminc <- climate2_1$Q71
rQ71 <- newvals2_1[match(faminc,oldvals2_1)]
#mutate(climate2_1, rQ71)
ggplot(climate2_1,
aes(x = rQ71,
fill = Q71))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Estimated Yearly Family Income",
x = "Income Group",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
Personal Yearly Income
climate2_2 <- climate2
#View(climate2_1)
oldvals2_2 <- c("1$0 - $8,500", "2$8,501 - $34,500", "3$34,501 - $83,600", "4$83,601 - $174,400", "5$174,401 - $379,150", "6$379,150+")
newvals2_2 <- c(1,2,3,4,5,6)
persinc <- climate2_1$Q72
rQ72 <- newvals2_2[match(persinc,oldvals2_2)]
#mutate(climate2_2, rQ72)
ggplot(climate2_2,
aes(x = rQ72,
fill = Q72))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Estimated Yearly Personal Income",
x = "Income Group",
y = "Frequency")## Warning: Removed 1 rows containing non-finite values (stat_count).
Receive Work Study
ggplot(climate2,
aes(x = Q73,
fill = Q73))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Work Study",
x = "Recieve WS",
y = "Frequency")
Income Supplemented by Aid
ggplot(climate2,
aes(x = Q74,
fill = Q74))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Emergency aid to supplement income",
x = "Recieve Aid",
y = "Frequency")
Personal Climate Anxieties
climate3 <- climate
#View(climate3)
oldvals <- c("7Never Worried", "6Rare occurrences in a year", "5Several months of the year", "4Few days out of the month", "3Occasionally throughout any given week", "2The majority of Most Weeks", "1Daily")
newvals <- c(7,6,5,4,3,2,1)Meeting Monthly Expenses
monexp <- climate3$Q21_1
rQ21_1 <- newvals[match(monexp,oldvals)]
#mutate(climate3, rQ21_1)
ggplot(climate3,
aes(x = rQ21_1,
fill = monexp))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Meeting Monthly Expenses",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_1,
fill = monexp))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Meeting Monthly Expenses ~ Living w Family",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_1,
fill = monexp))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Meeting Monthly Expenses ~ Family Income",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_1,
fill = monexp))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Meeting Monthly Expenses ~ Personal Income",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_1,
fill = monexp))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Meeting Monthly Expenses ~ Race/Ethnicity",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_1,
fill = monexp))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Meeting Monthly Expenses ~ Attractionality",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_1,
fill = monexp))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Meeting Monthly Expenses ~ Undergrad v Grad",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_1,
fill = monexp))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Meeting Monthly Expenses ~ Staff v NonStaff",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_1,
fill = monexp))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Meeting Monthly Expenses ~ Student v Alumni",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Obtaining Nutritional Food
nutfood <- climate3$Q21_2
rQ21_2 <- newvals[match(nutfood,oldvals)]
#mutate(climate3, rQ21_2)
ggplot(climate3,
aes(x = rQ21_2,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Obtaining Nutritional Food",
x = "Level",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_2,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Obtaining Nutritional Food ~ Family Household",
x = "Level",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_2,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Obtaining Nutritional Food ~ Family Income",
x = "Level",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_2,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Obtaining Nutritional Food ~ Personal Income",
x = "Level",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_2,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Obtaining Nutritional Food ~ Race/Ethnicity",
x = "Level",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_2,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Obtaining Nutritional Food ~ Attractionality",
x = "Level",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_2,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Obtaining Nutritional Food ~ Undergrad v Grad",
x = "Level",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_2,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Obtaining Nutritional Food ~ Staff v NonStaff",
x = "Level",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_2,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Obtaining Nutritional Food ~ Student v Alumni",
x = "Level",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
Culturally Relevant Diet
dietfood <- climate3$Q21_3
rQ21_3 <- newvals[match(dietfood,oldvals)]
#mutate(climate3, rQ21_3)
ggplot(climate3,
aes(x = rQ21_3,
fill = dietfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Obtaining Culturally Relevant Food",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_3,
fill = dietfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Obtaining Culturally Relevant Food ~ Family Household",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_3,
fill = dietfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Obtaining Culturally Relevant Food ~ Family Income",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_3,
fill = dietfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Obtaining Culturally Relevant Food ~ Personal Income",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_3,
fill = dietfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Obtaining Culturally Relevant Food ~ Race/Ethnicity",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_3,
fill = dietfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Obtaining Culturally Relevant Food ~ Attractionality",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_3,
fill = dietfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Obtaining Culturally Relevant Food ~ Undergrad v Grad",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_3,
fill = dietfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Obtaining Culturally Relevant Food ~ Staff v NonStaff",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_3,
fill = dietfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Obtaining Culturally Relevant Food ~ Student v Alumni",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Housing Situation
housing <- climate3$Q21_4
rQ21_4 <- newvals[match(housing,oldvals)]
#mutate(climate3, rQ21_4)
ggplot(climate3,
aes(x = rQ21_4,
fill = housing))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Housing Security",
x = "Level",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_4,
fill = housing))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Housing Security ~ Family Household",
x = "Level",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_4,
fill = housing))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Housing Security ~ Family Income",
x = "Level",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_4,
fill = housing))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Housing Security ~ Personal Income",
x = "Level",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_4,
fill = housing))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Housing Security ~ Race/Ethnicity",
x = "Level",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_4,
fill = housing))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Housing Security ~ Attractionality",
x = "Level",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_4,
fill = housing))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Housing Security ~ Undergrad v Grad",
x = "Level",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_4,
fill = housing))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Housing Security ~ Staff v NonStaff",
x = "Level",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_4,
fill = housing))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Housing Security ~ Student v Alumni",
x = "Level",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Safety at Home
homsaf <- climate3$Q21_5
rQ21_5 <- newvals[match(homsaf,oldvals)]
#mutate(climate3, rQ21_5)
ggplot(climate3,
aes(x = rQ21_5,
fill = homsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Physical Safety at Home",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_5,
fill = homsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Physical Safety at Home ~ Family Household",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_5,
fill = homsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Physical Safety at Home ~ Family Income",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_5,
fill = homsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Physical Safety at Home ~ Personal Income",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_5,
fill = homsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Physical Safety at Home ~ Race/Ethnicity",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_5,
fill = homsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Physical Safety at Home ~ Attractionality",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_5,
fill = homsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Physical Safety at Home ~ Undergrad v Grad",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_5,
fill = homsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Physical Safety at Home ~ Staff v NonStaff",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_5,
fill = homsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Physical Safety at Home ~ Student v Alumni",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Safety on Campus
campsaf <- climate3$Q21_6
rQ21_6 <- newvals[match(campsaf,oldvals)]
#mutate(climate3, rQ21_6)
ggplot(climate3,
aes(x = rQ21_6,
fill = campsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Physical Safety on Campus",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_6,
fill = campsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Physical Safety on Campus ~ Family Household",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_6,
fill = campsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Physical Safety on Campus ~ Family Income",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_6,
fill = campsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Physical Safety on Campus ~ Personal Income",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_6,
fill = campsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Physical Safety on Campus ~ Race/Ethnicity",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_6,
fill = campsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Physical Safety on Campus ~ Attractionality",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_6,
fill = campsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Physical Safety on Campus ~ Undergrad v Grad",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_6,
fill = campsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Physical Safety on Campus ~ Staff v NonStaff",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_6,
fill = campsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Physical Safety on Campus ~ Student v Alumni",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Safety at Matthaei
matsaf <- climate3$Q21_7
rQ21_7 <- newvals[match(matsaf,oldvals)]
#mutate(climate3, rQ21_7)
ggplot(climate3,
aes(x = rQ21_7,
fill = matsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Physical Safety at Matthaei",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_7,
fill = matsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Physical Safety at Matthaei ~ Family Household",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_7,
fill = matsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Physical Safety at Matthaei ~ Family Income",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_7,
fill = matsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Physical Safety at Matthaei ~ Personal Income",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_7,
fill = matsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Physical Safety at Matthaei ~ Race/Ethnicity",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_7,
fill = matsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Physical Safety at Matthaei ~ Attractionality",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_7,
fill = matsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Physical Safety at Matthaei ~ Staff v Nonstaff",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_7,
fill = matsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Physical Safety at Matthaei ~ Student v Alumi",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Safety at Campus Farm
farmsaf <- climate3$Q21_8
rQ21_8 <- newvals[match(farmsaf,oldvals)]
#mutate(climate3, rQ21_8)
ggplot(climate3,
aes(x = rQ21_8,
fill = farmsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Physical Safety at the Farm",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_8,
fill = farmsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Physical Safety at the Farm ~ Family Household",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_8,
fill = farmsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Physical Safety at the Farm ~ Family Income",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_8,
fill = farmsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Physical Safety at the Farm ~ Personal Income",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_8,
fill = farmsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Physical Safety at the Farm ~ Race/Ethnicity",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_8,
fill = farmsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Physical Safety at the Farm ~ Attractionality",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_8,
fill = farmsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Physical Safety at the Farm ~ Undergrad v Grad",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_8,
fill = farmsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Physical Safety at the Farm ~ Staff v Nonstaff",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate3,
aes(x = rQ21_8,
fill = farmsaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Physical Safety at the Farm ~ Student v Alumni",
x = "Level",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Affiliations and Engagement
Affiliations within UMich
affiln_matrix <- stringr::str_split_fixed(climate$Q6,
",",
n = 2)
affiln_matrix[affiln_matrix == ""] <- NA
table(affiln_matrix)## affiln_matrix
## Alumnus/Alumna Faculty Student
## 5 2 14#View(affiln_matrix)
affilnID1 <- factor(affiln_matrix[,1])
affilnID2 <- factor(affiln_matrix[,2])
table(affilnID1)## affilnID1
## Alumnus/Alumna Student
## 5 13table(affilnID2)## affilnID2
## Faculty Student
## 2 1gg_affiln <- data.frame(table(affiln_matrix))
ggplot(gg_affiln,
aes(x = affiln_matrix,
y = Freq,
fill = affiln_matrix))+
geom_col()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "UM Affiliation",
x = "Position",
y = "Frequency")
Class Year
ggplot(climate2,
aes(x = Q61,
fill = Q61))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Class Year",
x = "Group",
y = "Frequency")
Major and Concentration
major_matrix <- stringr::str_split_fixed(climate$Q62,
",",
n = 2)
major_matrix[major_matrix == ""] <- NA
table(major_matrix)## major_matrix
## Climate and Meteorology Econ EEB
## 1 1 1
## Environmental Engineering Information PitE
## 2 1 6
## Ross SEAS
## 1 3#View(major_matrix)
majorID1 <- factor(major_matrix[,1])
majorID2 <- factor(major_matrix[,2])
table(majorID1)## majorID1
## Climate and Meteorology EEB Environmental Engineering
## 1 1 2
## Information PitE SEAS
## 1 6 3table(majorID2)## majorID2
## Econ Ross
## 1 1gg_major <- data.frame(table(major_matrix))
ggplot(gg_major,
aes(x = major_matrix,
y = Freq,
fill = major_matrix))+
geom_col()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Major or Concentration",
x = "Track",
y = "Frequency")
UMich Org Affiliations
orgs_matrix <- stringr::str_split_fixed(climate$Q63,
",",
n = 5)
orgs_matrix[orgs_matrix == ""] <- NA
table(orgs_matrix)## orgs_matrix
## AMS Club Sports
## 1 1
## Epsilon Eta Erb Student Advisory Board
## 3 1
## Friends of the Campus Farm GEO
## 2 2
## Intercooperative Council MANRRS
## 1 2
## MBC MDFAC
## 1 1
## Michigan Marching Band Net Impact
## 1 1
## SAAC SfCE
## 1 1
## Theta Alpha Psi UMSFP
## 1 1#View(orgs_matrix)
orgsID1 <- factor(orgs_matrix[,1])
orgsID2 <- factor(orgs_matrix[,2])
orgsID3 <- factor(orgs_matrix[,3])
orgsID4 <- factor(orgs_matrix[,4])
orgsID5 <- factor(orgs_matrix[,5])
table(orgsID1)## orgsID1
## Club Sports Epsilon Eta GEO
## 1 3 2
## Intercooperative Council MANRRS SfCE
## 1 1 1
## Theta Alpha Psi UMSFP
## 1 1table(orgsID2)## orgsID2
## AMS Friends of the Campus Farm
## 1 2
## MANRRS Net Impact
## 1 1table(orgsID3)## orgsID3
## Erb Student Advisory Board MBC
## 1 1
## Michigan Marching Band
## 1table(orgsID4)## orgsID4
## SAAC
## 1table(orgsID5)## orgsID5
## MDFAC
## 1gg_orgs <- data.frame(table(orgs_matrix))
ggplot(gg_orgs,
aes(x = orgs_matrix,
y = Freq,
fill = orgs_matrix))+
geom_col()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Personal UM Org Affln",
x = "Organization",
y = "Frequency")
Affiliations Beyond UMich
table(climate$Q64)##
##
## 14
## A2Zero, Ann Arbor Environmental Commission
## 1
## Bike-in, Bad Decisions Track Club
## 1
## I want to be more involved with Now Studios next semester but we'll see
## 1
## Thrive Collaborative in Ann Arbor
## 1Time Engaged w Farm
ggplot(climate2,
aes(x = Q71_1,
fill = Q71_1))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Time Started w Farm",
x = "Time Period",
y = "Frequency")
Role on Farm
engag_matrix <- stringr::str_split_fixed(climate$Q20_1,
",",
n = 3)
engag_matrix[engag_matrix == ""] <- NA
table(engag_matrix)## engag_matrix
## Campus farm staff Other
## 14 1
## Research/Project participant Student in class
## 1 3
## Volunteer
## 4#View(engag_matrix)
engagID1 <- factor(engag_matrix[,1])
engagID2 <- factor(engag_matrix[,2])
engagID3 <- factor(engag_matrix[,3])
table(engagID1)## engagID1
## Campus farm staff Other Student in class Volunteer
## 12 1 3 1table(engagID2)## engagID2
## Campus farm staff Research/Project participant
## 1 1
## Volunteer
## 3table(engagID3)## engagID3
## Campus farm staff
## 1gg_engag <- data.frame(table(engag_matrix))
ggplot(gg_engag,
aes(x = engag_matrix,
y = Freq,
fill = engag_matrix))+
geom_col()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Position or Role on Farm",
x = "Role",
y = "Frequency")
Duration of Farm Engagement
ggplot(climate2,
aes(x = Q20_2,
fill = Q20_2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Length of Engagement w Farm",
x = "Years",
y = "Frequency")
Duration of Volunteer
ggplot(climate2,
aes(x = Q20_3,
fill = Q20_3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(titlem = "Length of Volunteer",
x = "Years",
y = "Frequency")
First Connection to Farm
ggplot(climate2,
aes(x = Q24_1,
fill = Q24_1))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Means of First Engagement",
x = "Resource",
y = "Frequency")
Discovery of Farm
table(climate$Q24_18)##
## Festifall SEAS orientation
## 12 1 1
## SLE Student employment site Summer Bridge Program
## 1 1 1
## UMSFP
## 1Spec of Connection
table(climate$Q24_2)##
##
## 7
## Campus Connections through the CSP Bridge program was another program that allowed students to be better immersed with campus through different organizations the university has. I chose food and sustainability and got connected with the farm!
## 1
## Davis Boos
## 1
## DDCSP Network through Sam Stokes, and Ember McCoy
## 1
## I first came to farm workdays with SLE and then heard about the internship over the summer and applied.
## 1
## I heard about the farm in Environ/Bio 101 with John Vandermeer my first year of school - I began volunteering and later applied for a crew member position.
## 1
## PitE
## 1
## saw it when i was looking for work study jobs on the student employment website
## 1
## Student employment website of umich.
## 1
## Sustainable Living Experience Newsletter, and heard about it more in the seminar for SLE after applying
## 1
## UMSFP
## 1
## UMSFP ties
## 1Ranked Reasons for Volunteering
Sig of Reasons for Volunteering
ggplot(climate2,
aes(x = Q20_4))+
geom_bar(fill = 'purple')+
labs(title = "Concern about Environ and Sustain",
x = "Level",
y = "Frequency")## Warning: Removed 14 rows containing non-finite values (stat_count).
ggplot(climate2,
aes(x = Q20_42))+
geom_bar(fill = 'blue')+
labs(title = "Working w Plants and Soil",
x = "Level",
y = "Frequency")## Warning: Removed 14 rows containing non-finite values (stat_count).
ggplot(climate2,
aes(x = Q20_43))+
geom_bar(fill = 'green')+
labs(title = "Free Produce",
x = "Level",
y = "Frequency")## Warning: Removed 14 rows containing non-finite values (stat_count).
ggplot(climate2,
aes(x = Q20_44))+
geom_bar(fill = 'yellow')+
labs(title = "Passion for Food Justice and Access",
x = "Level",
y = "Frequency")## Warning: Removed 14 rows containing non-finite values (stat_count).
ggplot(climate2,
aes(x = Q20_45))+
geom_bar(fill = 'orange')+
labs(title = "Socialize/ Be part of Community",
x = "Level",
y = "Frequency")## Warning: Removed 14 rows containing non-finite values (stat_count).
ggplot(climate2,
aes(x = Q20_46))+
geom_bar(fill = 'red')+
labs(title = "Help Grow Farm",
x = "Level",
y = "Frequency")## Warning: Removed 14 rows containing non-finite values (stat_count).
Transportation
Means of Transportation
transport_matrix <- stringr::str_split_fixed(climate$Q23_1,
",",
n = 3)
transport_matrix[transport_matrix == ""] <- NA
table(transport_matrix)## transport_matrix
## Bike Bus Coordinated Carpool Personal Car
## 3 1 5 12
## Uber/Lyft/Cab Walk
## 2 1#View(transport_matrix)
transportID1 <- factor(transport_matrix[,1])
transportID2 <- factor(transport_matrix[,2])
transportID3 <- factor(transport_matrix[,3])
table(transportID1)## transportID1
## Bike Bus Personal Car Uber/Lyft/Cab
## 1 1 12 2table(transportID2)## transportID2
## Bike Coordinated Carpool Walk
## 2 4 1table(transportID3)## transportID3
## Coordinated Carpool
## 1gg_transport <- data.frame(table(transport_matrix))
ggplot(gg_transport,
aes(x = transport_matrix,
y = Freq,
fill = transport_matrix))+
geom_col()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Transportation Means",
x = "Mode",
y = "Frequency")
table(climate$Q23_2)##
## Fine
## 17 1table(climate$Q23_3)##
##
## 16
## I felt the range to be limited for my use. I don't live in Ann Arbor, so it has been difficult to coordinate rides and carpooling since I can't be reimbursed for a trip home.
## 1
## it Was mostly positive. Sometimes the shift hours are hours when not a lot of vehicles are available, so that made scheduling a little difficult.
## 1table(climate$Q23_4)##
##
## 16
## The reimbursement policy only applies to ann arbor, and planning finances is more difficult when I have to designate half my pay on hold for rides until the next payday.
## 1
## yes, I think it works alright after I got used to it
## 1table(climate$X23_5)##
##
## 13
## FCF or friend/housemate conversations
## 1
## It has been organized with my roommate's schedule who has a car.
## 1
## Lead manager coordinates carpooling with folks who have overlapping shifts
## 1
## over spreadsheet for campus farm volunteer workdays
## 1
## through text, sometimes miscommunication/ lack of communication made things difficult. occasionally I carpool with work friends, the organization is left to us and reaching out to people in our shifts for rides.
## 1table(climate$Q23_6)##
##
## 7
## For sure - the whole no public transit available isn't great
## 1
## Would love a consistent Blue Bus or regular university transport option!
## 1
## yes
## 1
## YES- no public transportation is an accessiblity issue as people who are disabled often cannot take Ubers and also stresses students financially
## 1
## Yes very challenging for students to get here
## 1
## YES! über/lyft only works from campus (doesn't account for off campus students), ride share reimbursement can be financially burdensome to provide up front, ride shares require a smart phone with data/internet connection, bus lines stop about a mile away from the farm, carpooling may be difficult to coordinate if shifts don't happen to line up
## 1
## Yes, having a more consistent mode of transport is needed.
## 1
## Yes, it can sometimes be difficult coordinating rides. I am lucky enough to have my own car this year, but last year I did not and it can be unreliable getting to and from the farm.
## 1
## Yes, its hard for carless folks to make it out!
## 1
## Yes, there should be a bus or better rideshare organization
## 1
## Yes.
## 1Farm Operations
Onboarding
climate4 <- climate
#View(climate4)
oldvals2 <- c("1Very Unfavorable", "2Somewhat Unfavorable", "3Neutral", "4Somewhat Favorable", "5Very Favorable")
newvals2 <- c(1,2,3,4,5)Matthaei Equipment Training
ggplot(climate2,
aes(x = Q22,
fill = Q22))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Feeling Unsafe w Matthaei Equipment",
x = "Scale",
y = "Frequency")
Ability to Express Concern
griev <- climate4$Q71_21
rQ71_21 <- newvals2[match(griev,oldvals2)]
#mutate(climate4, rQ71_21)
ggplot(climate4,
aes(x = rQ71_21,
fill = griev))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Onboarding ability to voice concern",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_21,
fill = griev))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Onboarding ability to voice concern ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_21,
fill = griev))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Onboarding ability to voice concern ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_21,
fill = griev))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Onboarding ability to voice concern ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_21,
fill = griev))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Onboarding ability to voice concern ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_21,
fill = griev))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Onboarding ability to voice concern ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_21,
fill = griev))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Onboarding ability to voice concern ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_21,
fill = griev))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Onboarding ability to voice concern ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_21,
fill = griev))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Onboarding ability to voice concern ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_21,
fill = griev))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Onboarding ability to voice concern ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_21,
fill = griev))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Onboarding ability to voice concern ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Accessibility of Work on Site
site <- climate4$Q71_22
rQ71_22 <- newvals2[match(site,oldvals2)]
#mutate(climate4, rQ71_22)
ggplot(climate4,
aes(x = rQ71_22,
fill = site))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Onboarding Accessibility of Work on Site",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_22,
fill = site))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Onboarding Accessibility of Work on Site ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_22,
fill = site))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Onboarding Accessibility of Work on Site ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_22,
fill = site))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Onboarding Accessibility of Work on Site ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_22,
fill = site))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Onboarding Accessibility of Work on Site ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_22,
fill = site))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Onboarding Accessibility of Work on Site ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_22,
fill = site))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Onboarding Accessibility of Work on Site ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_22,
fill = site))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Onboarding Accessibility of Work on Site ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_22,
fill = site))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Onboarding Accessibility of Work on Site ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_22,
fill = site))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Onboarding Accessibility of Work on Site ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_22,
fill = site))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Onboarding Accessibility of Work on Site ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Comfort with Ops and Procedures
opcomf <- climate4$Q71_23
rQ71_23 <- newvals2[match(opcomf,oldvals2)]
#mutate(climate4, rQ71_23)
ggplot(climate4,
aes(x = rQ71_23,
fill = opcomf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Onboarding Comfort with Ops and Procedures",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_23,
fill = opcomf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Onboarding Comfort with Ops and Procedures ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_23,
fill = opcomf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Onboarding Comfort with Ops and Procedures ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_23,
fill = opcomf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Onboarding Comfort with Ops and Procedures ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_23,
fill = opcomf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Onboarding Comfort with Ops and Procedures ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_23,
fill = opcomf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Onboarding Comfort with Ops and Procedures ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_23,
fill = opcomf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Onboarding Comfort with Ops and Procedures ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_23,
fill = opcomf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Onboarding Comfort with Ops and Procedures ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_23,
fill = opcomf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Onboarding Comfort with Ops and Procedures ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_23,
fill = opcomf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Onboarding Comfort with Ops and Procedures ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_23,
fill = opcomf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Onboarding Comfort with Ops and Procedures ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Communication with leads
comm <- climate4$Q71_24
rQ71_24 <- newvals2[match(comm,oldvals2)]
#mutate(climate4, rQ71_24)
ggplot(climate4,
aes(x = rQ71_24,
fill = comm))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Onboarding Communication with Leads",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_24,
fill = comm))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Onboarding Communication with Leads ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_24,
fill = comm))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Onboarding Communication with Leads ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_24,
fill = comm))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Onboarding Communication with Leads ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_24,
fill = comm))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Onboarding Communication with Leads ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_24,
fill = comm))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Onboarding Communication with Leads ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_24,
fill = comm))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Onboarding Communication with Leads ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_24,
fill = comm))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Onboarding Communication with Leads ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_24,
fill = comm))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Onboarding Communication with Leads ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_24,
fill = comm))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Onboarding Communication with Leads ~ Staff vs NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_24,
fill = comm))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Onboarding Communication with Leads ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Flexibility in Role
flex <- climate4$Q71_25
rQ71_25 <- newvals2[match(flex,oldvals2)]
#mutate(climate4, rQ71_25)
ggplot(climate4,
aes(x = rQ71_25,
fill = flex))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Onboarding Flexibility in Role",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_25,
fill = flex))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Onboarding Flexibility in Role ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_25,
fill = flex))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Onboarding Flexibility in Role ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_25,
fill = flex))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Onboarding Flexibility in Role ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_25,
fill = flex))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Onboarding Flexibility in Role ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_25,
fill = flex))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Onboarding Flexibility in Role ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_25,
fill = flex))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Onboarding Flexibility in Role ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_25,
fill = flex))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Onboarding Flexibility in Role ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_25,
fill = flex))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Onboarding Flexibility in Role ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_25,
fill = flex))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Onboarding Flexibility in Role ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_25,
fill = flex))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Onboarding Flexibility in Role ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Receptivity of Management and Ops
recep <- climate4$Q71_26
rQ71_26 <- newvals2[match(recep,oldvals2)]
#mutate(climate4, rQ71_26)
ggplot(climate4,
aes(x = rQ71_26,
fill = recep))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Onboarding Receptivity of Mngmt and Ops",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_26,
fill = recep))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Onboarding Receptivity of Mngmt and Ops ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_26,
fill = recep))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Onboarding Receptivity of Mngmt and Ops ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_26,
fill = recep))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Onboarding Receptivity of Mngmt and Ops ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_26,
fill = recep))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Onboarding Receptivity of Mngmt and Ops ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_26,
fill = recep))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Onboarding Receptivity of Mngmt and Ops ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_26,
fill = recep))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Onboarding Receptivity of Mngmt and Ops ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_26,
fill = recep))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Onboarding Receptivity of Mngmt and Ops ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_26,
fill = recep))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Onboarding Receptivity of Mngmt and Ops ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_26,
fill = recep))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Onboarding Receptivity of Mngmt and Ops ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_26,
fill = recep))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Onboarding Receptivity of Mngmt and Ops ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Physical Safety
safe <- climate4$Q71_27
rQ71_27 <- newvals2[match(safe,oldvals2)]
#mutate(climate4, rQ71_27)
ggplot(climate4,
aes(x = rQ71_27,
fill = safe))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Onboarding Physical Safety",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_27,
fill = safe))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Onboarding Physical Safety ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_27,
fill = safe))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Onboarding Physical Safety ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_27,
fill = safe))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Onboarding Physical Safety ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_27,
fill = safe))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Onboarding Physical Safety ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_27,
fill = safe))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Onboarding Physical Safety ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_27,
fill = safe))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Onboarding Physical Safety ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_27,
fill = safe))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Onboarding Physical Safety ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_27,
fill = safe))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Onboarding Physical Safety ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_27,
fill = safe))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Onboarding Physical Safety ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_27,
fill = safe))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Onboarding Physical Safety ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Sense of Community Harmony
harmon <- climate4$Q71_28
rQ71_28 <- newvals2[match(harmon,oldvals2)]
#mutate(climate4, rQ71_28)
ggplot(climate4,
aes(x = rQ71_28,
fill = harmon))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Onboarding sense of community harmony",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_28,
fill = harmon))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Onboarding sense of community harmony ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_28,
fill = harmon))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Onboarding sense of community harmony ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_28,
fill = harmon))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Onboarding sense of community harmony ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_28,
fill = harmon))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Onboarding sense of community harmony ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_28,
fill = harmon))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Onboarding sense of community harmony ~ Period of Star",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_28,
fill = harmon))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Onboarding sense of community harmony ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_28,
fill = harmon))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Onboarding sense of community harmony ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_28,
fill = harmon))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Onboarding sense of community harmony ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_28,
fill = harmon))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Onboarding sense of community harmony ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_28,
fill = harmon))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Onboarding sense of community harmony ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Space for Expression and Agency
express <- climate4$Q71_29
rQ71_29 <- newvals2[match(express,oldvals2)]
#mutate(climate4, rQ71_29)
ggplot(climate4,
aes(x = rQ71_29,
fill = express))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Onboarding Agency and Expression",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_29,
fill = express))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Onboarding Agency and Expression ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_29,
fill = express))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Onboarding Agency and Expression ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_29,
fill = express))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Onboarding Agency and Expression ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_29,
fill = express))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Onboarding Agency and Expression ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_29,
fill = express))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Onboarding Agency and Expression ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_29,
fill = express))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Onboarding Agency and Expression ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_29,
fill = express))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Onboarding Agency and Expression ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_29,
fill = express))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Onboarding Agency and Expression ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_29,
fill = express))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Onboarding Agency and Expression ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_29,
fill = express))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Onboarding Agency and Expression ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Understanding of Role
role <- climate4$Q71_210
rQ71_210 <- newvals2[match(role,oldvals2)]
#mutate(climate4, rQ71_210)
ggplot(climate4,
aes(x = rQ71_210,
fill = role))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Onboarding understanding of role and expectation",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_210,
fill = role))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Onboarding understanding of role and expectation ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_210,
fill = role))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Onboarding understanding of role and expectation ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_210,
fill = role))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Onboarding understanding of role and expectation ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_210,
fill = role))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Onboarding understanding of role and expectation ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_210,
fill = role))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Onboarding understanding of role and expectation ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_210,
fill = role))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Onboarding understanding of role and expectation ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_210,
fill = role))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Onboarding understanding of role and expectation ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_210,
fill = role))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Onboarding understanding of role and expectation ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_210,
fill = role))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Onboarding understanding of role and expectation ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate4,
aes(x = rQ71_210,
fill = role))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Onboarding understanding of role and expectation ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Climate Change
climate5 <- climate
oldvals3 <- c("1Highly Unfavorable changes", "2Somewhat Unfavorable changes", "3Neutral or No changes", "4Somewhat Favorable Changes", "5Highly Favorable Changes")
newvals3 <- c(1,2,3,4,5)Ability to Express Concern
griev2 <- climate5$Q71_31
rQ71_31 <- newvals3[match(griev2,oldvals3)]
#mutate(climate5, rQ71_31)
ggplot(climate5,
aes(x = rQ71_31,
fill = griev2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in ability to express concern and grievances",
x = "Scale",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_31,
fill = griev2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Change in ability to express concern and grievances ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_31,
fill = griev2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Change in ability to express concern and grievances ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_31,
fill = griev2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Change in ability to express concern and grievances ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_31,
fill = griev2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Change in ability to express concern and grievances ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_31,
fill = griev2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Change in ability to express concern and grievances ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_31,
fill = griev2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Change in ability to express concern and grievances ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_31,
fill = griev2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Change in ability to express concern and grievances ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_31,
fill = griev2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Change in ability to express concern and grievances ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_31,
fill = griev2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Change in ability to express concern and grievances ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_31,
fill = griev2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Change in ability to express concern and grievances ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 4 rows containing non-finite values (stat_count).
Accessibility of Work on Site
site2 <- climate5$Q71_32
rQ71_32 <- newvals3[match(site2,oldvals3)]
#mutate(climate5, rQ71_32)
ggplot(climate5,
aes(x = rQ71_32,
fill = site2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Accessibility of work on site",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_32,
fill = site2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Change in Accessibility of work on site ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_32,
fill = site2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Change in Accessibility of work on site ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_32,
fill = site2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Change in Accessibility of work on site ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_32,
fill = site2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Change in Accessibility of work on site ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_32,
fill = site2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Change in Accessibility of work on site ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_32,
fill = site2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Change in Accessibility of work on site ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_32,
fill = site2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Change in Accessibility of work on site ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_32,
fill = site2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Change in Accessibility of work on site ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_32,
fill = site2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Change in Accessibility of work on site ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_32,
fill = site2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Change in Accessibility of work on site ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Access to Academic Resources
academ <- climate5$Q71_33
rQ71_33 <- newvals3[match(academ,oldvals3)]
#mutate(climate5, rQ71_33)
ggplot(climate5,
aes(x = rQ71_33,
fill = academ))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in access to academic resources",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_33,
fill = academ))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Change in access to academic resources ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_33,
fill = academ))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Change in access to academic resources ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_33,
fill = academ))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Change in access to academic resources ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_33,
fill = academ))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Change in access to academic resources ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_33,
fill = academ))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Change in access to academic resources ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_33,
fill = academ))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Change in access to academic resources ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_33,
fill = academ))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Change in access to academic resources ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_33,
fill = academ))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Change in access to academic resources ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_33,
fill = academ))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Change in access to academic resources ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_33,
fill = academ))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Change in access to academic resources ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Comfort with Ops and Procedures
opcomf2 <- climate5$Q71_34
rQ71_34 <- newvals3[match(opcomf2,oldvals3)]
#mutate(climate5, rQ71_34)
ggplot(climate5,
aes(x = rQ71_34,
fill = opcomf2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in comfort with ops and procedures",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_34,
fill = opcomf2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Change in comfort with ops and procedures ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_34,
fill = opcomf2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Change in comfort with ops and procedures ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_34,
fill = opcomf2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Change in comfort with ops and procedures ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_34,
fill = opcomf2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Change in comfort with ops and procedures ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_34,
fill = opcomf2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Change in comfort with ops and procedures ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_34,
fill = opcomf2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Change in comfort with ops and procedures ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_34,
fill = opcomf2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Change in comfort with ops and procedures ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_34,
fill = opcomf2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Change in comfort with ops and procedures ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_34,
fill = opcomf2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Change in comfort with ops and procedures ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_34,
fill = opcomf2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Change in comfort with ops and procedures ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Communication with Leads
comm2 <- climate5$Q71_35
rQ71_35 <- newvals3[match(comm2,oldvals3)]
#mutate(climate5, rQ71_35)
ggplot(climate5,
aes(x = rQ71_35,
fill = comm2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in communication with leads",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_35,
fill = comm2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Change in communication with leads ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_35,
fill = comm2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Change in communication with leads ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_35,
fill = comm2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Change in communication with leads ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_35,
fill = comm2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Change in communication with leads ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_35,
fill = comm2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Change in communication with leads ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_35,
fill = comm2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Change in communication with leads ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_35,
fill = comm2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Change in communication with leads ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_35,
fill = comm2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Change in communication with leads ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_35,
fill = comm2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Change in communication with leads ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_35,
fill = comm2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Change in communication with leads ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Flexibility of Role
flex2 <- climate5$Q71_36
rQ71_36 <- newvals3[match(flex2,oldvals3)]
#mutate(climate5, rQ71_36)
ggplot(climate5,
aes(x = rQ71_36,
fill = flex2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Flexibility of Role",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_36,
fill = flex2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Change in Flexibility of Role ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_36,
fill = flex2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Change in Flexibility of Role ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_36,
fill = flex2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Change in Flexibility of Role ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_36,
fill = flex2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Change in Flexibility of Role ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_36,
fill = flex2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Change in Flexibility of Role ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_36,
fill = flex2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Change in Flexibility of Role ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_36,
fill = flex2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Change in Flexibility of Role ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_36,
fill = flex2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Change in Flexibility of Role ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_36,
fill = flex2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Change in Flexibility of Role ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_36,
fill = flex2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Change in Flexibility of Role ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Importance of “Farm Food”
farmfood <- climate5$Q71_37
rQ71_37 <- newvals3[match(farmfood,oldvals3)]
#mutate(climate5, rQ71_37)
ggplot(climate5,
aes(x = rQ71_37,
fill = farmfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Personal Importance of 'Farm Food'",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_37,
fill = farmfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Change in Personal Importance of 'Farm Food' ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_37,
fill = farmfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Change in Personal Importance of 'Farm Food' ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_37,
fill = farmfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Change in Personal Importance of 'Farm Food' ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_37,
fill = farmfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Change in Personal Importance of 'Farm Food' ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_37,
fill = farmfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Change in Personal Importance of 'Farm Food' ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_37,
fill = farmfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Change in Personal Importance of 'Farm Food' ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_37,
fill = farmfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Change in Personal Importance of 'Farm Food' ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_37,
fill = farmfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Change in Personal Importance of 'Farm Food' ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_37,
fill = farmfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Change in Personal Importance of 'Farm Food' ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_37,
fill = farmfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Change in Personal Importance of 'Farm Food' ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Level of Isolation
isol <- climate5$Q71_38
rQ71_38 <- newvals3[match(isol,oldvals3)]
#mutate(climate5, rQ71_38)
ggplot(climate5,
aes(x = rQ71_38,
fill = isol))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Level of Isolation",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_38,
fill = isol))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Change in Level of Isolation ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_38,
fill = isol))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Change in Level of Isolation ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_38,
fill = isol))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Change in Level of Isolation ~ Duration of Engagement",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_38,
fill = isol))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Change in Level of Isolation ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_38,
fill = isol))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Change in Level of Isolation ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_38,
fill = isol))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Change in Level of Isolation ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_38,
fill = isol))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Change in Level of Isolation ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_38,
fill = isol))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Change in Level of Isolation ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_38,
fill = isol))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Change in Level of Isolation ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_38,
fill = isol))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Change in Level of Isolation ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Physical Safety
safe2 <- climate5$Q71_39
rQ71_39 <- newvals3[match(safe2,oldvals3)]
#mutate(climate5, rQ71_39)
ggplot(climate5,
aes(x = rQ71_39,
fill = safe2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Physical Safety",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_39,
fill = safe2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Change in Physical Safety ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_39,
fill = safe2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Change in Physical Safety ~ Receieve WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_39,
fill = safe2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Change in Physical Safety ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_39,
fill = safe2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Change in Physical Safety ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_39,
fill = safe2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Change in Physical Safety ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_39,
fill = safe2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Change in Physical Safety ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_39,
fill = safe2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Change in Physical Safety ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_39,
fill = safe2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Change in Physical Safety ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_39,
fill = safe2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Change in Physical Safety ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_39,
fill = safe2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Change in Physical Safety ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Receptivity of Management and Ops
recep2 <- climate5$Q71_310
rQ71_310 <- newvals3[match(recep2,oldvals3)]
#mutate(climate5, rQ71_310)
ggplot(climate5,
aes(x = rQ71_310,
fill = recep2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Receptivity of Management and Ops",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_310,
fill = recep2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Change in Receptivity of Management and Ops ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_310,
fill = recep2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Change in Receptivity of Management and Ops ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_310,
fill = recep2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Change in Receptivity of Management and Ops ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_310,
fill = recep2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Change in Receptivity of Management and Ops ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_310,
fill = recep2))+
geom_bar()+
facet_wrap(~Q71_1)+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Receptivity of Management and Ops ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_310,
fill = recep2))+
geom_bar()+
facet_wrap(~Q2_1_1s)+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Receptivity of Management and Ops ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_310,
fill = recep2))+
geom_bar()+
facet_wrap(~Q3_1s)+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Receptivity of Management and Ops ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_310,
fill = recep2))+
geom_bar()+
facet_wrap(~Q61_1s)+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Receptivity of Management and Ops ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_310,
fill = recep2))+
geom_bar()+
facet_wrap(~Q20_1_1s)+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Receptivity of Management and Ops ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_310,
fill = recep2))+
geom_bar()+
facet_wrap(~Q6_1s)+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Receptivity of Management and Ops ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Sense of Community Harmony
harmon2 <- climate5$Q71_311
rQ71_311 <- newvals3[match(harmon2,oldvals3)]
#mutate(climate5, rQ71_311)
ggplot(climate5,
aes(x = rQ71_311,
fill = harmon2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Sense of Community Harmony",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_311,
fill = harmon2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Change in Sense of Community Harmony ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_311,
fill = harmon2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Change in Sense of Community Harmony ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_311,
fill = harmon2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Change in Sense of Community Harmony ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_311,
fill = harmon2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Change in Sense of Community Harmony ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_311,
fill = harmon2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Change in Sense of Community Harmony ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_311,
fill = harmon2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Change in Sense of Community Harmony ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_311,
fill = harmon2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Change in Sense of Community Harmony ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_311,
fill = harmon2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Change in Sense of Community Harmony ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_311,
fill = harmon2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Change in Sense of Community Harmony ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_311,
fill = harmon2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Change in Sense of Community Harmony ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Agency and Self Expression
express2 <- climate5$Q71_312
rQ71_312 <- newvals3[match(express2,oldvals3)]
#mutate(climate5, rQ71_312)
ggplot(climate5,
aes(x = rQ71_312,
fill = express2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Agency and Self Expression",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_312,
fill = express2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Change in Agency and Self Expression ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_312,
fill = express2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Change in Agency and Self Expression ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_312,
fill = express2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Change in Agency and Self Expression ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_312,
fill = express2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Change in Agency and Self Expression ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_312,
fill = express2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Change in Agency and Self Expression ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_312,
fill = express2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Change in Agency and Self Expression ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_312,
fill = express2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Change in Agency and Self Expression ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_312,
fill = express2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Change in Agency and Self Expression ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_312,
fill = express2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Change in Agency and Self Expression ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_312,
fill = express2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Change in Agency and Self Expression ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Understanding Role
role2 <- climate5$Q71_313
rQ71_313 <- newvals3[match(role2,oldvals3)]
#mutate(climate5, rQ71_313)
ggplot(climate5,
aes(x = rQ71_313,
fill = role2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Change in Understanding of Role and Expectations",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_313,
fill = role2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Change in Understanding of Role and Expectations ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_313,
fill = role2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Change in Understanding of Role and Expectations ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_313,
fill = role2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Change in Understanding of Role and Expectations ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_313,
fill = role2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Change in Understanding of Role and Expectations ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_313,
fill = role2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Change in Understanding of Role and Expectations ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_313,
fill = role2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Change in Understanding of Role and Expectations ~ Race/Ethicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_313,
fill = role2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Change in Understanding of Role and Expectations ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_313,
fill = role2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Change in Understanding of Role and Expectations ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_313,
fill = role2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Change in Understanding of Role and Expectations ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_313,
fill = role2))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Change in Understanding of Role and Expectations ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Farm Reflections and Feedback
Reccomendations for Culturally Specific Foods
table(climate$Q33_1)##
##
## 12
## chili peppers
## 1
## hot peppers, spices
## 1
## maybe hazelnut bushes in the edible perennial landscape
## 1
## Plantains
## 1
## Tomatillos
## 1
## yams
## 1Potential Partner Organizations
table(climate$Q34_1.1)##
##
## 13
## Jewish Family Services, We the People & Cadillac Urban Gardens (urban ag internship)
## 1
## La Casa
## 1
## MANNRS
## 1
## NASA, UAAO, La Casa
## 1
## Theta Alpha psi! I'm a member and as a sustainability fraternity, we want to have more project-centric approaches to sustainability and would love to take on some farm action items as semesterly projects if applicable.
## 1Strengths of DEI
table(climate$Q35_1)##
##
## 9
## Addressing and acknowledging how racism is reinforced through ag and food
## 1
## All that I am aware of!
## 1
## Diverse in sexual orientation, provides equitable opportunities for staff growth and mobility into the management team
## 1
## equity
## 1
## I think we have a structure that includes and values everyone's voices
## 1
## Including different organizations on campus to visit or engage with the farm, and hiring/working with students from many different backgrounds
## 1
## Inclusivity and diversity of gender and sexual identities. The farm has an orientation towards visions and actions of justice and equity that push the greater UM community forward.
## 1
## language, gender
## 1
## staff retention, food access (for staff and community)
## 1Critiques of DEI
table(climate$Q35_2)##
##
## 10
## access and involvement for people with visible and invisible disabilities
## 1
## accessibility/ability levels
## 1
## I do feel like the diversity within our crew in terms of backgrounds is somewhat limited, but that's also reliant on who is attracted to the job positions, so I don't know how this can be addressed. Our crew is diverse to some extent, but still, there seems to be more groups on campus that might appreciate information on job opportunities on the farm.
## 1
## I think we could do a little better with diversity and inclusion
## 1
## Inclusion and diversity of diverse racial and ethnic backgrounds. We have good community relationships, but we can work more to influence networks beyond our scope
## 1
## Lacking diversity in race & ethnicity, gender identity, political and religious affiliations, donâ\200\231t have equitable and accessible transportation to the farm, lacking disabled representation and lacking accessible spaces
## 1
## representation in staff
## 1
## the CF is very physically able-ist
## 1Pandemic
climate5 <- climate
oldvals3 <- c("1Highly Unfavorable changes", "2Somewhat Unfavorable changes", "3Neutral or No changes", "4Somewhat Favorable Changes", "5Highly Favorable Changes")
newvals3 <- c(1,2,3,4,5)Access to Culturally Relevant Food
cultfood <- climate5$Q71_41
rQ71_41 <- newvals3[match(cultfood,oldvals3)]
#mutate(climate5, rQ71_41)
ggplot(climate5,
aes(x = rQ71_41,
fill = cultfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Pandemic Change in Access to Culturally Relevant Food",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_41,
fill = cultfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Pandemic Change in Access to Culturally Relevant Food ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_41,
fill = cultfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Pandemic Change in Access to Culturally Relevant Food ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_41,
fill = cultfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Pandemic Change in Access to Culturally Relevant Food ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_41,
fill = cultfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Pandemic Change in Access to Culturally Relevant Food ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_41,
fill = cultfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Pandemic Change in Access to Culturally Relevant Food ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_41,
fill = cultfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Pandemic Change in Access to Culturally Relevant Food ~ Family Household",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_41,
fill = cultfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Pandemic Change in Access to Culturally Relevant Food ~ Family Income",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_41,
fill = cultfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Pandemic Change in Access to Culturally Relevant Food ~ Personal Income",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_41,
fill = cultfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Pandemic Change in Access to Culturally Relevant Food ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_41,
fill = cultfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Pandemic Change in Access to Culturally Relevant Food ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_41,
fill = cultfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Pandemic Change in Access to Culturally Relevant Food ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_41,
fill = cultfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Pandemic Change in Access to Culturally Relevant Food ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_41,
fill = cultfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Pandemic Change in Access to Culturally Relevant Food ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Access to Nutritional Food
nutfood <- climate5$Q71_42
rQ71_42 <- newvals3[match(nutfood,oldvals3)]
#mutate(climate5, rQ71_42)
ggplot(climate5,
aes(x = rQ71_42,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Pandemic Change in Access to Nutritional Food",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_42,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Pandemic Change in Access to Nutritional Food ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_42,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Pandemic Change in Access to Nutritional Food ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_42,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Pandemic Change in Access to Nutritional Food ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_42,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Pandemic Change in Access to Nutritional Food ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_42,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Pandemic Change in Access to Nutritional Food ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_42,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Pandemic Change in Access to Nutritional Food ~ Family Household",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_42,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Pandemic Change in Access to Nutritional Food ~ Family Income",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_42,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Pandemic Change in Access to Nutritional Food ~ Personal Income",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_42,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Pandemic Change in Access to Nutritional Food ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_42,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Pandemic Change in Access to Nutritional Food ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_42,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Pandemic Change in Access to Nutritional Food ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_42,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Pandemic Change in Access to Nutritional Food ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_42,
fill = nutfood))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Pandemic Change in Access to Nutritional Food ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Ability to Meet Monthly Essential Needs
essent <- climate5$Q71_43
rQ71_43 <- newvals3[match(essent,oldvals3)]
#mutate(climate5, rQ71_43)
ggplot(climate5,
aes(x = rQ71_43,
fill = essent))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Pandemic Change in Meeting Monthly Essential Needs",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_43,
fill = essent))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Pandemic Change in Meeting Monthly Essential Needs ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_43,
fill = essent))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Pandemic Change in Meeting Monthly Essential Needs ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_43,
fill = essent))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Pandemic Change in Meeting Monthly Essential Needs ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_43,
fill = essent))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Pandemic Change in Meeting Monthly Essential Needs ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_43,
fill = essent))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Pandemic Change in Meeting Monthly Essential Needs ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_43,
fill = essent))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Pandemic Change in Meeting Monthly Essential Needs ~ Family Household",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_43,
fill = essent))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Pandemic Change in Meeting Monthly Essential Needs ~ Family Income",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_43,
fill = essent))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Pandemic Change in Meeting Monthly Essential Needs ~ Personal Income",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_43,
fill = essent))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Pandemic Change in Meeting Monthly Essential Needs ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_43,
fill = essent))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Pandemic Change in Meeting Monthly Essential Needs ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_43,
fill = essent))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Pandemic Change in Meeting Monthly Essential Needs ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_43,
fill = essent))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Pandemic Change in Meeting Monthly Essential Needs ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_43,
fill = essent))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Pandemic Change in Meeting Monthly Essential Needs ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Access to Emergency Aid
aid <- climate5$Q71_44
rQ71_44 <- newvals3[match(aid,oldvals3)]
#mutate(climate5, rQ71_44)
ggplot(climate5,
aes(x = rQ71_44,
fill = aid))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Pandemic Change in Access to Emergency Aid",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_44,
fill = aid))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Pandemic Change in Access to Emergency Aid ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_44,
fill = aid))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Pandemic Change in Access to Emergency Aid ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_44,
fill = aid))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Pandemic Change in Access to Emergency Aid ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_44,
fill = aid))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Pandemic Change in Access to Emergency Aid ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_44,
fill = aid))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Pandemic Change in Access to Emergency Aid ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_44,
fill = aid))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Pandemic Change in Access to Emergency Aid ~ Family Household",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_44,
fill = aid))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Pandemic Change in Access to Emergency Aid ~ Family Income",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_44,
fill = aid))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Pandemic Change in Access to Emergency Aid ~ Personal Income",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_44,
fill = aid))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Pandemic Change in Access to Emergency Aid ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_44,
fill = aid))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Pandemic Change in Access to Emergency Aid ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_44,
fill = aid))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Pandemic Change in Access to Emergency Aid ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_44,
fill = aid))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Pandemic Change in Access to Emergency Aid ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_44,
fill = aid))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Pandemic Change in Access to Emergency Aid ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Academic Support
acadsup <- climate5$Q71_45
rQ71_45 <- newvals3[match(acadsup,oldvals3)]
#mutate(climate5, rQ71_45)
ggplot(climate5,
aes(x = rQ71_45,
fill = acadsup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Pandemic Change in Access to Acedmic Support",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_45,
fill = acadsup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Pandemic Change in Access to Acedmic Support ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_45,
fill = acadsup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Pandemic Change in Access to Acedmic Support ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_45,
fill = acadsup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Pandemic Change in Access to Acedmic Support ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_45,
fill = acadsup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Pandemic Change in Access to Acedmic Support ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_45,
fill = acadsup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Pandemic Change in Access to Acedmic Support ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_45,
fill = acadsup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Pandemic Change in Access to Acedmic Support ~ Family Household",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_45,
fill = acadsup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Pandemic Change in Access to Acedmic Support ~ Family Income",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_45,
fill = acadsup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Pandemic Change in Access to Acedmic Support ~ Personal Income",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_45,
fill = acadsup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Pandemic Change in Access to Acedmic Support ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_45,
fill = acadsup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Pandemic Change in Access to Acedmic Support ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_45,
fill = acadsup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Pandemic Change in Access to Acedmic Support ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_45,
fill = acadsup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Pandemic Change in Access to Acedmic Support ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_45,
fill = acadsup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Pandemic Change in Access to Acedmic Support ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Emotional and Social Support
emosup <- climate5$Q71_46
rQ71_46 <- newvals3[match(emosup,oldvals3)]
#mutate(climate5, rQ71_46)
ggplot(climate5,
aes(x = rQ71_46,
fill = emosup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Pandemic Change in Emotional and Social Support",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_46,
fill = emosup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Pandemic Change in Emotional and Social Support ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_46,
fill = emosup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Pandemic Change in Emotional and Social Support ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_46,
fill = emosup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Pandemic Change in Emotional and Social Support ~ Duration of Emoloyment",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_46,
fill = emosup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Pandemic Change in Emotional and Social Support ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_46,
fill = emosup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Pandemic Change in Emotional and Social Support ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_46,
fill = emosup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Pandemic Change in Emotional and Social Support ~ Family Household",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_46,
fill = emosup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Pandemic Change in Emotional and Social Support ~ Family Income",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_46,
fill = emosup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Pandemic Change in Emotional and Social Support ~ Personal Income",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_46,
fill = emosup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Pandemic Change in Emotional and Social Support ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_46,
fill = emosup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Pandemic Change in Emotional and Social Support ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_46,
fill = emosup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Pandemic Change in Emotional and Social Support ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_46,
fill = emosup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Pandemic Change in Emotional and Social Support ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_46,
fill = emosup))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Pandemic Change in Emotional and Social Support ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Financial Security
finansec <- climate5$Q71_47
rQ71_47 <- newvals3[match(finansec,oldvals3)]
#mutate(climate5, rQ71_47)
ggplot(climate5,
aes(x = rQ71_47,
fill = finansec))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Pandemic Change in Financial Security",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_47,
fill = finansec))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Pandemic Change in Financial Security ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_47,
fill = finansec))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Pandemic Change in Financial Security ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_47,
fill = finansec))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Pandemic Change in Financial Security ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_47,
fill = finansec))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Pandemic Change in Financial Security ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_47,
fill = finansec))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Pandemic Change in Financial Security ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_47,
fill = finansec))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Pandemic Change in Financial Security ~ Family Household",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_47,
fill = finansec))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Pandemic Change in Financial Security ~ Family Income",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_47,
fill = finansec))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Pandemic Change in Financial Security ~ Personal Income",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_47,
fill = finansec))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Pandemic Change in Financial Security ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_47,
fill = finansec))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Pandemic Change in Financial Security ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_47,
fill = finansec))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Pandemic Change in Financial Security ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_47,
fill = finansec))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Pandemic Change in Financial Security ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_47,
fill = finansec))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Pandemic Change in Financial Security ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Housing Stability
houstab <- climate5$Q71_48
rQ71_48 <- newvals3[match(houstab,oldvals3)]
#mutate(climate5, rQ71_48)
ggplot(climate5,
aes(x = rQ71_48,
fill = houstab))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Pandemic Change in Housing Stability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_48,
fill = houstab))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Pandemic Change in Housing Stability ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_48,
fill = houstab))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Pandemic Change in Housing Stability ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_48,
fill = houstab))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Pandemic Change in Housing Stability ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_48,
fill = houstab))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Pandemic Change in Housing Stability ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_48,
fill = houstab))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Pandemic Change in Housing Stability ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_48,
fill = houstab))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Pandemic Change in Housing Stability ~ Family Household",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_48,
fill = houstab))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Pandemic Change in Housing Stability ~ Family Income",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_48,
fill = houstab))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Pandemic Change in Housing Stability ~ Personal Income",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_48,
fill = houstab))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Pandemic Change in Housing Stability ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_48,
fill = houstab))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Pandemic Change in Housing Stability ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_48,
fill = houstab))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Pandemic Change in Housing Stability ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_48,
fill = houstab))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Pandemic Change in Housing Stability ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_48,
fill = houstab))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Pandemic Change in Housing Stability ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 2 rows containing non-finite values (stat_count).
Level of Isolation
isolation <- climate5$Q71_49
rQ71_49 <- newvals3[match(isolation,oldvals3)]
#mutate(climate5, rQ71_49)
ggplot(climate5,
aes(x = rQ71_49,
fill = isolation))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Pandemic Change in Level of Isolation",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_49,
fill = isolation))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Pandemic Change in Level of Isolation ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_49,
fill = isolation))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Pandemic Change in Level of Isolation ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_49,
fill = isolation))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Pandemic Change in Level of Isolation ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_49,
fill = isolation))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Pandemic Change in Level of Isolation ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_49,
fill = isolation))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Pandemic Change in Level of Isolation ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_49,
fill = isolation))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Pandemic Change in Level of Isolation ~ Family Household",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_49,
fill = isolation))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Pandemic Change in Level of Isolation ~ Family Income",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_49,
fill = isolation))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Pandemic Change in Level of Isolation ~ Personal Income",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_49,
fill = isolation))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Pandemic Change in Level of Isolation ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_49,
fill = isolation))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Pandemic Change in Level of Isolation ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_49,
fill = isolation))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Pandemic Change in Level of Isolation ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_49,
fill = isolation))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Pandemic Change in Level of Isolation ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_49,
fill = isolation))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Pandemic Change in Level of Isolation ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Physical Safety
physaf <- climate5$Q71_410
rQ71_410 <- newvals3[match(physaf,oldvals3)]
#mutate(climate5, rQ71_410)
ggplot(climate5,
aes(x = rQ71_410,
fill = physaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Pandemic Change in Physical Safety",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_410,
fill = physaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Pandemic Change in Physical Safety ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_410,
fill = physaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Pandemic Change in Physical Safety ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_410,
fill = physaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Pandemic Change in Physical Safety ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_410,
fill = physaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Pandemic Change in Physical Safety ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_410,
fill = physaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Pandemic Change in Physical Safety ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_410,
fill = physaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Pandemic Change in Physical Safety ~ Family Household",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_410,
fill = physaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Pandemic Change in Physical Safety ~ Family Income",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_410,
fill = physaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Pandemic Change in Physical Safety ~ Personal Income",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_410,
fill = physaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Pandemic Change in Physical Safety ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_410,
fill = physaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Pandemic Change in Physical Safety ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_410,
fill = physaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Pandemic Change in Physical Safety ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_410,
fill = physaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Pandemic Change in Physical Safety ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_410,
fill = physaf))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Pandemic Change in Physical Safety ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
Agency and Self Expression
exp3 <- climate5$Q71_411
rQ71_411 <- newvals3[match(exp3,oldvals3)]
#mutate(climate5, rQ71_411)
ggplot(climate5,
aes(x = rQ71_411,
fill = exp3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
labs(title = "Pandemic Change in Agency and Self Expression",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_411,
fill = exp3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q9)+
labs(title = "Pandemic Change in Agency and Self Expression ~ Dis/Ability",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_411,
fill = exp3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q73)+
labs(title = "Pandemic Change in Agency and Self Expression ~ Receive WorkStudy",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_411,
fill = exp3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_2)+
labs(title = "Pandemic Change in Agency and Self Expression ~ Duration of Employment",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_411,
fill = exp3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_3)+
labs(title = "Pandemic Change in Agency and Self Expression ~ Duration of Volunteer",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_411,
fill = exp3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71_1)+
labs(title = "Pandemic Change in Agency and Self Expression ~ Period of Start",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_411,
fill = exp3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q7)+
labs(title = "Pandemic Change in Agency and Self Expression ~ Family Household",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_411,
fill = exp3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q71)+
labs(title = "Pandemic Change in Agency and Self Expression ~ Family Income",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_411,
fill = exp3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q72)+
labs(title = "Pandemic Change in Agency and Self Expression ~ Personal Income",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_411,
fill = exp3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q2_1_1s)+
labs(title = "Pandemic Change in Agency and Self Expression ~ Race/Ethnicity",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_411,
fill = exp3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q3_1s)+
labs(title = "Pandemic Change in Agency and Self Expression ~ Attractionality",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_411,
fill = exp3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q61_1s)+
labs(title = "Pandemic Change in Agency and Self Expression ~ Undergrad v Grad",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_411,
fill = exp3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q20_1_1s)+
labs(title = "Pandemic Change in Agency and Self Expression ~ Staff v NonStaff",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).
ggplot(climate5,
aes(x = rQ71_411,
fill = exp3))+
geom_bar()+
scale_fill_viridis_d(name = "Identity", option = "turbo")+
facet_wrap(~Q6_1s)+
labs(title = "Pandemic Change in Agency and Self Expression ~ Student v Alumni",
x = "Scale",
y = "Frequency")## Warning: Removed 3 rows containing non-finite values (stat_count).