Graphing Univariate Groups

# Graphing Univariate Groups
### Derek Ogle, May 2020

---

# Background

- The General Sociological Survey (GSS) gathers data on American society to monitor and explain trends in attitudes, behaviors, and attributes.
  - Initiated in 1972.
  - Can be accessed from [NORC at the University of Chicago](https://gss.norc.org/)

---

# Background

- Downloaded data on the following four characteristics or questions:
  - Respondent's sex, race, and highest educational degree.
  - "Generally speaking, how concerned are you about environmental issues?"
  - "How willing would you be to accept cuts in your standard of living in order to protect the environment?"
- [Data available here](https://raw.githubusercontent.com/droglenc/NCData/master/GSS_Enviro_2010.csv)

---

# Background

- Loaded data into `gss` data.frame.
  - Converted codes to words (use of `mapvalues()`).
  - Removed "missing data" (use of `is.na()` within `filter()`).

```r
#!# Set to your own working directory and have just your filename below.
gss <- read.csv("https://raw.githubusercontent.com/droglenc/NCData/master/GSS_Enviro_2010.csv",
                na.strings=c("na","NA","-1","7","8","9","98","99")) %>%
  mutate(SEX=plyr::mapvalues(SEX,from=1:2,to=c("Male","Female")),
         RACE=plyr::mapvalues(RACE,from=1:3,to=c("White","Black","Other")),
         DEGREE=plyr::mapvalues(DEGREE,from=0:4,
           to=c("Less than HS","High School","Junior College","Bachelors","Graduate School")),
         GRNSOL = plyr::mapvalues(GRNSOL,from=0:5,
           to=c(NA_character_,"Very","Fairly","Neither","Not Very","Not At All")),
         GRNCON = plyr::mapvalues(GRNCON,from=0:5,
           to=c(NA_character_,"Not at All","Not Much","Neither","Somewhat","Very"))) %>%
  filter(!is.na(GRNSOL),!is.na(GRNCON))
```

---

# Background

- Loaded data into `gss` data.frame.
  - Converted all variables to factors and ordered all levels (use of `levels=` in `factor()` in `mutate()`).
  - Selected only three variables, for simplicity (use of `select()`).

```r
gss <- gss %>%
  mutate(SEX=factor(SEX),RACE=factor(RACE,levels=c("White","Black","Other")),
         DEGREE=factor(DEGREE,levels=c("Less than HS","High School","Junior College",
                                       "Bachelors","Graduate School")),
         GRNSOL = factor(GRNSOL,levels=c("Not At All","Not Very","Neither","Fairly","Very")),
         GRNCON = factor(GRNCON,levels=c("Not at All","Not Much","Neither","Somewhat","Very"))) %>%
  select(SEX,DEGREE,GRNSOL)
```

---

# Background

```r
head(gss)
```

- Variables used are:
  - **SEX**: Sex of respondent (`Female` or `Male`).
  - **DEGREE**: Respondent's highest completed degree.
  - **GRNSOL**: Response to "willingness to cut standard of living" question.

--
- Color palette used is:

```r
clrs <- c("#E69F00","#56B4E9","#009E73","#F0E442","#0072B2")
```

---

# Bar Chart

.pull-left[
- Displays the frequency of observations in levels of the categorical *X* variable.
- Constructed with `geom_bar()`.
  - `width=`: Width of bars.
  - `position=`: Controls position of bars with groups.
]

<img src="Lecture_EnviroProtect_files/figure-html/bar_demo-1.png" width="100%" />
]

---

# Bar Chart with Typical Modifications

---

```r
*b <- ggplot(data=gss, mapping=aes(x=GRNSOL))
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar1_auto_1_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss, mapping=aes(x=GRNSOL)) +  
* geom_bar(color="gray30",fill="gray30",alpha=0.75)
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar1_auto_2_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss, mapping=aes(x=GRNSOL)) +  
  geom_bar(color="gray30",fill="gray30",alpha=0.75) +  
* scale_x_discrete(name="Willingness to Pay")
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar1_auto_3_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss, mapping=aes(x=GRNSOL)) +  
  geom_bar(color="gray30",fill="gray30",alpha=0.75) +  
  scale_x_discrete(name="Willingness to Pay") +  
* scale_y_continuous(name="Frequency of Respondents",
*                    expand=expansion(mult=c(0,0.05)))
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar1_auto_4_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss, mapping=aes(x=GRNSOL)) +  
  geom_bar(color="gray30",fill="gray30",alpha=0.75) +  
  scale_x_discrete(name="Willingness to Pay") +  
  scale_y_continuous(name="Frequency of Respondents",  
                     expand=expansion(mult=c(0,0.05))) +  
* theme_bw()
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar1_auto_5_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss, mapping=aes(x=GRNSOL)) +  
  geom_bar(color="gray30",fill="gray30",alpha=0.75) +  
  scale_x_discrete(name="Willingness to Pay") +  
  scale_y_continuous(name="Frequency of Respondents",  
                     expand=expansion(mult=c(0,0.05))) +  
  theme_bw() +  
* theme(panel.grid.major.x=element_blank(),
*       panel.grid.minor=element_blank())
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar1_auto_6_output-1.png" width="100%" />
]]

---

# Stacked Bar Chart (by Groups)

### Make sure "groups" on x-axis and "response" on y-axis

---

```r
b <- ggplot(data=gss, mapping=aes(  
  x=SEX,  
  )) +  
  geom_bar(color="gray30",alpha=0.75) +  
  scale_x_discrete(name="Sex of Respondent") +  
  scale_y_continuous(name="Frequency of Respondents",  
                     expand=expansion(mult=c(0,0.05))) +  
  theme_bw() +  
  theme(panel.grid.major.x=element_blank(),  
        panel.grid.minor=element_blank())  
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar2_non_seq_1_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss, mapping=aes(  
  x=SEX,  
* fill=GRNSOL
  )) +  
  geom_bar(color="gray30",alpha=0.75) +  
  scale_x_discrete(name="Sex of Respondent") +  
  scale_y_continuous(name="Frequency of Respondents",  
                     expand=expansion(mult=c(0,0.05))) +  
  theme_bw() +  
  theme(panel.grid.major.x=element_blank(),  
        panel.grid.minor=element_blank())  
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar2_non_seq_2_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss, mapping=aes(  
  x=SEX,  
  fill=GRNSOL  
  )) +  
  geom_bar(color="gray30",alpha=0.75) +  
  scale_x_discrete(name="Sex of Respondent") +  
  scale_y_continuous(name="Frequency of Respondents",  
                     expand=expansion(mult=c(0,0.05))) +  
* scale_fill_manual(name="Willingness?",values=clrs) +
  theme_bw() +  
  theme(panel.grid.major.x=element_blank(),  
        panel.grid.minor=element_blank())  
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar2_non_seq_3_output-1.png" width="100%" />
]]

---

```r
b <- ggplot(data=gss, mapping=aes(  
  x=DEGREE,  
  )) +  
  geom_bar(color="gray30",alpha=0.75) +  
  scale_x_discrete(name="Highest Completed Degree") +  
  scale_y_continuous(name="Frequency of Respondents",  
                     expand=expansion(mult=c(0,0.05))) +  
  theme_bw() +  
  theme(panel.grid.major.x=element_blank(),  
        panel.grid.minor=element_blank())  
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar3_non_seq_1_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss, mapping=aes(  
  x=DEGREE,  
* fill=GRNSOL
  )) +  
  geom_bar(color="gray30",alpha=0.75) +  
  scale_x_discrete(name="Highest Completed Degree") +  
  scale_y_continuous(name="Frequency of Respondents",  
                     expand=expansion(mult=c(0,0.05))) +  
  theme_bw() +  
  theme(panel.grid.major.x=element_blank(),  
        panel.grid.minor=element_blank())  
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar3_non_seq_2_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss, mapping=aes(  
  x=DEGREE,  
  fill=GRNSOL  
  )) +  
  geom_bar(color="gray30",alpha=0.75) +  
  scale_x_discrete(name="Highest Completed Degree") +  
  scale_y_continuous(name="Frequency of Respondents",  
                     expand=expansion(mult=c(0,0.05))) +  
* scale_fill_manual(name="Willingness?",values=clrs) +
  theme_bw() +  
  theme(panel.grid.major.x=element_blank(),  
        panel.grid.minor=element_blank())  
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar3_non_seq_3_output-1.png" width="100%" />
]]

---

# Side-by-Side Bar Chart (by Group)

---

```r
b <- ggplot(data=gss, mapping=aes(x=DEGREE,fill=GRNSOL)) +  
  geom_bar(  
    color="gray30",  
    alpha=0.75,  
  ) +  
  scale_x_discrete(name="Highest Completed Degree") +  
  scale_y_continuous(name="Frequency of Respondents",  
                     expand=expansion(mult=c(0,0.05))) +  
  scale_fill_manual(name="Willingness?",values=clrs) +  
  theme_bw() +  
  theme(panel.grid.major.x=element_blank(),  
        panel.grid.minor=element_blank())  
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar3a_non_seq_1_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss, mapping=aes(x=DEGREE,fill=GRNSOL)) +  
  geom_bar(  
    color="gray30",  
    alpha=0.75,  
*   position="dodge"
  ) +  
  scale_x_discrete(name="Highest Completed Degree") +  
  scale_y_continuous(name="Frequency of Respondents",  
                     expand=expansion(mult=c(0,0.05))) +  
  scale_fill_manual(name="Willingness?",values=clrs) +  
  theme_bw() +  
  theme(panel.grid.major.x=element_blank(),  
        panel.grid.minor=element_blank())  
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar3a_non_seq_2_output-1.png" width="100%" />
]]

