ClimateSurvey_SEASDEI_Summer2022
Ivy Ortiz
2022-06-27
library(psych)
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)setwd("C:/Users/ianmt/Documents/R")
climate <- read.csv("SEASDEI_Climate.csv")
#View(climate)Survey Demographics
climate_descriptive <- climate[c(1,6,11),1:22]
#climate_descriptive
ggplot(climate_descriptive,
aes(x = Group2,
y = QD1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Eligible Responses", y = "Count", x = "Group")
ggplot(climate_descriptive,
aes(x = Group2,
y = QD2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Complete Responses", y = "Count", x = "Group")
ggplot(climate_descriptive,
aes(x = Group2,
y = QD3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Response Rate", y = "Percent", x = "Group")
ggplot(climate_descriptive,
aes(x = Group2,
y = QD4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Completion Rate", y = "Percent", x = "Group")
ggplot(climate_descriptive,
aes(x = Group2,
y = QD5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Average Age", y = "Age (Years)", x = "Group")
ggplot(climate_descriptive,
aes(x = Group2,
y = QD6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Average Age", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_descriptive,
aes(x = Group2,
y = QD7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Percent Women", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_descriptive,
aes(x = Group2,
y = QD8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Percent Women", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_descriptive,
aes(x = Group2,
y = QD9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Percent Men", y = "Percent", x = "Group")
ggplot(climate_descriptive,
aes(x = Group2,
y = QD10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Percent Men", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_descriptive,
aes(x = Group2,
y = QD11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Percent BIPOC", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_descriptive,
aes(x = Group2,
y = QD12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Percent BIPOC", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_descriptive,
aes(x = Group2,
y = QD13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Percent White", y = "Percent", x = "Group")
ggplot(climate_descriptive,
aes(x = Group2,
y = QD14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Percent White", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_descriptive,
aes(x = Group2,
y = QD15,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Percent Heterosexual", y = "Percent", x = "Group")
ggplot(climate_descriptive,
aes(x = Group2,
y = QD16,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Percent Heterosexual", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_descriptive,
aes(x = Group2,
y = QD17,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Percent LGBTQA+", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_descriptive,
aes(x = Group2,
y = QD18,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Percent LGBTQA+", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
Climate
Climate Satisfaction
climate_satisfaction <- climate[,c(1:4,23:34)]
#climate_satisfactionOverall Campus Climate, All
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Very Dissastisfied w Overall Campus Climate", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Very Dissastisfied w Overall Campus Climate", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Neutral w Overall Campus Climate", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Neutral w Overall Campus Climate", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Very Sastisfied w Overall Campus Climate", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Very Sastisfied w Overall Campus Climate", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
Overall Campus Climate, Subsets
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Very Dissastisfied w Overall Campus Climate, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Very Dissastisfied w Overall Campus Climate, Role Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Very Dissastisfied w Overall Campus Climate, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Very Dissastisfied w Overall Campus Climate, Role Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Neutral w Overall Campus Climate, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Neutral w Overall Campus Climate, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Neutral w Overall Campus Climate, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Neutral w Overall Campus Climate, Role Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Very Sastisfied w Overall Campus Climate, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Very Sastisfied w Overall Campus Climate, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Very Sastisfied w Overall Campus Climate, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Very Sastisfied w Overall Campus Climate, Role Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
SEAS Climate, All
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Very Dissastisfied w SEAS Climate", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Very Dissastisfied w SEAS Climate", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Neutral w SEAS Climate", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Neutral w SEAS Climate", y = "Percent", x = "Group")## Warning: Removed 7 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Very Sastisfied w SEAS Climate", y = "Percent", x = "Group")
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Very Sastisfied w SEAS Climate", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
SEAS Climate, Subsets
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Very Dissastisfied w SEAS Climate, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Very Dissastisfied w SEAS Climate, Role Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Very Dissastisfied w SEAS Climate, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Very Dissastisfied w SEAS Climate, Role Subset", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Neutral w SEAS Climate, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Neutral w SEAS Climate, Role Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Neutral w SEAS Climate, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 7 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Neutral w SEAS Climate, Role Subset", y = "Percent", x = "Group")## Warning: Removed 7 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Very Sastisfied w SEAS Climate, Demographic Subset", y = "Percent", x = "Group")
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Very Sastisfied w SEAS Climate, Role Subset", y = "Percent", x = "Group")
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Very Sastisfied w SEAS Climate, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_satisfaction,
aes(x = Group2,
y = QC12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Very Sastisfied w SEAS Climate, Role Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
Climate and DEI Rankings
Climate Variables
climate_rankvar <- climate[c(1,6,11),c(1,2,35:60)]
#View(climate_rankvar)
ggplot(climate_rankvar,
aes(x = Group2,
y = QR1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Climate Dimension: Friendly", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Climate Dimension: Friendly", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Climate Dimension: Respectful", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Climate Dimension: Respectful", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Climate Dimension: Collegial", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Climate Dimension: Collegial", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Climate Dimension: Collaborative", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Climate Dimension: Collaborative", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Climate Dimension: Cooperative", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Climate Dimension: Cooperative", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Climate Dimension: Supportive", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Climate Dimension: Supportive", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Climate Dimension: Welcoming", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Climate Dimension: Welcoming", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR15,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Climate Dimension: Non-Racist", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR16,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Climate Dimension: Non-Racist", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR17,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Climate Dimension: Diverse", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR18,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Climate Dimension: Diverse", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR19,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Climate Dimension: Non-Sexist", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR20,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Climate Dimension: Non-Sexist", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR21,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Climate Dimension: Non-Homophobic", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR22,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Climate Dimension: Non-Homophobic", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR23,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Climate Dimension: Non-Transphobic", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR24,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Climate Dimension: Non-Transphobic", y = "Count", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_rankvar,
aes(x = Group2,
y = QR25,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Climate Dimension: Non-Ageist", y = "Count", x = "Group")
ggplot(climate_rankvar,
aes(x = Group2,
y = QR26,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Climate Dimension: Non-Ageist", y = "Count", x = "Group")
Climate Scores
climate_rankscore <- climate[,c(1:4,61:64)]
#View(climate_rankscore)
ggplot(climate_rankscore,
aes(x = Group2,
y = QF1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Factor 1 Score: Climate", y = "Score", x = "Group")
ggplot(climate_rankscore,
aes(x = Group2,
y = QF1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Factor 1 Score: Climate, Demographic Subset", y = "Score", x = "Group")
ggplot(climate_rankscore,
aes(x = Group2,
y = QF1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Factor 1 Score: Climate, Role Subset", y = "Score", x = "Group")
ggplot(climate_rankscore,
aes(x = Group2,
y = QF2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Factor 1 Score: Climate", y = "Score", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_rankscore,
aes(x = Group2,
y = QF2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change Factor 1 Score: Climate, Demographic Subset", y = "Score", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_rankscore,
aes(x = Group2,
y = QF2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change Factor 1 Score: Climate, Role Subset", y = "Score", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_rankscore,
aes(x = Group2,
y = QF3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Factor 2 Score: DEI", y = "Score", x = "Group")
ggplot(climate_rankscore,
aes(x = Group2,
y = QF3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Factor 2 Score: DEI, Demographic Subset", y = "Score", x = "Group")
ggplot(climate_rankscore,
aes(x = Group2,
y = QF3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Factor 2 Score: DEI, Role Subset", y = "Score", x = "Group")
ggplot(climate_rankscore,
aes(x = Group2,
y = QF4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Factor 2 Score: DEI", y = "Score", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_rankscore,
aes(x = Group2,
y = QF4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change Factor 2 Score: DEI, Demographic Subset", y = "Score", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_rankscore,
aes(x = Group2,
y = QF4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change Factor 2 Score: DEI, Role Subset", y = "Score", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
Individual Perceptions
Climate Experiences
climate_individual <- climate[,c(1:4,65:90)]
#View(climate_individual)
ggplot(climate_individual,
aes(x = Group2,
y = QI1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Individual Value", y = "Percent", x = "Group")
ggplot(climate_individual,
aes(x = Group2,
y = QI1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Individual Value, Demographic Subset", y = "Percent", x = "Group")
ggplot(climate_individual,
aes(x = Group2,
y = QI1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Individual Value, Role Subset", y = "Percent", x = "Group")
ggplot(climate_individual,
aes(x = Group2,
y = QI2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Individual Value", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Individual Value, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Individual Value, Role Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Belonging", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Belonging, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Belonging, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Belonging", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Belonging, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Belonging, Role Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "DEI Committment", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "DEI Committment, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "DEI Committment, Role Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in DEI Committment", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in DEI Committment, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in DEI Committment, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Considered Leaving", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Considered Leaving, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Considered Leaving, Role Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Considered Leaving", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Considered Leaving, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Considered Leaving, Role Subset", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Respect", y = "Percent", x = "Group")
ggplot(climate_individual,
aes(x = Group2,
y = QI9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Respect, Demographic Subset", y = "Percent", x = "Group")
ggplot(climate_individual,
aes(x = Group2,
y = QI9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Respect, Role Subset", y = "Percent", x = "Group")
ggplot(climate_individual,
aes(x = Group2,
y = QI10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Respect", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Respect, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Respect, Role Subset", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Opinion Valued", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Opinion Valued, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Opinion Valued, Role Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Opinion Valued", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Opinion Valued, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Opinion Valued, Role Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Potential Met", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Potential Met, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Potential Met, Role Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Potential Met", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Potential Met, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Potential Met, Role Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI15,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Relative Success", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI15,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Relative Success, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI15,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Relative Success, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI16,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Relative Success", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI16,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Relative Success, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI16,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Relative Success, Role Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI17,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Community", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI17,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Community, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI17,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Community, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI18,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Community", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI18,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Community, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI18,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Community, Role Subset", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI19,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Too Much DEI", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI19,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Too Much DEI, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI19,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Too Much DEI, Role Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI20,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Too Much DEI", y = "Percent", x = "Group")## Warning: Removed 11 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI20,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Too Much DEI, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 11 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI20,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Too Much DEI, Role Subset", y = "Percent", x = "Group")## Warning: Removed 11 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI21,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Sufficient Support", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI21,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Sufficient Support, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI21,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Sufficient Support, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI22,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Sufficient Support", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI22,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Sufficient Support, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI22,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Sufficient Support, Role Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI23,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Relative Workload", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI23,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Relative Workload, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI23,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Relative Workload, Role Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI24,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Relative Workload", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI24,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Relative Workload, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI24,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Relative Workload, Role Subset", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI25,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Growth", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI25,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Growth, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI25,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Growth, Role Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI26,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Growth", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI26,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Growth, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_individual,
aes(x = Group2,
y = QI26,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Growth, Role Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
Faculty Value
climate_valfac <- climate[c(1:5),c(1:3,91:100)]
#View(climate_valfac)
ggplot(climate_valfac,
aes(x = Group2,
y = QI_F1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Value Teaching", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_valfac,
aes(x = Group2,
y = QI_F2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Change in Value Teaching", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climate_valfac,
aes(x = Group2,
y = QI_F3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Value Scholarship", y = "Percent", x = "Group")
ggplot(climate_valfac,
aes(x = Group2,
y = QI_F4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Change in Value Scholarship", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_valfac,
aes(x = Group2,
y = QI_F5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Value Service", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_valfac,
aes(x = Group2,
y = QI_F6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Change in Value Service", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_valfac,
aes(x = Group2,
y = QI_F7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Value Student Mentor", y = "Percent", x = "Group")
ggplot(climate_valfac,
aes(x = Group2,
y = QI_F8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Change in Value Student Mentor", y = "Percent", x = "Group")
ggplot(climate_valfac,
aes(x = Group2,
y = QI_F9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Value Faculty Mentor", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_valfac,
aes(x = Group2,
y = QI_F10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Change in Value Faculty Mentor", y = "Percent", x = "Group")
Faculty Equity
climate_equityfac <- climate[c(1:5),c(1:3,115:130)]
#View(climate_equityfac)
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Voice in Department", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Change in Voice in Department", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Workload Equity", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Change in Workload Equity", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Research Equity", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Change in Research Equity", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Service Equity", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Change in Service Equity", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Compensation Equity", y = "Percent", x = "Group")
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Change in Compensation Equity", y = "Percent", x = "Group")
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Support Equity", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Change in Support Equity", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Rewards Equity", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Change in Rewards Equity", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F15,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty DEI Perspective", y = "Percent", x = "Group")
ggplot(climate_equityfac,
aes(x = Group2,
y = QE_F16,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Faculty Change in DEI Perspective", y = "Percent", x = "Group")
Student Value
climate_valstudent <- climate[c(11:15),c(1:3,101:114)]
#View(climate_valstudent)
ggplot(climate_valstudent,
aes(x = Group2,
y = QI_S1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Value Faculty Instructor", y = "Percent", x = "Group")
ggplot(climate_valstudent,
aes(x = Group2,
y = QI_S2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Change in Value Faculty Instructor", y = "Percent", x = "Group")
ggplot(climate_valstudent,
aes(x = Group2,
y = QI_S3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Value Faculty, Other", y = "Percent", x = "Group")
ggplot(climate_valstudent,
aes(x = Group2,
y = QI_S4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Change in Value Faculty, Other", y = "Percent", x = "Group")
ggplot(climate_valstudent,
aes(x = Group2,
y = QI_S5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Value Student Instructor", y = "Percent", x = "Group")
ggplot(climate_valstudent,
aes(x = Group2,
y = QI_S6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Change in Value Student Instructor", y = "Percent", x = "Group")
ggplot(climate_valstudent,
aes(x = Group2,
y = QI_S7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Value Student, Other", y = "Percent", x = "Group")
ggplot(climate_valstudent,
aes(x = Group2,
y = QI_S8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Change in Value Student, Other", y = "Percent", x = "Group")
ggplot(climate_valstudent,
aes(x = Group2,
y = QI_S9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Value Staff", y = "Percent", x = "Group")
ggplot(climate_valstudent,
aes(x = Group2,
y = QI_S10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Change in Value Staff", y = "Percent", x = "Group")
ggplot(climate_valstudent,
aes(x = Group2,
y = QI_S11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Value Unit Admin", y = "Percent", x = "Group")
ggplot(climate_valstudent,
aes(x = Group2,
y = QI_S12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Change in Value Unit Admin", y = "Percent", x = "Group")
ggplot(climate_valstudent,
aes(x = Group2,
y = QI_S13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Value Mentor, Other", y = "Percent", x = "Group")
ggplot(climate_valstudent,
aes(x = Group2,
y = QI_S14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Change in Value Mentor, Other", y = "Percent", x = "Group")
Student Listened
climate_listenstudent <- climate[c(11:15),c(1:3,143:150)]
#View(climate_listenstudent)
ggplot(climate_listenstudent,
aes(x = Group2,
y = QL_S1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Faculty Instructor Listen", y = "Percent", x = "Group")
ggplot(climate_listenstudent,
aes(x = Group2,
y = QL_S2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Change in Faculty Instructor Listen", y = "Percent", x = "Group")
ggplot(climate_listenstudent,
aes(x = Group2,
y = QL_S3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Student Instructor Listen", y = "Percent", x = "Group")
ggplot(climate_listenstudent,
aes(x = Group2,
y = QL_S4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Change in Student Instructor Listen", y = "Percent", x = "Group")
ggplot(climate_listenstudent,
aes(x = Group2,
y = QL_S5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Other Student Listen", y = "Percent", x = "Group")
ggplot(climate_listenstudent,
aes(x = Group2,
y = QL_S6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Change in Other Student Listen", y = "Percent", x = "Group")
ggplot(climate_listenstudent,
aes(x = Group2,
y = QL_S7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Staff Listen", y = "Percent", x = "Group")
ggplot(climate_listenstudent,
aes(x = Group2,
y = QL_S8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Student Change in Staff Listen", y = "Percent", x = "Group")
Staff Equity
climate_equitystaff <- climate[c(6:10),c(1:4,131:142)]
#View(climate_equitystaff)
ggplot(climate_equitystaff,
aes(x = Group2,
y = QE_A1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Staff Ideas Valued", y = "Percent", x = "Group")
ggplot(climate_equitystaff,
aes(x = Group2,
y = QE_A2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Staff Change in Ideas Valued", y = "Percent", x = "Group")
ggplot(climate_equitystaff,
aes(x = Group2,
y = QE_A3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Staff Voice Valued", y = "Percent", x = "Group")
ggplot(climate_equitystaff,
aes(x = Group2,
y = QE_A4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Staff Change in Voice Valued", y = "Percent", x = "Group")
ggplot(climate_equitystaff,
aes(x = Group2,
y = QE_A5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Staff Workload Equity", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_equitystaff,
aes(x = Group2,
y = QE_A6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Staff Change in Workload Equity", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_equitystaff,
aes(x = Group2,
y = QE_A7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Staff Compensation Equity", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_equitystaff,
aes(x = Group2,
y = QE_A8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Staff Change in Compensation Equity", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_equitystaff,
aes(x = Group2,
y = QE_A9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Staff Support Equity", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_equitystaff,
aes(x = Group2,
y = QE_A10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Staff Change in Support Equity", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_equitystaff,
aes(x = Group2,
y = QE_A11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Staff Rewards Equity", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climate_equitystaff,
aes(x = Group2,
y = QE_A12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Staff Change in Rewards Equity", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
Discrimination
climate_discrimination <- climate[,c(1:4,151:170)]
#View(climate_discrimination)
ggplot(climate_discrimination,
aes(x = Group2,
y = QX1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Discrimination w/in 12 mon", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Discrimination w/in 12 mon", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Discrimination w/in 12 mon, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Discrimination w/in 12 mon, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Discrimination w/in 12 mon, Role Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Discrimination w/in 12 mon, Role Subset", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Ability Discrimination", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Ability Discrimination", y = "Percent", x = "Group")
ggplot(climate_discrimination,
aes(x = Group2,
y = QX3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Ability Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Ability Discrimination, Demographic Subset", y = "Percent", x = "Group")
ggplot(climate_discrimination,
aes(x = Group2,
y = QX3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Ability Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Ability Discrimination, Role Subset", y = "Percent", x = "Group")
ggplot(climate_discrimination,
aes(x = Group2,
y = QX5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Racial/Ethnic Discrimination", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Racial/Ethnic Discrimination", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Racial/Ethnic Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Racial/Ethnic Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Racial/Ethnic Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Racial/Ethnic Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Sex Discrimination", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Sex Discrimination", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Sex Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Sex Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Sex Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Sex Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Gender Discrimination", y = "Percent", x = "Group")## Warning: Removed 14 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Gender Discrimination", y = "Percent", x = "Group")## Warning: Removed 14 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Gender Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 14 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Gender Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 14 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Gender Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 14 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Gender Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 14 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "National Origin Discrimination", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in National Origin Discrimination", y = "Percent", x = "Group")## Warning: Removed 14 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "National Origin Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in National Origin Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 14 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "National Origin Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in National Origin Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 14 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Age Discrimination", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Age Discrimination", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Age Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Age Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Age Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Age Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX15,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Political Discrimination", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX16,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Political Discrimination", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX15,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Political Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX16,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Political Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX15,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Political Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX16,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Political Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX17,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Class Discrimination", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX18,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Class Discrimination", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX17,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Class Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX18,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Class Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX17,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Class Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX18,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Class Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX19,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Mental Health Discrimination", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX20,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Change in Mental Health Discrimination", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX19,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Mental Health Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX20,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Change in Mental Health Discrimination, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX19,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Mental Health Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
ggplot(climate_discrimination,
aes(x = Group2,
y = QX20,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Change in Mental Health Discrimination, Role Subset", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
DEI Progress
Participation
climateb <- read.csv("SEASDEI_ClimateB.csv")
#View(climateb)
ggplot(climateb,
aes(x = Group2,
y = QP1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Participated in DEI Workshop", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Participated in DEI Workshop, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Participated in DEI Workshop, Role Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Participated in DEI Talk", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Participated in DEI Talk, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Participated in DEI Talk, Role Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Listened to DEI Podcast", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QP3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Listened to DEI Podcast, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QP3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Listened to DEI Podcast, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QP4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Watched DEI Film", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QP4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Watched DEI Film, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QP4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Watched DEI Film, Role Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QP5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Participated in DEI Meeting", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Participated in DEI Meeting, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Participated in DEI Meeting, Role Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Read DEI Book", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QP6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Read DEI Book, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QP6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Read DEI Book, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QP7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Participated in SEAS DEI Event", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Participated in SEAS DEI Event, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Participated in SEAS DEI Event, Role Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Participated in UM DEI Event", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Participated in UM DEI Event, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Participated in UM DEI Event, Role Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Participated in DEI Committee", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QP9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Participated in DEI Committee, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QP9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Participated in DEI Committee, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QP10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Participated in DEI Conversation", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Participated in DEI Conversation, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QP10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Participated in DEI Conversation, Role Subset", y = "Percent", x = "Group")
Efforts Satisfaction
ggplot(climateb,
aes(x = Group2,
y = QF1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Very Dissatisfied with Overall DEI Efforts", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Very Dissatisfied with Overall DEI Efforts, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Very Dissatisfied with Overall DEI Efforts, Role Subset", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Neutral with Overall DEI Efforts", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Neutral with Overall DEI Efforts, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Neutral with Overall DEI Efforts, Role Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Very Satisfied with Overall DEI Efforts", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Very Satisfied with Overall DEI Efforts, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Very Satisfied with Overall DEI Efforts, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Very Dissatisfied with SEAS DEI Efforts", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Very Dissatisfied with SEAS DEI Efforts, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Very Dissatisfied with SEAS DEI Efforts, Role Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Neutral with SEAS DEI Efforts", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Neutral with SEAS DEI Efforts, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Neutral with SEAS DEI Efforts, Role Subset", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Very Satisfied with SEAS DEI Efforts", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Very Satisfied with SEAS DEI Efforts, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QF6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Very Satisfied with SEAS DEI Efforts, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
Satisfaction Change
ggplot(climateb,
aes(x = Group2,
y = QS1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Overall DEI Efforts Worse since Strategic Plan", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QS1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Overall DEI Efforts Worse since Strategic Plan, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QS1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Overall DEI Efforts Worse since Strategic Plan, Role Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QS2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Overall DEI Efforts Same since Strategic Plan", y = "Percent", x = "Group")## Warning: Removed 7 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QS2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Overall DEI Efforts Same since Strategic Plan, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 7 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QS2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Overall DEI Efforts Same since Strategic Plan, Role Subset", y = "Percent", x = "Group")## Warning: Removed 7 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QS3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Overall DEI Efforts Better since Strategic Plan", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QS3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Overall DEI Efforts Better since Strategic Plan, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QS3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Overall DEI Efforts Better since Strategic Plan, Role Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QS4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "SEAS DEI Efforts Worse since Strategic Plan", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QS4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "SEAS DEI Efforts Worse since Strategic Plan, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QS4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "SEAS DEI Efforts Worse since Strategic Plan, Role Subset", y = "Percent", x = "Group")## Warning: Removed 13 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QS5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "SEAS DEI Efforts Same since Strategic Plan", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QS5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "SEAS DEI Efforts Same since Strategic Plan, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QS5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "SEAS DEI Efforts Same since Strategic Plan, Role Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QS6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "SEAS DEI Efforts Better since Strategic Plan", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QS6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "SEAS DEI Efforts Better since Strategic Plan, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QS6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "SEAS DEI Efforts Better since Strategic Plan, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
DEI Comparisons
ggplot(climateb,
aes(x = Group2,
y = QO1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Compare Institution DEI Efforts Among Worst", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QO1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Compare Institution DEI Efforts Among Worst, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QO1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Compare Institution DEI Efforts Among Worst, Role Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QO2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Compare Institution DEI Efforts Same", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QO2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Compare Institution DEI Efforts Same, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QO2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Compare Institution DEI Efforts Same, Role Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QO3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Compare Institution DEI Efforts Among Best", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QO3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Compare Institution DEI Efforts Among Best, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QO3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Compare Institution DEI Efforts Among Best, Role Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QO4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Compare SEAS DEI Efforts Among Worst", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QO4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Compare SEAS DEI Efforts Among Worst, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QO4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Compare SEAS DEI Efforts Among Worst, Role Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QO5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Compare SEAS DEI Efforts Same", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QO5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Compare SEAS DEI Efforts Same, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QO5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Compare SEAS DEI Efforts Same, Role Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QO6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Compare SEAS DEI Efforts Among Best", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QO6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Compare SEAS DEI Efforts Among Best, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QO6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Compare SEAS DEI Efforts Among Best, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
Covid-19
Individual Health
ggplot(climateb,
aes(x = Group2,
y = QH1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Physical Health Poor", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QH1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Physical Health Poor, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QH1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Physical Health Poor, Role Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QH2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Physical Health Fair", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Physical Health Fair, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Physical Health Fair, Role Subset", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Physical Health Good", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Physical Health Good, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Physical Health Good, Role Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Physical Health Excellent", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QH4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Physical Health Excellent, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QH4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Physical Health Excellent, Role Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QH5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Mental Health Poor", y = "Percent", x = "Group")## Warning: Removed 11 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Mental Health Poor, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 11 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Mental Health Poor, Role Subset", y = "Percent", x = "Group")## Warning: Removed 11 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Mental Health Fair", y = "Percent", x = "Group")## Warning: Removed 7 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Mental Health Fair, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 7 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Mental Health Fair, Role Subset", y = "Percent", x = "Group")## Warning: Removed 7 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Mental Health Good", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Mental Health Good, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Mental Health Good, Role Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Mental Health Excellent", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QH8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Mental Health Excellent, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QH8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Mental Health Excellent, Role Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QH9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Sleep Poor", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Sleep Poor, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Sleep Poor, Role Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Sleep Fair", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Sleep Fair, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Sleep Fair, Role Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Sleep Good", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Sleep Good, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Sleep Good, Role Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Sleep Excellent", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Sleep Excellent, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Sleep Excellent, Role Subset", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QH13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "General Life Satisfaction", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QH13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "General Life Satisfaction, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QH13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "General Life Satisfaction, Role Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QH14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "What I do is Worthwhile", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QH14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "What I do is Worthwhile, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QH14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "What I do is Worthwhile, Role Subset", y = "Percent", x = "Group")
Impact from Covid-19
ggplot(climateb,
aes(x = Group2,
y = QV1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Physical Health Not Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Physical Health Not Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV1,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Physical Health Not Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Physical Health Somewhat Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Physical Health Somewhat Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV2,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Physical Health Somewhat Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Physical Health Greatly Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Physical Health Greatly Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV3,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Physical Health Greatly Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 9 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Mental Health Not Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Mental Health Not Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV4,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Mental Health Not Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Mental Health Somewhat Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Mental Health Somewhat Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV5,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Mental Health Somewhat Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Mental Health Greatly Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Mental Health Greatly Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV6,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Mental Health Greatly Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 5 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Loved Ones Health Not Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Loved Ones Health Not Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV7,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Loved Ones Health Not Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Loved Ones Health Somewhat Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Loved Ones Health Somewhat Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV8,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Loved Ones Health Somewhat Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Loved Ones Health Greatly Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Loved Ones Health Greatly Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV9,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Loved Ones Health Greatly Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Social Health Not Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Social Health Not Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV10,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Social Health Not Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Social Health Somewhat Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Social Health Somewhat Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV11,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Social Health Somewhat Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Social Health Greatly Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Social Health Greatly Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV12,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Social Health Greatly Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Financial Wellbeing Not Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Financial Wellbeing Not Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV13,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Financial Wellbeing Not Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Financial Wellbeing Somewhat Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Financial Wellbeing Somewhat Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV14,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Financial Wellbeing Somewhat Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 4 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV15,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Financial Wellbeing Greatly Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV15,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Financial Wellbeing Greatly Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV15,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Financial Wellbeing Greatly Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV16,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Housing Not Affected by Covid-19", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QV16,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Housing Not Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QV16,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Housing Not Affected by Covid-19, Role Subset", y = "Percent", x = "Group")
ggplot(climateb,
aes(x = Group2,
y = QV17,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Housing Somewhat Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 7 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV17,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Housing Somewhat Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 7 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV17,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Housing Somewhat Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 7 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV18,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Housing Greatly Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV18,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Housing Greatly Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV18,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Housing Greatly Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 10 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV19,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Performance Not Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV19,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Performance Not Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV19,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Performance Not Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 6 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV20,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Performance Somewhat Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV20,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Performance Somewhat Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV20,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Performance Somewhat Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 2 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV21,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Performance Greatly Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV21,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Performance Greatly Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV21,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Performance Greatly Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 3 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV22,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Cases of Discrimination Not Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV22,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Cases of Discrimination Not Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV22,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Cases of Discrimination Not Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 1 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV23,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Cases of Discrimination Somewhat Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV23,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Cases of Discrimination Somewhat Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV23,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Cases of Discrimination Somewhat Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 8 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV24,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
labs(title = "Cases of Discrimination Greatly Affected by Covid-19", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV24,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Demographic)+
labs(title = "Cases of Discrimination Greatly Affected by Covid-19, Demographic Subset", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).
ggplot(climateb,
aes(x = Group2,
y = QV24,
fill = Group))+
geom_bar(stat = "identity")+
scale_fill_viridis_d(name = "Group", option = "turbo")+
facet_wrap(~Role)+
labs(title = "Cases of Discrimination Greatly Affected by Covid-19, Role Subset", y = "Percent", x = "Group")## Warning: Removed 12 rows containing missing values (position_stack).