category of EDUC? (For full credit, please do this without looping through the EDUC
values. You can use "summarize" from dplyr, with group_by.) (5 points)
Fig: 1