---

# Flipped Axes

### Can sometimes help with long level names (though we will also handle this later)

---

```r
*b 
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar3b_user_1_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b +  
* coord_flip()
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar3b_user_2_output-1.png" width="100%" />
]]

---

# Bar Charts from Summaries

---

# Bar Charts from Summaries
- Data must be in "tidy format."
  - Each **row** represents one **individual** (i.e., observation or unit).
  - Each **column** represents one **variable**.

---

# Summarizing Data
### Univariate Counts

---

```r
*gss_sum1 <- gss
 
gss_sum1
```
]]
.column[.content[

```
        SEX          DEGREE     GRNSOL
1      Male       Bachelors     Fairly
2    Female       Bachelors     Fairly
3    Female    Less than HS Not At All
4    Female  Junior College    Neither
5    Female     High School       Very
6    Female  Junior College Not At All
7      Male     High School     Fairly
8      Male     High School Not At All
9    Female    Less than HS Not At All
10   Female  Junior College Not At All
11     Male       Bachelors       Very
12     Male     High School Not At All
13     Male     High School     Fairly
14   Female    Less than HS     Fairly
15   Female Graduate School     Fairly
16   Female     High School Not At All
17   Female  Junior College     Fairly
18   Female       Bachelors   Not Very
19   Female       Bachelors     Fairly
20     Male  Junior College   Not Very
21     Male     High School     Fairly
22     Male Graduate School     Fairly
23     Male Graduate School Not At All
24     Male Graduate School     Fairly
25     Male Graduate School    Neither
26   Female     High School     Fairly
27     Male Graduate School Not At All
28     Male     High School     Fairly
29     Male     High School   Not Very
30   Female     High School    Neither
31     Male     High School Not At All
32     Male       Bachelors     Fairly
33   Female Graduate School     Fairly
34     Male       Bachelors   Not Very
35   Female     High School       Very
36   Female       Bachelors     Fairly
37     Male       Bachelors   Not Very
38   Female  Junior College   Not Very
39   Female    Less than HS Not At All
40     Male       Bachelors    Neither
41     Male     High School    Neither
42     Male     High School Not At All
43     Male     High School     Fairly
44   Female     High School     Fairly
45     Male  Junior College    Neither
46   Female  Junior College     Fairly
47   Female       Bachelors   Not Very
48   Female     High School     Fairly
49     Male     High School Not At All
50     Male  Junior College     Fairly
51   Female Graduate School   Not Very
52     Male     High School Not At All
53   Female     High School    Neither
54   Female       Bachelors     Fairly
55     Male     High School   Not Very
56   Female    Less than HS   Not Very
57   Female       Bachelors     Fairly
58   Female       Bachelors   Not Very
59   Female  Junior College     Fairly
60     Male    Less than HS     Fairly
61   Female     High School Not At All
62   Female Graduate School     Fairly
63     Male     High School    Neither
64   Female     High School     Fairly
65     Male       Bachelors     Fairly
66   Female     High School    Neither
67     Male Graduate School    Neither
68   Female       Bachelors     Fairly
69   Female       Bachelors     Fairly
70   Female Graduate School     Fairly
71     Male    Less than HS    Neither
72   Female     High School Not At All
73     Male       Bachelors Not At All
74     Male       Bachelors   Not Very
75   Female Graduate School     Fairly
76   Female     High School    Neither
77   Female    Less than HS     Fairly
78   Female     High School    Neither
79   Female  Junior College   Not Very
80     Male     High School     Fairly
81   Female       Bachelors    Neither
82     Male       Bachelors     Fairly
83     Male    Less than HS     Fairly
84     Male    Less than HS     Fairly
85     Male    Less than HS    Neither
86     Male    Less than HS     Fairly
87     Male    Less than HS Not At All
88   Female     High School     Fairly
89     Male Graduate School   Not Very
90   Female     High School    Neither
91     Male       Bachelors Not At All
92   Female Graduate School   Not Very
93     Male     High School   Not Very
94   Female    Less than HS    Neither
95     Male    Less than HS Not At All
96     Male    Less than HS   Not Very
97     Male Graduate School    Neither
98     Male     High School Not At All
99     Male    Less than HS     Fairly
100    Male    Less than HS     Fairly
101  Female     High School Not At All
102    Male     High School     Fairly
103  Female     High School Not At All
104    Male       Bachelors    Neither
105  Female     High School   Not Very
106  Female Graduate School     Fairly
107    Male     High School    Neither
108  Female     High School Not At All
109    Male       Bachelors       Very
110    Male     High School    Neither
111    Male     High School   Not Very
112    Male Graduate School     Fairly
113  Female     High School   Not Very
114  Female  Junior College     Fairly
115  Female     High School     Fairly
116    Male       Bachelors    Neither
117  Female       Bachelors     Fairly
118  Female Graduate School     Fairly
119  Female  Junior College    Neither
120  Female     High School Not At All
121    Male       Bachelors     Fairly
122    Male       Bachelors     Fairly
123  Female       Bachelors     Fairly
124    Male  Junior College   Not Very
125    Male     High School    Neither
126  Female Graduate School Not At All
127    Male       Bachelors   Not Very
128  Female Graduate School    Neither
129    Male Graduate School       Very
130    Male     High School     Fairly
131  Female Graduate School Not At All
132  Female    Less than HS    Neither
133    Male     High School    Neither
134    Male     High School Not At All
135  Female     High School    Neither
136    Male     High School       Very
137    Male       Bachelors     Fairly
138  Female       Bachelors    Neither
139  Female    Less than HS     Fairly
140  Female     High School    Neither
141  Female    Less than HS     Fairly
142  Female Graduate School Not At All
143  Female     High School Not At All
144    Male Graduate School Not At All
145    Male Graduate School     Fairly
146  Female       Bachelors     Fairly
147    Male       Bachelors    Neither
148    Male     High School     Fairly
149    Male     High School    Neither
150  Female       Bachelors     Fairly
151    Male Graduate School     Fairly
152    Male       Bachelors     Fairly
153    Male     High School     Fairly
154    Male     High School Not At All
155  Female       Bachelors   Not Very
156  Female     High School    Neither
157  Female    Less than HS   Not Very
158  Female       Bachelors   Not Very
159  Female       Bachelors Not At All
160    Male       Bachelors     Fairly
161  Female     High School Not At All
162  Female     High School Not At All
163  Female     High School Not At All
164  Female       Bachelors     Fairly
165  Female     High School    Neither
166  Female     High School    Neither
167    Male       Bachelors   Not Very
168    Male Graduate School    Neither
169    Male     High School     Fairly
170  Female    Less than HS    Neither
171  Female     High School       Very
172  Female     High School Not At All
173  Female     High School     Fairly
174    Male       Bachelors Not At All
175  Female       Bachelors     Fairly
176    Male Graduate School       Very
177  Female       Bachelors    Neither
178  Female       Bachelors    Neither
179  Female       Bachelors     Fairly
180  Female     High School Not At All
181    Male    Less than HS    Neither
182  Female     High School     Fairly
183  Female       Bachelors     Fairly
184    Male       Bachelors   Not Very
185    Male       Bachelors Not At All
186  Female     High School   Not Very
187    Male     High School   Not Very
188    Male     High School   Not Very
189    Male     High School     Fairly
190    Male       Bachelors     Fairly
191    Male       Bachelors   Not Very
192  Female       Bachelors     Fairly
193  Female Graduate School     Fairly
194    Male     High School    Neither
195    Male     High School   Not Very
196  Female     High School   Not Very
197    Male     High School Not At All
198    Male     High School   Not Very
199    Male     High School     Fairly
200    Male Graduate School     Fairly
201  Female     High School     Fairly
202  Female     High School    Neither
203    Male    Less than HS Not At All
204  Female     High School     Fairly
205    Male     High School Not At All
206    Male     High School    Neither
207    Male       Bachelors   Not Very
208  Female       Bachelors    Neither
209    Male    Less than HS    Neither
210    Male       Bachelors    Neither
211  Female    Less than HS    Neither
212    Male Graduate School Not At All
213    Male     High School Not At All
214  Female     High School   Not Very
215    Male     High School Not At All
216  Female       Bachelors   Not Very
217    Male     High School     Fairly
218  Female     High School   Not Very
219    Male  Junior College   Not Very
220  Female     High School Not At All
221  Female    Less than HS       Very
222    Male    Less than HS    Neither
223  Female     High School   Not Very
224    Male     High School Not At All
225    Male     High School       Very
226  Female     High School Not At All
227  Female     High School Not At All
228    Male     High School   Not Very
229  Female     High School Not At All
230  Female    Less than HS     Fairly
231  Female     High School     Fairly
232  Female Graduate School     Fairly
233    Male       Bachelors Not At All
234  Female     High School    Neither
235    Male Graduate School     Fairly
236  Female  Junior College   Not Very
237    Male     High School Not At All
238    Male       Bachelors   Not Very
239    Male    Less than HS       Very
240  Female Graduate School    Neither
241    Male     High School     Fairly
242  Female    Less than HS    Neither
243    Male     High School   Not Very
244  Female       Bachelors     Fairly
245  Female     High School     Fairly
246    Male     High School     Fairly
247  Female     High School Not At All
248    Male       Bachelors     Fairly
249  Female  Junior College       Very
250    Male     High School Not At All
251    Male     High School    Neither
252    Male    Less than HS       Very
253  Female     High School     Fairly
254    Male    Less than HS Not At All
255  Female     High School   Not Very
256  Female     High School   Not Very
257  Female       Bachelors     Fairly
258  Female     High School     Fairly
259  Female     High School Not At All
260    Male     High School    Neither
261    Male Graduate School    Neither
262  Female     High School     Fairly
263  Female     High School   Not Very
264    Male     High School     Fairly
265    Male     High School       Very
266    Male       Bachelors   Not Very
267  Female  Junior College    Neither
268  Female     High School     Fairly
269  Female  Junior College Not At All
270  Female     High School       Very
271  Female     High School     Fairly
272    Male     High School Not At All
273    Male     High School Not At All
274  Female    Less than HS   Not Very
275    Male     High School       Very
276    Male       Bachelors     Fairly
277    Male       Bachelors     Fairly
278  Female       Bachelors     Fairly
279    Male    Less than HS   Not Very
280  Female    Less than HS Not At All
281    Male     High School     Fairly
282  Female     High School     Fairly
283    Male     High School    Neither
284    Male     High School       Very
285  Female    Less than HS Not At All
286    Male     High School       Very
287    Male     High School   Not Very
288    Male     High School    Neither
289  Female     High School     Fairly
290  Female       Bachelors Not At All
291  Female     High School Not At All
292  Female     High School    Neither
293  Female     High School   Not Very
294  Female     High School Not At All
295  Female     High School     Fairly
296  Female     High School     Fairly
297  Female     High School     Fairly
298  Female     High School   Not Very
299  Female     High School   Not Very
300  Female Graduate School     Fairly
301    Male       Bachelors     Fairly
302  Female    Less than HS    Neither
303    Male     High School     Fairly
304  Female     High School       Very
305    Male       Bachelors   Not Very
306  Female     High School     Fairly
307  Female    Less than HS   Not Very
308  Female     High School Not At All
309  Female       Bachelors     Fairly
310    Male       Bachelors   Not Very
311    Male Graduate School   Not Very
312  Female Graduate School   Not Very
313    Male     High School Not At All
314    Male     High School   Not Very
315  Female Graduate School     Fairly
316  Female       Bachelors       Very
317    Male     High School Not At All
318    Male Graduate School     Fairly
319    Male    Less than HS    Neither
320  Female       Bachelors    Neither
321  Female     High School    Neither
322  Female    Less than HS     Fairly
323    Male     High School     Fairly
324  Female     High School     Fairly
325  Female     High School Not At All
326    Male    Less than HS Not At All
327    Male  Junior College     Fairly
328  Female     High School Not At All
329  Female     High School    Neither
330  Female     High School       Very
331  Female     High School   Not Very
332  Female       Bachelors Not At All
333    Male       Bachelors    Neither
334    Male     High School   Not Very
335  Female       Bachelors       Very
336  Female  Junior College       Very
337    Male    Less than HS       Very
338  Female    Less than HS     Fairly
339    Male     High School     Fairly
340    Male       Bachelors Not At All
341    Male  Junior College     Fairly
342  Female     High School    Neither
343  Female     High School    Neither
344    Male     High School    Neither
345    Male       Bachelors     Fairly
346  Female       Bachelors    Neither
347  Female     High School   Not Very
348    Male Graduate School Not At All
349  Female       Bachelors    Neither
350    Male    Less than HS     Fairly
351  Female     High School     Fairly
352  Female     High School   Not Very
353  Female     High School Not At All
354    Male       Bachelors Not At All
355  Female Graduate School    Neither
356    Male     High School   Not Very
357  Female       Bachelors    Neither
358  Female     High School    Neither
359  Female Graduate School    Neither
360    Male       Bachelors   Not Very
361  Female  Junior College     Fairly
362  Female     High School     Fairly
363    Male Graduate School Not At All
364  Female     High School     Fairly
365  Female Graduate School     Fairly
366  Female       Bachelors    Neither
367  Female       Bachelors     Fairly
368  Female     High School   Not Very
369    Male       Bachelors   Not Very
370  Female    Less than HS    Neither
371    Male  Junior College Not At All
372    Male     High School     Fairly
373  Female     High School     Fairly
374  Female       Bachelors     Fairly
375    Male    Less than HS    Neither
376  Female    Less than HS Not At All
377    Male     High School   Not Very
378  Female     High School Not At All
379    Male     High School     Fairly
380  Female     High School Not At All
381    Male     High School    Neither
382  Female     High School       Very
383    Male       Bachelors    Neither
384    Male    Less than HS   Not Very
385    Male     High School Not At All
386  Female Graduate School     Fairly
387  Female  Junior College     Fairly
388  Female     High School     Fairly
389    Male     High School     Fairly
390  Female    Less than HS     Fairly
391    Male     High School     Fairly
392  Female     High School Not At All
393    Male  Junior College     Fairly
394  Female     High School   Not Very
395  Female     High School Not At All
396    Male     High School     Fairly
397  Female       Bachelors       Very
398  Female     High School   Not Very
399    Male     High School     Fairly
400  Female       Bachelors   Not Very
401    Male     High School     Fairly
402  Female       Bachelors     Fairly
403  Female       Bachelors    Neither
404  Female Graduate School   Not Very
405    Male    Less than HS     Fairly
406  Female     High School       Very
407    Male     High School Not At All
408    Male Graduate School     Fairly
409    Male     High School Not At All
410    Male       Bachelors     Fairly
411    Male     High School    Neither
412    Male     High School   Not Very
413    Male       Bachelors    Neither
414    Male  Junior College     Fairly
415    Male       Bachelors Not At All
416  Female     High School     Fairly
417  Female     High School     Fairly
418  Female     High School     Fairly
419  Female     High School     Fairly
420    Male     High School     Fairly
421    Male     High School    Neither
422  Female     High School     Fairly
423  Female  Junior College    Neither
424  Female       Bachelors     Fairly
425  Female    Less than HS    Neither
426  Female       Bachelors    Neither
427  Female    Less than HS Not At All
428  Female  Junior College Not At All
429  Female     High School    Neither
430    Male     High School Not At All
431  Female     High School     Fairly
432  Female       Bachelors     Fairly
433  Female     High School Not At All
434  Female     High School   Not Very
435  Female     High School Not At All
436  Female  Junior College     Fairly
437  Female       Bachelors Not At All
438    Male       Bachelors    Neither
439    Male     High School Not At All
440  Female    Less than HS Not At All
441  Female    Less than HS     Fairly
442  Female     High School     Fairly
443  Female     High School Not At All
444  Female       Bachelors Not At All
445  Female     High School Not At All
446    Male     High School    Neither
447  Female    Less than HS Not At All
448  Female     High School   Not Very
449    Male       Bachelors Not At All
450  Female       Bachelors   Not Very
451  Female    Less than HS     Fairly
452  Female     High School   Not Very
453    Male     High School     Fairly
454  Female     High School   Not Very
455  Female     High School    Neither
456  Female     High School       Very
457  Female     High School    Neither
458  Female     High School   Not Very
459    Male     High School     Fairly
460  Female     High School     Fairly
461    Male    Less than HS Not At All
462  Female  Junior College     Fairly
463    Male Graduate School    Neither
464  Female       Bachelors     Fairly
465  Female       Bachelors    Neither
466  Female     High School   Not Very
467  Female     High School    Neither
468  Female Graduate School    Neither
469  Female       Bachelors    Neither
470    Male Graduate School   Not Very
471  Female     High School       Very
472  Female     High School Not At All
473  Female     High School     Fairly
474    Male       Bachelors     Fairly
475  Female    Less than HS    Neither
476    Male    Less than HS   Not Very
477    Male     High School    Neither
478  Female       Bachelors Not At All
479  Female Graduate School   Not Very
480    Male       Bachelors     Fairly
481    Male  Junior College    Neither
482    Male       Bachelors Not At All
483    Male  Junior College     Fairly
484    Male     High School   Not Very
485    Male     High School   Not Very
486    Male     High School    Neither
487    Male       Bachelors     Fairly
488    Male Graduate School     Fairly
489    Male Graduate School   Not Very
490    Male     High School     Fairly
491  Female       Bachelors Not At All
492  Female       Bachelors       Very
493    Male     High School   Not Very
494    Male       Bachelors     Fairly
495    Male    Less than HS    Neither
496  Female     High School Not At All
497  Female Graduate School     Fairly
498    Male       Bachelors    Neither
499    Male  Junior College    Neither
500    Male     High School Not At All
501  Female     High School   Not Very
502    Male     High School Not At All
503  Female     High School    Neither
504    Male  Junior College Not At All
505    Male       Bachelors       Very
506    Male     High School   Not Very
507    Male       Bachelors     Fairly
508    Male  Junior College    Neither
509  Female Graduate School       Very
510  Female       Bachelors   Not Very
511  Female  Junior College     Fairly
512    Male     High School Not At All
513  Female     High School    Neither
514  Female       Bachelors Not At All
515  Female       Bachelors       Very
516  Female    Less than HS Not At All
517    Male     High School    Neither
518  Female     High School    Neither
519  Female     High School     Fairly
520    Male     High School Not At All
521  Female  Junior College     Fairly
522  Female     High School     Fairly
523    Male       Bachelors   Not Very
524  Female Graduate School     Fairly
525    Male       Bachelors   Not Very
526    Male    Less than HS    Neither
527  Female     High School     Fairly
528  Female     High School     Fairly
529  Female Graduate School     Fairly
530  Female       Bachelors     Fairly
531    Male       Bachelors Not At All
532  Female       Bachelors     Fairly
533    Male       Bachelors    Neither
534  Female       Bachelors   Not Very
535    Male     High School Not At All
536  Female     High School       Very
537    Male     High School     Fairly
538    Male       Bachelors     Fairly
539  Female Graduate School   Not Very
540  Female     High School Not At All
541  Female     High School    Neither
542    Male Graduate School     Fairly
543  Female Graduate School Not At All
544    Male     High School Not At All
545    Male       Bachelors   Not Very
546    Male     High School Not At All
547    Male     High School Not At All
548    Male     High School   Not Very
549    Male     High School    Neither
550    Male Graduate School   Not Very
551  Female    Less than HS     Fairly
552  Female     High School    Neither
553    Male Graduate School     Fairly
554  Female    Less than HS     Fairly
555  Female     High School    Neither
556  Female     High School Not At All
557  Female     High School   Not Very
558    Male       Bachelors   Not Very
559    Male       Bachelors   Not Very
560  Female  Junior College     Fairly
561  Female       Bachelors   Not Very
562    Male     High School     Fairly
563  Female     High School   Not Very
564  Female     High School Not At All
565  Female Graduate School   Not Very
566  Female     High School Not At All
567  Female  Junior College    Neither
568    Male Graduate School     Fairly
569  Female       Bachelors    Neither
570    Male       Bachelors   Not Very
571    Male    Less than HS     Fairly
572  Female     High School    Neither
573  Female    Less than HS Not At All
574  Female     High School   Not Very
575    Male Graduate School    Neither
576  Female     High School   Not Very
577  Female     High School    Neither
578  Female     High School Not At All
579    Male  Junior College    Neither
580    Male     High School   Not Very
581  Female     High School   Not Very
582  Female     High School Not At All
583  Female     High School     Fairly
584  Female     High School   Not Very
585    Male     High School    Neither
586  Female    Less than HS     Fairly
587    Male  Junior College Not At All
588  Female     High School     Fairly
589  Female     High School    Neither
590  Female  Junior College     Fairly
591  Female     High School    Neither
592    Male     High School   Not Very
593  Female    Less than HS    Neither
594    Male     High School Not At All
595    Male     High School Not At All
596  Female     High School   Not Very
597    Male     High School   Not Very
598    Male    Less than HS Not At All
599  Female     High School    Neither
600  Female     High School       Very
601  Female       Bachelors       Very
602  Female     High School Not At All
603  Female     High School     Fairly
604    Male Graduate School    Neither
605  Female    Less than HS   Not Very
606    Male Graduate School    Neither
607  Female Graduate School Not At All
608  Female     High School     Fairly
609    Male     High School    Neither
610    Male     High School     Fairly
611    Male     High School     Fairly
612  Female     High School   Not Very
613    Male     High School    Neither
614  Female       Bachelors Not At All
615  Female     High School   Not Very
616  Female     High School   Not Very
617  Female     High School   Not Very
618    Male     High School     Fairly
619  Female     High School Not At All
620    Male       Bachelors   Not Very
621  Female     High School   Not Very
622  Female       Bachelors     Fairly
623    Male Graduate School       Very
624    Male     High School     Fairly
625  Female     High School     Fairly
626    Male     High School    Neither
627    Male    Less than HS     Fairly
628    Male     High School   Not Very
629    Male     High School Not At All
630    Male     High School Not At All
631  Female     High School     Fairly
632    Male     High School    Neither
633  Female     High School    Neither
634  Female     High School Not At All
635  Female    Less than HS     Fairly
636  Female     High School Not At All
637  Female       Bachelors     Fairly
638  Female       Bachelors    Neither
639  Female     High School     Fairly
640    Male     High School    Neither
641    Male     High School Not At All
642    Male     High School Not At All
643  Female Graduate School     Fairly
644  Female Graduate School     Fairly
645    Male       Bachelors   Not Very
646  Female       Bachelors Not At All
647    Male     High School Not At All
648  Female  Junior College Not At All
649    Male     High School   Not Very
650  Female     High School Not At All
651  Female     High School    Neither
652  Female     High School   Not Very
653  Female     High School     Fairly
654  Female     High School     Fairly
655  Female     High School   Not Very
656    Male Graduate School   Not Very
657    Male     High School     Fairly
658    Male     High School     Fairly
659  Female Graduate School    Neither
660  Female Graduate School     Fairly
661  Female     High School     Fairly
662  Female       Bachelors   Not Very
663    Male Graduate School     Fairly
664  Female Graduate School     Fairly
665  Female     High School     Fairly
666  Female Graduate School    Neither
667  Female  Junior College   Not Very
668  Female    Less than HS Not At All
669  Female     High School     Fairly
670  Female     High School Not At All
671  Female  Junior College     Fairly
672  Female     High School    Neither
673    Male     High School Not At All
674    Male       Bachelors   Not Very
675    Male Graduate School       Very
676    Male     High School     Fairly
677    Male Graduate School   Not Very
678    Male     High School     Fairly
679  Female     High School Not At All
680    Male       Bachelors   Not Very
681    Male     High School   Not Very
682  Female  Junior College   Not Very
683  Female     High School Not At All
684  Female       Bachelors   Not Very
685    Male     High School     Fairly
686  Female     High School     Fairly
687  Female     High School Not At All
688  Female Graduate School     Fairly
689  Female     High School     Fairly
690  Female    Less than HS     Fairly
691  Female     High School Not At All
692    Male     High School Not At All
693  Female Graduate School    Neither
694    Male     High School       Very
695  Female  Junior College     Fairly
696    Male     High School   Not Very
697  Female       Bachelors     Fairly
698  Female Graduate School       Very
699  Female     High School     Fairly
700  Female       Bachelors       Very
701  Female     High School     Fairly
702  Female Graduate School     Fairly
703    Male       Bachelors Not At All
704  Female     High School    Neither
705  Female  Junior College    Neither
706  Female Graduate School    Neither
707  Female     High School   Not Very
708  Female       Bachelors    Neither
709  Female     High School     Fairly
710    Male       Bachelors     Fairly
711  Female Graduate School   Not Very
712  Female       Bachelors    Neither
713    Male     High School Not At All
714    Male       Bachelors    Neither
715  Female       Bachelors   Not Very
716    Male     High School     Fairly
717  Female       Bachelors     Fairly
718    Male Graduate School   Not Very
719  Female Graduate School   Not Very
720  Female       Bachelors    Neither
721    Male       Bachelors    Neither
722  Female     High School     Fairly
723    Male       Bachelors   Not Very
724    Male Graduate School    Neither
725  Female       Bachelors Not At All
726  Female       Bachelors   Not Very
727  Female     High School    Neither
728  Female    Less than HS Not At All
729    Male     High School   Not Very
730  Female     High School   Not Very
731  Female       Bachelors   Not Very
732    Male  Junior College   Not Very
733    Male       Bachelors Not At All
734    Male       Bachelors     Fairly
735    Male    Less than HS   Not Very
736    Male    Less than HS    Neither
737    Male    Less than HS Not At All
738    Male     High School Not At All
739  Female     High School    Neither
740  Female     High School   Not Very
741  Female     High School   Not Very
742  Female    Less than HS     Fairly
743    Male     High School Not At All
744    Male     High School Not At All
745    Male     High School   Not Very
746  Female     High School Not At All
747    Male     High School    Neither
748    Male     High School Not At All
749    Male     High School    Neither
750  Female     High School     Fairly
751  Female     High School Not At All
752  Female     High School     Fairly
753    Male     High School     Fairly
754    Male     High School       Very
755    Male       Bachelors     Fairly
756  Female     High School     Fairly
757    Male     High School     Fairly
758  Female    Less than HS     Fairly
759    Male       Bachelors Not At All
760    Male    Less than HS     Fairly
761  Female     High School Not At All
762  Female     High School Not At All
763    Male    Less than HS Not At All
764  Female     High School     Fairly
765  Female     High School       Very
766  Female     High School Not At All
767  Female     High School Not At All
768    Male     High School Not At All
769  Female  Junior College       Very
770  Female     High School   Not Very
771  Female     High School    Neither
772    Male     High School     Fairly
773  Female  Junior College   Not Very
774    Male  Junior College     Fairly
775  Female       Bachelors       Very
776  Female  Junior College       Very
777  Female Graduate School   Not Very
778    Male    Less than HS     Fairly
779    Male    Less than HS    Neither
780  Female  Junior College Not At All
781    Male     High School    Neither
782    Male       Bachelors    Neither
783  Female  Junior College   Not Very
784  Female Graduate School    Neither
785  Female       Bachelors     Fairly
786  Female Graduate School    Neither
787  Female Graduate School     Fairly
788    Male       Bachelors     Fairly
789  Female  Junior College       Very
790  Female       Bachelors   Not Very
791    Male    Less than HS Not At All
792  Female       Bachelors Not At All
793  Female    Less than HS   Not Very
794    Male  Junior College       Very
795  Female     High School   Not Very
796    Male     High School Not At All
797    Male     High School   Not Very
798  Female    Less than HS    Neither
799  Female     High School   Not Very
800    Male     High School     Fairly
801    Male     High School Not At All
802  Female     High School Not At All
803  Female     High School    Neither
804  Female     High School       Very
805  Female     High School     Fairly
806    Male     High School    Neither
807  Female  Junior College   Not Very
808  Female     High School   Not Very
809  Female    Less than HS     Fairly
810    Male    Less than HS Not At All
811  Female     High School     Fairly
812  Female    Less than HS Not At All
813  Female       Bachelors    Neither
814  Female       Bachelors   Not Very
815    Male     High School Not At All
816  Female       Bachelors     Fairly
817    Male     High School    Neither
818  Female Graduate School     Fairly
819    Male  Junior College     Fairly
820    Male    Less than HS       Very
821    Male    Less than HS Not At All
822    Male     High School Not At All
823    Male     High School Not At All
824    Male    Less than HS     Fairly
825  Female    Less than HS    Neither
826    Male    Less than HS       Very
827  Female       Bachelors     Fairly
828  Female Graduate School     Fairly
829    Male       Bachelors   Not Very
830    Male       Bachelors     Fairly
831  Female       Bachelors    Neither
832  Female Graduate School     Fairly
833    Male Graduate School     Fairly
834  Female  Junior College    Neither
835  Female  Junior College    Neither
836  Female       Bachelors   Not Very
837  Female    Less than HS    Neither
838  Female       Bachelors   Not Very
839  Female     High School Not At All
840  Female     High School     Fairly
841  Female       Bachelors   Not Very
842    Male     High School Not At All
843  Female Graduate School     Fairly
844  Female       Bachelors     Fairly
845    Male     High School Not At All
846  Female Graduate School    Neither
847    Male Graduate School Not At All
848  Female     High School    Neither
849    Male Graduate School   Not Very
850  Female     High School Not At All
851    Male       Bachelors       Very
852    Male       Bachelors     Fairly
853    Male     High School Not At All
854  Female       Bachelors   Not Very
855  Female       Bachelors   Not Very
856    Male       Bachelors Not At All
857    Male     High School   Not Very
858  Female       Bachelors   Not Very
859    Male Graduate School    Neither
860    Male     High School       Very
861    Male     High School   Not Very
862  Female       Bachelors    Neither
863    Male     High School    Neither
864    Male       Bachelors     Fairly
865    Male       Bachelors   Not Very
866    Male     High School     Fairly
867  Female     High School Not At All
868    Male       Bachelors Not At All
869  Female  Junior College     Fairly
870    Male Graduate School    Neither
871    Male       Bachelors     Fairly
872  Female  Junior College     Fairly
873    Male       Bachelors   Not Very
874    Male Graduate School   Not Very
875    Male  Junior College     Fairly
876  Female     High School Not At All
877  Female     High School Not At All
878  Female       Bachelors     Fairly
879  Female     High School Not At All
880  Female     High School Not At All
881  Female     High School     Fairly
882    Male     High School     Fairly
883    Male Graduate School     Fairly
884  Female     High School    Neither
885  Female Graduate School     Fairly
886  Female     High School    Neither
887    Male     High School Not At All
888  Female     High School   Not Very
889  Female  Junior College     Fairly
890  Female     High School     Fairly
891  Female    Less than HS     Fairly
892  Female       Bachelors   Not Very
893  Female    Less than HS   Not Very
894  Female     High School Not At All
895  Female  Junior College    Neither
896    Male    Less than HS     Fairly
897    Male     High School     Fairly
898    Male     High School    Neither
899    Male  Junior College    Neither
900  Female     High School Not At All
901  Female     High School     Fairly
902  Female    Less than HS    Neither
903  Female    Less than HS Not At All
904  Female     High School       Very
905    Male    Less than HS     Fairly
906  Female    Less than HS       Very
907  Female     High School    Neither
908  Female    Less than HS     Fairly
909  Female     High School    Neither
910    Male       Bachelors    Neither
911  Female    Less than HS     Fairly
912  Female    Less than HS Not At All
913    Male     High School     Fairly
914    Male    Less than HS     Fairly
915  Female     High School   Not Very
916    Male     High School    Neither
917    Male     High School Not At All
918    Male       Bachelors     Fairly
919    Male     High School     Fairly
920    Male       Bachelors     Fairly
921    Male     High School    Neither
922  Female       Bachelors   Not Very
923  Female     High School    Neither
924  Female       Bachelors    Neither
925  Female     High School   Not Very
926    Male     High School Not At All
927    Male     High School   Not Very
928    Male Graduate School   Not Very
929  Female  Junior College       Very
930  Female     High School    Neither
931  Female     High School    Neither
932  Female     High School   Not Very
933    Male     High School    Neither
934  Female Graduate School       Very
935  Female     High School    Neither
936  Female    Less than HS     Fairly
937    Male  Junior College    Neither
938    Male     High School     Fairly
939    Male     High School Not At All
940  Female     High School   Not Very
941    Male    Less than HS    Neither
942  Female     High School Not At All
943    Male     High School     Fairly
944    Male     High School Not At All
945  Female     High School    Neither
946  Female     High School     Fairly
947    Male  Junior College    Neither
948  Female       Bachelors     Fairly
949  Female       Bachelors     Fairly
950    Male  Junior College    Neither
951  Female     High School     Fairly
952  Female     High School    Neither
953  Female     High School   Not Very
954  Female     High School    Neither
955  Female     High School    Neither
956  Female       Bachelors     Fairly
957  Female     High School   Not Very
958  Female     High School   Not Very
959    Male    Less than HS    Neither
960  Female     High School    Neither
961  Female    Less than HS Not At All
962  Female     High School Not At All
963    Male    Less than HS     Fairly
964  Female     High School Not At All
965    Male    Less than HS    Neither
966  Female    Less than HS Not At All
967  Female     High School   Not Very
968  Female    Less than HS    Neither
969    Male    Less than HS    Neither
970    Male     High School   Not Very
971    Male    Less than HS       Very
972  Female  Junior College       Very
973  Female     High School   Not Very
974    Male     High School   Not Very
975    Male     High School    Neither
976    Male     High School   Not Very
977  Female     High School     Fairly
978    Male    Less than HS    Neither
979    Male       Bachelors Not At All
980    Male     High School   Not Very
981  Female    Less than HS Not At All
982    Male       Bachelors    Neither
983  Female     High School     Fairly
984  Female       Bachelors     Fairly
985    Male Graduate School     Fairly
986  Female    Less than HS Not At All
987    Male     High School    Neither
988  Female     High School Not At All
989    Male       Bachelors     Fairly
990    Male     High School   Not Very
991  Female     High School     Fairly
992  Female     High School   Not Very
993    Male     High School    Neither
994    Male Graduate School       Very
995    Male     High School     Fairly
996    Male  Junior College Not At All
997    Male     High School       Very
998  Female     High School     Fairly
999  Female    Less than HS Not At All
1000 Female       Bachelors     Fairly
1001 Female Graduate School     Fairly
1002   Male     High School    Neither
1003   Male     High School Not At All
1004   Male     High School     Fairly
1005 Female       Bachelors     Fairly
1006 Female       Bachelors     Fairly
1007   Male     High School    Neither
1008 Female    Less than HS     Fairly
1009   Male     High School Not At All
1010 Female     High School    Neither
1011 Female     High School Not At All
1012   Male    Less than HS     Fairly
1013 Female     High School Not At All
1014 Female     High School     Fairly
1015 Female       Bachelors Not At All
1016   Male     High School     Fairly
1017   Male    Less than HS Not At All
1018 Female    Less than HS Not At All
1019   Male    Less than HS       Very
1020 Female       Bachelors    Neither
1021   Male     High School    Neither
1022 Female     High School       Very
1023   Male     High School   Not Very
1024 Female     High School Not At All
1025 Female       Bachelors     Fairly
1026 Female    Less than HS Not At All
1027   Male    Less than HS    Neither
1028   Male    Less than HS   Not Very
1029   Male Graduate School    Neither
1030 Female     High School    Neither
1031 Female     High School    Neither
1032 Female     High School    Neither
1033 Female  Junior College    Neither
1034 Female       Bachelors       Very
1035 Female       Bachelors     Fairly
1036   Male       Bachelors   Not Very
1037   Male     High School    Neither
1038 Female Graduate School    Neither
1039 Female       Bachelors    Neither
1040   Male     High School   Not Very
1041 Female  Junior College       Very
1042   Male     High School    Neither
1043 Female     High School   Not Very
1044 Female     High School   Not Very
1045 Female    Less than HS Not At All
1046 Female Graduate School   Not Very
1047   Male       Bachelors     Fairly
1048   Male  Junior College   Not Very
1049 Female     High School    Neither
1050 Female Graduate School     Fairly
1051 Female     High School Not At All
1052   Male     High School Not At All
1053 Female       Bachelors Not At All
1054   Male       Bachelors     Fairly
1055   Male     High School   Not Very
1056 Female    Less than HS   Not Very
1057 Female     High School     Fairly
1058 Female  Junior College     Fairly
1059 Female       Bachelors    Neither
1060 Female Graduate School    Neither
1061 Female     High School     Fairly
1062   Male     High School     Fairly
1063   Male       Bachelors   Not Very
1064 Female     High School    Neither
1065   Male Graduate School    Neither
1066 Female     High School   Not Very
1067 Female     High School Not At All
1068 Female Graduate School     Fairly
1069   Male       Bachelors    Neither
1070   Male     High School     Fairly
1071 Female     High School    Neither
1072 Female    Less than HS   Not Very
1073   Male     High School     Fairly
1074 Female     High School Not At All
1075 Female     High School    Neither
1076 Female     High School Not At All
1077 Female     High School     Fairly
1078 Female       Bachelors Not At All
1079 Female     High School   Not Very
1080   Male     High School Not At All
1081 Female     High School     Fairly
1082   Male    Less than HS    Neither
1083 Female Graduate School   Not Very
1084 Female Graduate School     Fairly
1085   Male       Bachelors Not At All
1086 Female Graduate School     Fairly
1087   Male       Bachelors     Fairly
1088   Male       Bachelors Not At All
1089   Male       Bachelors    Neither
1090   Male Graduate School   Not Very
1091 Female     High School   Not Very
1092   Male     High School    Neither
1093 Female       Bachelors     Fairly
1094 Female     High School     Fairly
1095 Female     High School Not At All
1096 Female       Bachelors   Not Very
1097 Female       Bachelors     Fairly
1098 Female Graduate School     Fairly
1099   Male     High School    Neither
1100 Female     High School       Very
1101   Male     High School     Fairly
1102 Female     High School    Neither
1103   Male    Less than HS    Neither
1104 Female  Junior College   Not Very
1105 Female Graduate School   Not Very
1106 Female       Bachelors    Neither
1107 Female  Junior College   Not Very
1108   Male     High School     Fairly
1109 Female  Junior College     Fairly
1110 Female     High School    Neither
1111 Female Graduate School Not At All
1112 Female     High School Not At All
1113 Female     High School     Fairly
1114   Male     High School     Fairly
1115   Male       Bachelors   Not Very
1116 Female       Bachelors     Fairly
1117 Female     High School Not At All
1118   Male    Less than HS       Very
1119   Male     High School Not At All
1120 Female     High School Not At All
1121 Female     High School    Neither
1122 Female Graduate School   Not Very
1123   Male     High School Not At All
1124   Male    Less than HS     Fairly
1125 Female     High School    Neither
1126   Male     High School Not At All
1127   Male     High School Not At All
1128   Male     High School    Neither
1129   Male     High School Not At All
1130   Male Graduate School     Fairly
1131 Female     High School Not At All
1132 Female       Bachelors     Fairly
1133 Female       Bachelors     Fairly
1134   Male     High School     Fairly
1135 Female    Less than HS    Neither
1136 Female     High School     Fairly
1137 Female  Junior College    Neither
1138 Female     High School    Neither
1139   Male    Less than HS   Not Very
1140 Female     High School    Neither
1141   Male       Bachelors Not At All
1142 Female  Junior College   Not Very
1143 Female    Less than HS   Not Very
1144 Female    Less than HS Not At All
1145 Female     High School     Fairly
1146 Female     High School Not At All
1147   Male    Less than HS    Neither
1148 Female     High School    Neither
1149   Male     High School     Fairly
1150   Male     High School    Neither
1151   Male    Less than HS   Not Very
1152   Male     High School Not At All
1153 Female    Less than HS   Not Very
1154 Female       Bachelors     Fairly
1155   Male    Less than HS   Not Very
1156 Female     High School Not At All
1157 Female    Less than HS Not At All
1158   Male     High School     Fairly
1159   Male     High School Not At All
1160 Female     High School   Not Very
1161   Male       Bachelors     Fairly
1162   Male       Bachelors     Fairly
1163   Male Graduate School     Fairly
1164 Female       Bachelors Not At All
1165 Female     High School   Not Very
1166   Male     High School   Not Very
1167   Male    Less than HS Not At All
1168   Male     High School    Neither
1169   Male    Less than HS   Not Very
1170   Male     High School Not At All
1171 Female     High School       Very
1172   Male  Junior College   Not Very
1173 Female     High School Not At All
1174   Male     High School Not At All
1175   Male     High School Not At All
1176 Female Graduate School Not At All
1177   Male     High School     Fairly
1178 Female    Less than HS Not At All
1179 Female    Less than HS    Neither
1180 Female     High School     Fairly
1181 Female    Less than HS Not At All
1182   Male  Junior College    Neither
1183 Female    Less than HS    Neither
1184   Male     High School   Not Very
1185 Female     High School    Neither
1186 Female     High School    Neither
1187 Female     High School Not At All
1188   Male     High School    Neither
1189 Female     High School Not At All
1190   Male  Junior College Not At All
1191 Female    Less than HS   Not Very
1192   Male     High School   Not Very
1193   Male  Junior College    Neither
1194   Male     High School       Very
1195   Male    Less than HS Not At All
1196   Male    Less than HS   Not Very
1197 Female    Less than HS   Not Very
1198   Male    Less than HS     Fairly
1199   Male       Bachelors     Fairly
1200   Male    Less than HS   Not Very
1201 Female  Junior College   Not Very
1202 Female     High School     Fairly
1203   Male     High School Not At All
1204 Female     High School     Fairly
1205   Male       Bachelors   Not Very
1206   Male     High School   Not Very
1207   Male     High School   Not Very
1208 Female     High School     Fairly
1209 Female     High School   Not Very
1210   Male    Less than HS     Fairly
1211   Male     High School     Fairly
1212 Female    Less than HS Not At All
1213 Female     High School   Not Very
1214 Female     High School     Fairly
1215 Female     High School    Neither
1216 Female     High School Not At All
1217 Female Graduate School   Not Very
1218 Female     High School     Fairly
1219   Male    Less than HS    Neither
1220 Female     High School Not At All
1221 Female       Bachelors Not At All
1222 Female    Less than HS Not At All
1223 Female       Bachelors   Not Very
1224 Female    Less than HS Not At All
1225   Male     High School   Not Very
1226 Female  Junior College Not At All
1227   Male       Bachelors   Not Very
1228 Female       Bachelors       Very
1229 Female     High School     Fairly
1230 Female Graduate School     Fairly
1231   Male     High School    Neither
1232   Male    Less than HS   Not Very
1233 Female     High School Not At All
1234 Female     High School Not At All
1235 Female     High School Not At All
1236 Female     High School Not At All
1237 Female       Bachelors    Neither
1238 Female     High School    Neither
1239 Female     High School Not At All
1240 Female    Less than HS Not At All
1241   Male     High School       Very
1242 Female     High School    Neither
1243 Female     High School    Neither
1244 Female       Bachelors Not At All
1245   Male    Less than HS   Not Very
1246   Male  Junior College     Fairly
1247 Female     High School     Fairly
1248 Female  Junior College     Fairly
1249 Female  Junior College Not At All
1250 Female  Junior College   Not Very
1251 Female     High School Not At All
1252   Male     High School   Not Very
1253 Female     High School     Fairly
1254   Male     High School Not At All
1255 Female Graduate School   Not Very
1256 Female  Junior College     Fairly
1257   Male  Junior College Not At All
1258 Female     High School Not At All
1259 Female     High School   Not Very
1260 Female    Less than HS    Neither
1261 Female     High School    Neither
1262   Male  Junior College     Fairly
1263 Female     High School    Neither
1264 Female     High School     Fairly
1265 Female     High School Not At All
1266   Male    Less than HS Not At All
1267   Male    Less than HS    Neither
1268 Female  Junior College Not At All
1269 Female       Bachelors     Fairly
1270 Female     High School Not At All
1271 Female    Less than HS Not At All
1272 Female     High School Not At All
1273 Female     High School    Neither
1274 Female     High School Not At All
1275 Female    Less than HS     Fairly
1276   Male     High School   Not Very
1277   Male       Bachelors     Fairly
1278   Male Graduate School Not At All
1279   Male     High School   Not Very
1280 Female     High School    Neither
1281 Female       Bachelors   Not Very
1282   Male     High School Not At All
1283   Male  Junior College       Very
1284   Male    Less than HS    Neither
1285 Female     High School    Neither
1286 Female    Less than HS    Neither
1287 Female     High School Not At All
1288 Female     High School Not At All
1289 Female  Junior College   Not Very
1290   Male     High School Not At All
1291   Male       Bachelors Not At All
1292   Male    Less than HS Not At All
1293 Female     High School     Fairly
1294 Female       Bachelors    Neither
1295   Male  Junior College    Neither
1296 Female     High School   Not Very
1297   Male    Less than HS Not At All
1298 Female     High School    Neither
1299 Female Graduate School   Not Very
1300 Female     High School Not At All
1301 Female    Less than HS     Fairly
1302   Male    Less than HS Not At All
1303 Female     High School Not At All
1304   Male    Less than HS Not At All
1305   Male    Less than HS   Not Very
1306 Female  Junior College    Neither
1307   Male    Less than HS   Not Very
1308 Female     High School    Neither
1309   Male     High School Not At All
1310 Female     High School    Neither
1311 Female     High School    Neither
1312   Male     High School   Not Very
1313 Female     High School     Fairly
1314   Male    Less than HS   Not Very
1315   Male     High School       Very
1316   Male  Junior College   Not Very
1317   Male     High School Not At All
1318   Male     High School     Fairly
1319 Female     High School     Fairly
1320   Male     High School    Neither
1321   Male Graduate School       Very
1322 Female       Bachelors   Not Very
1323 Female     High School    Neither
1324 Female     High School Not At All
1325 Female     High School Not At All
1326 Female    Less than HS    Neither
1327   Male     High School     Fairly
1328   Male     High School       Very
1329 Female     High School Not At All
1330 Female     High School Not At All
1331 Female    Less than HS     Fairly
1332 Female       Bachelors     Fairly
1333 Female       Bachelors Not At All
1334   Male       Bachelors   Not Very
1335 Female     High School    Neither
1336   Male Graduate School       Very
1337   Male     High School Not At All
1338 Female       Bachelors    Neither
1339 Female Graduate School     Fairly
1340 Female       Bachelors Not At All
1341 Female       Bachelors     Fairly
1342 Female  Junior College Not At All
1343 Female Graduate School     Fairly
1344   Male    Less than HS   Not Very
1345   Male    Less than HS     Fairly
1346   Male     High School   Not Very
1347   Male  Junior College Not At All
1348   Male     High School     Fairly
1349 Female    Less than HS     Fairly
1350 Female     High School Not At All
1351 Female    Less than HS     Fairly
1352   Male       Bachelors   Not Very
1353 Female     High School   Not Very
1354 Female  Junior College     Fairly
1355   Male     High School     Fairly
1356   Male    Less than HS   Not Very
1357 Female       Bachelors     Fairly
1358   Male     High School Not At All
1359 Female     High School Not At All
1360 Female     High School     Fairly
1361   Male       Bachelors   Not Very
1362 Female     High School Not At All
1363 Female     High School Not At All
1364   Male     High School   Not Very
```
]]
---
class: split-50
count: false

```r
gss_sum1 <- gss %>%  
* group_by(GRNSOL)
 
