Contrast Set 8 Highest Degree x Outcome

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

#Q2.11 Highest Degree
teecap$Q2.11

##   [1]  6 NA  5  5  5  3  5  5  5  6  3  7  5  3  3  7  4  1  5  5  2  5  6  6  7
##  [26]  7  5  2  6  5  5  6  5  2  5  5  3  4  6  5  5  5  3  5  5  5  5  5  6  5
##  [51]  6  5  5  5  5  5  5  6  7 NA NA  3  3  3  5  3  6  3  6  4  3  5  6  5  3
##  [76]  4  6  6  5  5  5  3  3  6  5  7  5  5  5  5  5 NA  6  5  5  8  5  3 NA  3
## [101]  3  3  5  5  6  2  3  3  5  2  2  2  2  6  2  1 NA  2  6  6  4  2  2  2 NA
## [126]  5  5  5  6  5  5 NA  6  4  3  5  5  5  5  5  5  5  5  5  3  6  5  3  3  5
## [151]  5  2  5  3  5 NA NA  6  5 NA  6  2  2  2  2  5  4  4  6  5  5  3  5  3  6
## [176]  2  5  7  5  3  4 NA NA NA NA  2  4  4  4 NA  2  3  6  6  3  6  5  5  4  3
## [201]  5  3  3 NA  8  3  3 NA  5  5 NA NA NA NA NA NA NA NA NA  5  6  6  4 NA NA
## [226]  5  5  5  5  4 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## [251] NA NA NA NA NA NA NA NA NA NA NA

teecap$Q2.11x <- recode(as.integer(teecap$Q2.11), 
                       '1' = 'No Bachelors', 
                       '2'= 'No Bachelors', 
                       '3'='No Bachelors', 
                       '4'='No Bachelors', 
                       '5'= 'Bachelors or Higher',
                       '6'= 'Bachelors or Higher',
                       '7' = 'Bachelors or Higher',
                       '8'='z.pnta', 
                       .default=NA_character_)
teecap$Q2.11

##   [1]  6 NA  5  5  5  3  5  5  5  6  3  7  5  3  3  7  4  1  5  5  2  5  6  6  7
##  [26]  7  5  2  6  5  5  6  5  2  5  5  3  4  6  5  5  5  3  5  5  5  5  5  6  5
##  [51]  6  5  5  5  5  5  5  6  7 NA NA  3  3  3  5  3  6  3  6  4  3  5  6  5  3
##  [76]  4  6  6  5  5  5  3  3  6  5  7  5  5  5  5  5 NA  6  5  5  8  5  3 NA  3
## [101]  3  3  5  5  6  2  3  3  5  2  2  2  2  6  2  1 NA  2  6  6  4  2  2  2 NA
## [126]  5  5  5  6  5  5 NA  6  4  3  5  5  5  5  5  5  5  5  5  3  6  5  3  3  5
## [151]  5  2  5  3  5 NA NA  6  5 NA  6  2  2  2  2  5  4  4  6  5  5  3  5  3  6
## [176]  2  5  7  5  3  4 NA NA NA NA  2  4  4  4 NA  2  3  6  6  3  6  5  5  4  3
## [201]  5  3  3 NA  8  3  3 NA  5  5 NA NA NA NA NA NA NA NA NA  5  6  6  4 NA NA
## [226]  5  5  5  5  4 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## [251] NA NA NA NA NA NA NA NA NA NA NA

tblQ2.11 <- table(teecap$Q2.11x)
c(tblQ2.11, sum(tblQ2.11))

## Bachelors or Higher        No Bachelors              z.pnta                     
##                 125                  74                   2                 201

#round(prop.table(tblQ2.11), 2)

CONTRAST

A. Q2.11 X Q1.24

Q2.11 Highest Degree x Q1.24 How much … shapes your life today?
	a.Very much	b.Moderately	c.Slightly	d.Not at all	pnta	Sum
Bachelors or Higher	86	23	14	2	0	125
No Bachelors	48	15	7	2	2	74
z.pnta	1	0	1	0	0	2
Sum	135	38	22	4	2	201

Q2.11 Highest Degree x Q1.24 How much … shapes your life today?
	a.Very much	b.Moderately	c.Slightly	pnta
No Bachelors	0.57	0.3	0.09	0.04

Q2.11 Highest Degree x Q1.24 How much … shapes your life today?
	a.Very much	b.Moderately	c.Slightly	d.Not at all	pnta
No Bachelors	0.64	0.2	0.1	0.02	0.03

B. Q2.11 X Q1.25

Q2.11 Highest Degree x Q1.25…programs help young people learn and grow.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	d.Somewhat disagree	e.Strongly disagree	z.pnta	Sum
Bachelors or Higher	113	11	0	0	1	0	125
No Bachelors	63	6	3	1	0	1	74
z.pnta	1	1	0	0	0	0	2
Sum	177	18	3	1	1	1	201