gss_sum1
```
]]
.column[.content[

```
# A tibble: 1,364 x 3
# Groups:   GRNSOL [5]
   SEX    DEGREE         GRNSOL    
   <fct>  <fct>          <fct>     
 1 Male   Bachelors      Fairly    
 2 Female Bachelors      Fairly    
 3 Female Less than HS   Not At All
 4 Female Junior College Neither   
 5 Female High School    Very      
 6 Female Junior College Not At All
 7 Male   High School    Fairly    
 8 Male   High School    Not At All
 9 Female Less than HS   Not At All
10 Female Junior College Not At All
# ... with 1,354 more rows
```
]]
---
class: split-50
count: false

```r
gss_sum1 <- gss %>%  
  group_by(GRNSOL) %>%  
* summarize(freq=n())
 
gss_sum1
```
]]
.column[.content[

```
# A tibble: 5 x 2
  GRNSOL      freq
  <fct>      <int>
1 Not At All   322
2 Not Very     273
3 Neither      286
4 Fairly       407
5 Very          76
```
]]

---

# Bar Charts from Summaries
- Constructed with `geom_bar()`, but using `stat="identity"`.
  - Forces to use actual values rather than "counting" as it does by default.

---

```r
*b <- ggplot(data=gss_sum1, mapping=aes(x=GRNSOL,y=freq))
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar1a_user_1_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss_sum1, mapping=aes(x=GRNSOL,y=freq)) +  
* geom_bar(stat="identity",color="gray30",fill="gray30",alpha=0.75)
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar1a_user_2_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss_sum1, mapping=aes(x=GRNSOL,y=freq)) +  
  geom_bar(stat="identity",color="gray30",fill="gray30",alpha=0.75) +  
* scale_x_discrete(name="Willingness to Pay") +
* scale_y_continuous(name="Frequency of Respondents",
*                    expand=expansion(mult=c(0,0.05))) +
* theme_bw() +
* theme(panel.grid.major.x=element_blank(),
*       panel.grid.minor=element_blank())
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar1a_user_3_output-1.png" width="100%" />
]]

---

# Summarizing Data
### Bivariate Counts

---

```r
*gss_sum2 <- gss
 
gss_sum2
```
]]
.column[.content[

```r
gss_sum2 <- gss %>%  
* group_by(SEX,GRNSOL)
 
gss_sum2
```
]]
.column[.content[

```
# A tibble: 1,364 x 3
# Groups:   SEX, GRNSOL [10]
   SEX    DEGREE         GRNSOL    
   <fct>  <fct>          <fct>     
 1 Male   Bachelors      Fairly    
 2 Female Bachelors      Fairly    
 3 Female Less than HS   Not At All
 4 Female Junior College Neither   
 5 Female High School    Very      
 6 Female Junior College Not At All
 7 Male   High School    Fairly    
 8 Male   High School    Not At All
 9 Female Less than HS   Not At All
10 Female Junior College Not At All
# ... with 1,354 more rows
```
]]
---
class: split-50
count: false