Q2.11 Highest Degree x Q1.25…programs help young people learn and grow.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	z.pnta
No Bachelors	0.78	0.13	0.04	0.04

Q2.11 Highest Degree x Q1.25…programs help young people learn and grow.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	z.pnta
No Bachelors	0.85	0.08	0.05	0.02

C. Q2.11 X Q1.26

Q2.11 Highest Degree x Q1.26…arts programs prepare people for life events and challenges.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	d.Somewhat disagree	z.pnta	Sum
Bachelors or Higher	81	37	7	0	0	125
No Bachelors	42	20	8	3	1	74
z.pnta	1	1	0	0	0	2
Sum	124	58	15	3	1	201

Q2.11 Highest Degree x Q1.26…arts programs prepare people for life events and challenges.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	d.Somewhat disagree
No Bachelors	0.61	0.22	0.13	0.04

Q2.11 Highest Degree x Q1.26…arts programs prepare people for life events and challenges.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	d.Somewhat disagree	z.pnta
No Bachelors	0.56	0.29	0.1	0.03	0.02

D. Q2.11 X Q1.27

Q2.11 Highest Degree x Q1.27 Participation in after school/arts programs can be lifechanging.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	d.Somewhat disagree	z.pnta	Sum
Bachelors or Higher	109	14	1	1	0	125
No Bachelors	53	15	3	2	1	74
z.pnta	1	1	0	0	0	2
Sum	163	30	4	3	1	201

Q2.11 Highest Degree x Q1.27 Participation in after school/arts programs can be lifechanging.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	d.Somewhat disagree
No Bachelors	0.57	0.3	0.09	0.04

Q2.11 Highest Degree x Q1.27 Participation in after school/arts programs can be lifechanging.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	d.Somewhat disagree	z.pnta
No Bachelors	0.68	0.24	0.05	0.02	0.02

D. Q2.11 X Q1.28

Q2.11 Highest Degree x Q1.28…valuable for career?
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	d.Somewhat disagree	z.pnta	Sum
Bachelors or Higher	97	22	6	0	0	125
No Bachelors	47	18	6	2	1	74
z.pnta	1	1	0	0	0	2
Sum	145	41	12	2	1	201

Q2.11 Highest Degree x Q1.28…valuable for career?
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	d.Somewhat disagree
No Bachelors	0.61	0.26	0.09	0.04

Q2.11 Highest Degree x Q1.28…valuable for career?
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	d.Somewhat disagree	z.pnta
No Bachelors	0.61	0.25	0.1	0.02	0.02

E. Q2.11 X Q1.29

Q2.11 Highest Degree x #Q1.29 Community arts programs foster community wellness.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	d.Somewhat disagree	Sum
Bachelors or Higher	96	24	4	1	125
No Bachelors	49	20	4	1	74
z.pnta	1	1	0	0	2
Sum	146	45	8	2	201

Q2.11 Highest Degree x #Q1.29 Community arts programs foster community wellness.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree
No Bachelors	0.61	0.35	0.04

Q2.11 Highest Degree x #Q1.29 Community arts programs foster community wellness.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree
No Bachelors	0.61	0.32	0.07

F. Q2.11 X Q1.30

Q2.11 Highest Degree x Q1.30 …can create an enduring sense of personal wellbeing.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	d.Somewhat disagree	z.pnta	Sum
Bachelors or Higher	95	27	1	1	1	125
No Bachelors	54	13	5	1	1	74
z.pnta	1	1	0	0	0	2
Sum	150	41	6	2	2	201

Q2.11 Highest Degree x Q1.30 …can create an enduring sense of personal wellbeing.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree
No Bachelors	0.78	0.17	0.04

Q2.11 Highest Degree x Q1.30 …can create an enduring sense of personal wellbeing.
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	z.pnta
No Bachelors	0.69	0.2	0.08	0.02

F. Q2.11 X Q1.31

Q2.11 Highest Degree x Q1.31 …has long term effects
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	d.Somewhat disagree	e.Strongly disagree	z.pnta	Sum
Bachelors or Higher	102	20	3	0	0	0	125
No Bachelors	44	17	9	1	1	2	74
z.pnta	2	0	0	0	0	0	2
Sum	148	37	12	1	1	2	201

Q2.11 Highest Degree x Q1.31 …has long term effects
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	e.Strongly disagree
No Bachelors	0.57	0.13	0.26	0.04

Q2.11 Highest Degree x Q1.31 …has long term effects
	a.Strongly agree	b.Somewhat agree	c.Neither agree nor disagree	e.Strongly disagree	z.pnta
No Bachelors	0.59	0.24	0.14	0.02	0.02

Contrast Set 8 Highest Degree x Outcome

smc

2022-12-04