```r
gss_sum2 <- gss %>%  
  group_by(SEX,GRNSOL) %>%  
* summarize(freq=n())
 
gss_sum2
```
]]
.column[.content[

```
# A tibble: 10 x 3
# Groups:   SEX [2]
   SEX    GRNSOL      freq
   <fct>  <fct>      <int>
 1 Female Not At All   183
 2 Female Not Very     145
 3 Female Neither      165
 4 Female Fairly       242
 5 Female Very          41
 6 Male   Not At All   139
 7 Male   Not Very     128
 8 Male   Neither      121
 9 Male   Fairly       165
10 Male   Very          35
```
]]
---
class: split-50
count: false

```r
gss_sum2 <- gss %>%  
  group_by(SEX,GRNSOL) %>%  
  summarize(freq=n()) %>%  
* ungroup()
 
gss_sum2
```
]]
.column[.content[

```
# A tibble: 10 x 3
   SEX    GRNSOL      freq
   <fct>  <fct>      <int>
 1 Female Not At All   183
 2 Female Not Very     145
 3 Female Neither      165
 4 Female Fairly       242
 5 Female Very          41
 6 Male   Not At All   139
 7 Male   Not Very     128
 8 Male   Neither      121
 9 Male   Fairly       165
10 Male   Very          35
```
]]

---

```r
*b <- ggplot(data=gss_sum2,
*           mapping=aes(x=SEX,y=freq,fill=GRNSOL))
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar2a_user_1_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss_sum2,  
            mapping=aes(x=SEX,y=freq,fill=GRNSOL)) +  
* geom_bar(stat="identity",color="gray30",alpha=0.75)
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar2a_user_2_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss_sum2,  
            mapping=aes(x=SEX,y=freq,fill=GRNSOL)) +  
  geom_bar(stat="identity",color="gray30",alpha=0.75) +  
* scale_x_discrete(name="Sex of Respondent") +
* scale_y_continuous(name="Frequency of Respondents",
*                    expand=expansion(mult=c(0,0.05))) +
* scale_fill_manual(name="Willingness?",values=clrs) +
* theme_bw() +
* theme(panel.grid.major.x=element_blank(),
*       panel.grid.minor=element_blank())
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar2a_user_3_output-1.png" width="100%" />
]]

---

# Advantage to Summaries?

- Sometimes this is the only data you have.

&nbsp;

--
- You can easily turn frequencies into percentages.

---

```r
*gss_sum3 <- gss %>%
* group_by(SEX,GRNSOL) %>%
* summarize(freq=n())
 
gss_sum3
```
]]
.column[.content[

```r
gss_sum3 <- gss %>%  
  group_by(SEX,GRNSOL) %>%  
  summarize(freq=n()) %>%  
* mutate(perc=freq/sum(freq)*100)
 
gss_sum3
```
]]
.column[.content[

```
# A tibble: 10 x 4
# Groups:   SEX [2]
   SEX    GRNSOL      freq  perc
   <fct>  <fct>      <int> <dbl>
 1 Female Not At All   183 23.6 
 2 Female Not Very     145 18.7 
 3 Female Neither      165 21.3 
 4 Female Fairly       242 31.2 
 5 Female Very          41  5.28
 6 Male   Not At All   139 23.6 
 7 Male   Not Very     128 21.8 
 8 Male   Neither      121 20.6 
 9 Male   Fairly       165 28.1 
10 Male   Very          35  5.95
```
]]
---
class: split-50
count: false

```r
gss_sum3 <- gss %>%  
  group_by(SEX,GRNSOL) %>%  
  summarize(freq=n()) %>%  
  mutate(perc=freq/sum(freq)*100) %>%  
* ungroup()
 
gss_sum3
```
]]
.column[.content[

```
# A tibble: 10 x 4
   SEX    GRNSOL      freq  perc
   <fct>  <fct>      <int> <dbl>
 1 Female Not At All   183 23.6 
 2 Female Not Very     145 18.7 
 3 Female Neither      165 21.3 
 4 Female Fairly       242 31.2 
 5 Female Very          41  5.28
 6 Male   Not At All   139 23.6 
 7 Male   Not Very     128 21.8 
 8 Male   Neither      121 20.6 
 9 Male   Fairly       165 28.1 
10 Male   Very          35  5.95
```
]]

---

# Stacked Percentages Plots

---

```r
*b <- ggplot(data=gss_sum3,
*           mapping=aes(x=SEX,y=perc,fill=GRNSOL))
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar2b_user_1_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss_sum3,  
            mapping=aes(x=SEX,y=perc,fill=GRNSOL)) +  
* geom_bar(stat="identity",color="gray30",alpha=0.75)
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar2b_user_2_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss_sum3,  
            mapping=aes(x=SEX,y=perc,fill=GRNSOL)) +  
  geom_bar(stat="identity",color="gray30",alpha=0.75) +  
* scale_x_discrete(name="Sex of Respondent") +
* scale_y_continuous(name="Percentage of Respondents",
*                    expand=expansion(mult=0),
*                    labels=scales::label_percent(scale=1,accuracy=1))
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar2b_user_3_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss_sum3,  
            mapping=aes(x=SEX,y=perc,fill=GRNSOL)) +  
  geom_bar(stat="identity",color="gray30",alpha=0.75) +  
  scale_x_discrete(name="Sex of Respondent") +  
  scale_y_continuous(name="Percentage of Respondents",  
                     expand=expansion(mult=0),  
                     labels=scales::label_percent(scale=1,accuracy=1)) +  
* scale_fill_manual(name="Willingness?",values=clrs) +
* theme_bw() +
* theme(panel.grid.major.x=element_blank(),
*       panel.grid.minor=element_blank())
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar2b_user_4_output-1.png" width="100%" />
]]

---

```r
gss_sum3 <- gss %>%  
  group_by(DEGREE,GRNSOL) %>%  
  summarize(freq=n()) %>%  
  mutate(perc=freq/sum(freq)*100) %>%  
  ungroup()  
 
gss_sum3
```
]]
.column[.content[

```
# A tibble: 25 x 4
   DEGREE       GRNSOL      freq  perc
   <fct>        <fct>      <int> <dbl>
 1 Less than HS Not At All    53 28.0 
 2 Less than HS Not Very      32 16.9 
 3 Less than HS Neither       44 23.3 
 4 Less than HS Fairly        50 26.5 
 5 Less than HS Very          10  5.29
 6 High School  Not At All   196 29.4 
 7 High School  Not Very     125 18.7 
 8 High School  Neither      142 21.3 
 9 High School  Fairly       172 25.8 
10 High School  Very          32  4.80
# ... with 15 more rows
```
]]

---

```r
*b <- ggplot(data=gss_sum3,
*           mapping=aes(x=DEGREE,y=perc,fill=GRNSOL)) +
* geom_bar(stat="identity",color="gray30",alpha=0.75)
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar3c_user_1_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss_sum3,  
            mapping=aes(x=DEGREE,y=perc,fill=GRNSOL)) +  
  geom_bar(stat="identity",color="gray30",alpha=0.75) +  
* scale_x_discrete(name="Highest Degree Completed") +
* scale_y_continuous(name="Percentage of Respondents",
*                    expand=expansion(mult=0),
*                    labels=scales::label_percent(scale=1,accuracy=1)) +
* scale_fill_manual(name="Willingness?",values=clrs) +
* theme_bw() +
* theme(panel.grid.major.x=element_blank(),
*       panel.grid.minor=element_blank())
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar3c_user_2_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
b <- ggplot(data=gss_sum3,  
            mapping=aes(x=DEGREE,y=perc,fill=GRNSOL)) +  
  geom_bar(stat="identity",color="gray30",alpha=0.75) +  
  scale_x_discrete(name="Highest Degree Completed") +  
  scale_y_continuous(name="Percentage of Respondents",  
                     expand=expansion(mult=0),  
                     labels=scales::label_percent(scale=1,accuracy=1)) +  
  scale_fill_manual(name="Willingness?",values=clrs) +  
  theme_bw() +  
  theme(panel.grid.major.x=element_blank(),  
        panel.grid.minor=element_blank()) +  
* coord_flip()
 
b
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/bar3c_user_3_output-1.png" width="100%" />
]]

---

# A Tile Plot

---

```r
*t <- ggplot(data=gss_sum3,mapping=aes(x=GRNSOL,y=DEGREE,fill=perc))
 
t
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/tile1_auto_1_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
t <- ggplot(data=gss_sum3,mapping=aes(x=GRNSOL,y=DEGREE,fill=perc)) +  
* geom_tile()
 
t
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/tile1_auto_2_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
t <- ggplot(data=gss_sum3,mapping=aes(x=GRNSOL,y=DEGREE,fill=perc)) +  
  geom_tile() +  
* scale_fill_gradient2(low="aquamarine",high="aquamarine4")
 
t
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/tile1_auto_3_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
t <- ggplot(data=gss_sum3,mapping=aes(x=GRNSOL,y=DEGREE,fill=perc)) +  
  geom_tile() +  
  scale_fill_gradient2(low="aquamarine",high="aquamarine4") +  
* geom_text(aes(label=paste0(round(perc,0),"%")))
 
t
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/tile1_auto_4_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
t <- ggplot(data=gss_sum3,mapping=aes(x=GRNSOL,y=DEGREE,fill=perc)) +  
  geom_tile() +  
  scale_fill_gradient2(low="aquamarine",high="aquamarine4") +  
  geom_text(aes(label=paste0(round(perc,0),"%"))) +  
  scale_y_discrete(name=NULL,expand=expansion(mult=0)) +  
* scale_x_discrete(name=NULL,expand=expansion(mult=0))
 
t
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/tile1_auto_6_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
t <- ggplot(data=gss_sum3,mapping=aes(x=GRNSOL,y=DEGREE,fill=perc)) +  
  geom_tile() +  
  scale_fill_gradient2(low="aquamarine",high="aquamarine4") +  
  geom_text(aes(label=paste0(round(perc,0),"%"))) +  
  scale_y_discrete(name=NULL,expand=expansion(mult=0)) +  
  scale_x_discrete(name=NULL,expand=expansion(mult=0)) +  
* theme_minimal()
 
t
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/tile1_auto_7_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
t <- ggplot(data=gss_sum3,mapping=aes(x=GRNSOL,y=DEGREE,fill=perc)) +  
  geom_tile() +  
  scale_fill_gradient2(low="aquamarine",high="aquamarine4") +  
  geom_text(aes(label=paste0(round(perc,0),"%"))) +  
  scale_y_discrete(name=NULL,expand=expansion(mult=0)) +  
  scale_x_discrete(name=NULL,expand=expansion(mult=0)) +  
  theme_minimal() +  
* theme(legend.position="none",
*       aspect.ratio=1)
 
t
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/tile1_auto_8_output-1.png" width="100%" />
]]
---
class: split-50
count: false

```r
t <- ggplot(data=gss_sum3,mapping=aes(x=GRNSOL,y=DEGREE,fill=perc)) +  
  geom_tile() +  
  scale_fill_gradient2(low="aquamarine",high="aquamarine4") +  
  geom_text(aes(label=paste0(round(perc,0),"%"))) +  
  scale_y_discrete(name=NULL,expand=expansion(mult=0)) +  
  scale_x_discrete(name=NULL,expand=expansion(mult=0)) +  
  theme_minimal() +  
  theme(legend.position="none",  
        aspect.ratio=1) +  
* labs(title="Willingness to Change Standard of Living",
*      subtitle="by highest educational degree")
 
t
```
]]
.column[.content[
<img src="Lecture_EnviroProtect_files/figure-html/tile1_auto_9_output-1.png" width="100%" />
]]

---

# Next Time

<font size="7">We will examine graphs from summary statistics, including measures of uncertainty.</font>