Use the following data to produce 1 table of summary information and 2-3 graphs.

Notes on the data: the total, professional, and computer_all job groups are available for all four years of data. Focus on these if you want to produce graphs of jobs over time. The individual occupations change from one year to the next, so you will not be able to graph them over time (with the exception of computer programmers). You may, however, filter one year of data and make a bar or point plot for each occupation in that year.

The All variable is measured as total jobs in that category, while Women, Black, Asian, and Latino are the percent of workers who identify with each group. You cannot put All on the same plot as one of these variables, since they are measured in different units.

The goal of the assignment is not only to practice making plots: your task is to present the data in a clear and meaningful way. Points will be deducted, for example, from plots that are hard to read or understand. You are also encouraged to think about how to use colors, labels, and themes effectively. Graphs with multiple groups must have a legend.

Although you will need to filter the data, it does not need to be cleaned up too much in order to be graphed. Don’t overthink it!

#setwd("~/Binghamton/harp325")
data <- read.csv("occupation_gender_race.csv", stringsAsFactors = F, fileEncoding="UTF-8-BOM")
Warning in file(file, "rt", encoding = fileEncoding) :
  cannot open file 'occupation_gender_race.csv': No such file or directory
Error in file(file, "rt", encoding = fileEncoding) : 
  cannot open the connection

As this graph shows, there has been various changes in diversity in computer science and mathematics related careers. Out of the three racial groups, the asian demographic group have seen the most growth in representation. The asian group is also significantly more represented than the black group and Latino group. In 2005, there was a 7% difference between the asian group and the black and Latino group. This gap has only widened over time. The percentage of Latino and black people has increased from 2005. However this growth pales in comparison to the growth that the Asian demographic group has. The percentage of women in the field is the only observed group that has decreased over time. This is alarming because the gender diversity was already poor and it is only decreasing over the years.

This summary table captures the average, minimum, and maximum percentages of women of different races in the computer science field.

The ggplot visualizes the information in a bar graph.

LS0tDQp0aXRsZTogIkhhcnAgMzI1IE1pZHRlcm0iDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpVc2UgdGhlIGZvbGxvd2luZyBkYXRhIHRvIHByb2R1Y2UgMSB0YWJsZSBvZiBzdW1tYXJ5IGluZm9ybWF0aW9uIGFuZCAyLTMgZ3JhcGhzLiANCg0KTm90ZXMgb24gdGhlIGRhdGE6IHRoZSB0b3RhbCwgcHJvZmVzc2lvbmFsLCBhbmQgY29tcHV0ZXJfYWxsIGpvYiBncm91cHMgYXJlIGF2YWlsYWJsZSBmb3IgYWxsIGZvdXIgeWVhcnMgb2YgZGF0YS4gRm9jdXMgb24gdGhlc2UgaWYgeW91IHdhbnQgdG8gcHJvZHVjZSBncmFwaHMgb2Ygam9icyBvdmVyIHRpbWUuIFRoZSBpbmRpdmlkdWFsIG9jY3VwYXRpb25zIGNoYW5nZSBmcm9tIG9uZSB5ZWFyIHRvIHRoZSBuZXh0LCBzbyB5b3Ugd2lsbCBub3QgYmUgYWJsZSB0byBncmFwaCB0aGVtIG92ZXIgdGltZSAod2l0aCB0aGUgZXhjZXB0aW9uIG9mIGNvbXB1dGVyIHByb2dyYW1tZXJzKS4gWW91IG1heSwgaG93ZXZlciwgZmlsdGVyIG9uZSB5ZWFyIG9mIGRhdGEgYW5kIG1ha2UgYSBiYXIgb3IgcG9pbnQgcGxvdCBmb3IgZWFjaCBvY2N1cGF0aW9uIGluIHRoYXQgeWVhci4gDQoNClRoZSBBbGwgdmFyaWFibGUgaXMgbWVhc3VyZWQgYXMgdG90YWwgam9icyBpbiB0aGF0IGNhdGVnb3J5LCB3aGlsZSBXb21lbiwgQmxhY2ssIEFzaWFuLCBhbmQgTGF0aW5vIGFyZSB0aGUgcGVyY2VudCBvZiB3b3JrZXJzIHdobyBpZGVudGlmeSB3aXRoIGVhY2ggZ3JvdXAuIFlvdSBjYW5ub3QgcHV0IEFsbCBvbiB0aGUgc2FtZSBwbG90IGFzIG9uZSBvZiB0aGVzZSB2YXJpYWJsZXMsIHNpbmNlIHRoZXkgYXJlIG1lYXN1cmVkIGluIGRpZmZlcmVudCB1bml0cy4gDQoNClRoZSBnb2FsIG9mIHRoZSBhc3NpZ25tZW50IGlzIG5vdCBvbmx5IHRvIHByYWN0aWNlIG1ha2luZyBwbG90czogeW91ciB0YXNrIGlzIHRvIHByZXNlbnQgdGhlIGRhdGEgaW4gYSBjbGVhciBhbmQgbWVhbmluZ2Z1bCB3YXkuIFBvaW50cyB3aWxsIGJlIGRlZHVjdGVkLCBmb3IgZXhhbXBsZSwgZnJvbSBwbG90cyB0aGF0IGFyZSBoYXJkIHRvIHJlYWQgb3IgdW5kZXJzdGFuZC4gWW91IGFyZSBhbHNvIGVuY291cmFnZWQgdG8gdGhpbmsgYWJvdXQgaG93IHRvIHVzZSBjb2xvcnMsIGxhYmVscywgYW5kIHRoZW1lcyBlZmZlY3RpdmVseS4gR3JhcGhzIHdpdGggbXVsdGlwbGUgZ3JvdXBzIG11c3QgaGF2ZSBhIGxlZ2VuZC4gDQoNCkFsdGhvdWdoIHlvdSB3aWxsIG5lZWQgdG8gZmlsdGVyIHRoZSBkYXRhLCBpdCBkb2VzIG5vdCBuZWVkIHRvIGJlIGNsZWFuZWQgdXAgdG9vIG11Y2ggaW4gb3JkZXIgdG8gYmUgZ3JhcGhlZC4gRG9uJ3Qgb3ZlcnRoaW5rIGl0IQ0KDQpgYGB7cn0NCiNzZXR3ZCgifi9CaW5naGFtdG9uL2hhcnAzMjUiKQ0KZGF0YSA8LSByZWFkLmNzdigib2NjdXBhdGlvbl9nZW5kZXJfcmFjZS5jc3YiLCBzdHJpbmdzQXNGYWN0b3JzID0gRiwgZmlsZUVuY29kaW5nPSJVVEYtOC1CT00iKQ0KDQpsaWJyYXJ5KGRwbHlyKQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeSh0aWR5cikgI2luc3RhbGxpbmcgdGlkeXIgc28gSSBjYW4gdXNlIHRoZSBwaXZvdF9sb25nZXIoKSBmdW5jdGlvbg0KbGlicmFyeShnZ3RoZW1lcykgI2luc3RhbGxpbmcgZ2d0aGVtZXMgc28gdGhhdCBJIGNhbiB1c2UgdGhlIG1pbmltYWwgdGhlbWUgZm9yIG15IGxpbmUgZ3JhcGgNCmBgYA0KYGBge3J9DQpzdHIoZGF0YSkgI2NoZWNraW5nIHR5cGUgb2YgZGF0YQ0KYGBgDQpgYGB7cn0NCmNvbXB1dGVyX2RhdGEgPC0gZGF0YSAlPiUgZmlsdGVyKGpvYl90eXBlPT0iY29tcHV0ZXJfYWxsIikgDQpnZ3Bsb3QoY29tcHV0ZXJfZGF0YSkrDQogIGdlb21fbGluZShhZXMoeCA9IHllYXIsIHkgPSBXb21lbiwgY29sb3IgPSAiV29tZW4iKSkrDQogIGdlb21fbGluZShhZXMoeCA9IHllYXIsIHkgPSBCbGFjaywgY29sb3IgPSAiQmxhY2siKSkrDQogIGdlb21fbGluZShhZXMoeCA9IHllYXIsIHkgPSBBc2lhbiwgY29sb3IgPSAiQXNpYW4iKSkrDQogIGdlb21fbGluZShhZXMoeCA9IHllYXIsIHkgPSBMYXRpbm8sIGNvbG9yID0gIkxhdGlubyIpKSsNCiAgbGFicyh5ID0gIlBlcmNlbnQgb2YgdGhlIHdvcmtlcnMiLCB4ID0gIlllYXIiLCB0aXRsZSA9ICJWYXJpb3VzIERlbW9ncmFwaGljcyBpbiBDb21wdXRlciBTY2llbmNlIGFuZCBNYXRoZW1hdGljcyByZWxhdGVkIGNhcmVlcnMgZnJvbSAyMDA1IHRvIDIwMjAiLCBjb2xvciA9ICJEZW1vZ3JhcGhpYyBncm91cCIpKw0KICB0aGVtZV9taW5pbWFsKCkNCiAgDQpgYGANCkFzIHRoaXMgZ3JhcGggc2hvd3MsIHRoZXJlIGhhcyBiZWVuIHZhcmlvdXMgY2hhbmdlcyBpbiBkaXZlcnNpdHkgaW4gY29tcHV0ZXIgc2NpZW5jZSBhbmQgbWF0aGVtYXRpY3MgcmVsYXRlZCBjYXJlZXJzLiBPdXQgb2YgdGhlIHRocmVlIHJhY2lhbCBncm91cHMsIHRoZSBhc2lhbiBkZW1vZ3JhcGhpYyBncm91cCBoYXZlIHNlZW4gdGhlIG1vc3QgZ3Jvd3RoIGluIHJlcHJlc2VudGF0aW9uLiBUaGUgYXNpYW4gZ3JvdXAgaXMgYWxzbyBzaWduaWZpY2FudGx5IG1vcmUgcmVwcmVzZW50ZWQgdGhhbiB0aGUgYmxhY2sgZ3JvdXAgYW5kIExhdGlubyBncm91cC4gSW4gMjAwNSwgdGhlcmUgd2FzIGEgNyUgZGlmZmVyZW5jZSBiZXR3ZWVuIHRoZSBhc2lhbiBncm91cCBhbmQgdGhlIGJsYWNrIGFuZCBMYXRpbm8gZ3JvdXAuIFRoaXMgZ2FwIGhhcyBvbmx5IHdpZGVuZWQgb3ZlciB0aW1lLiBUaGUgcGVyY2VudGFnZSBvZiBMYXRpbm8gYW5kIGJsYWNrIHBlb3BsZSBoYXMgaW5jcmVhc2VkIGZyb20gMjAwNS4gSG93ZXZlciB0aGlzIGdyb3d0aCBwYWxlcyBpbiBjb21wYXJpc29uIHRvIHRoZSBncm93dGggdGhhdCB0aGUgQXNpYW4gZGVtb2dyYXBoaWMgZ3JvdXAgaGFzLg0KVGhlIHBlcmNlbnRhZ2Ugb2Ygd29tZW4gaW4gdGhlIGZpZWxkIGlzIHRoZSBvbmx5IG9ic2VydmVkIGdyb3VwIHRoYXQgaGFzIGRlY3JlYXNlZCBvdmVyIHRpbWUuIFRoaXMgaXMgYWxhcm1pbmcgYmVjYXVzZSB0aGUgZ2VuZGVyIGRpdmVyc2l0eSB3YXMgYWxyZWFkeSBwb29yIGFuZCBpdCBpcyBvbmx5IGRlY3JlYXNpbmcgb3ZlciB0aGUgeWVhcnMuIA0KYGBge3J9DQpzdW1tYXJ5X2RhdGE8LWRhdGEgJT4lIA0KICBncm91cF9ieSh5ZWFyKSAlPiUgDQogIGZpbHRlcihqb2JfdHlwZT09ImNvbXB1dGVyIikgJT4lIA0KICBtdXRhdGUoIlBPQyI9QmxhY2srQXNpYW4rTGF0aW5vKSAlPiUgDQogIHN1bW1hcmlzZShhdmdfUE9DX3BlcmNlbnQ9bWVhbihQT0MsbmEucm09VCksDQogICAgICAgICAgICBtaW5fUE9DX3BlcmNlbnQ9bWluKFBPQyxuYS5ybT1UKSwNCiAgICAgICAgICAgIG1heF9QT0NfcGVyY2VudD1tYXgoUE9DLG5hLnJtPVQpLA0KICAgICAgICAgICAgYXZnX3dvbWVuX3BlcmNlbnQ9bWVhbihXb21lbixuYS5ybT1UKSwNCiAgICAgICAgICAgIG1pbl93b21lbl9wZXJjZW50PW1pbihXb21lbixuYS5ybT1UKSwNCiAgICAgICAgICAgIG1heF93b21lbl9wZXJjZW50PW1heChXb21lbixuYS5ybT1UKSwNCiAgICAgICAgICAgIGF2Z19CbGFja19wZXJjZW50PW1lYW4oQmxhY2ssbmEucm09VCksDQogICAgICAgICAgICBtaW5fQmxhY2tfcGVyY2VudD1taW4oQmxhY2ssbmEucm09VCksDQogICAgICAgICAgICBtYXhfQmxhY2tfcGVyY2VudD1tYXgoQmxhY2ssbmEucm09VCksDQogICAgICAgICAgICBhdmdfQXNpYW5fcGVyY2VudD1tZWFuKEFzaWFuLG5hLnJtPVQpLA0KICAgICAgICAgICAgbWluX0FzaWFuX3BlcmNlbnQ9bWluKEFzaWFuLG5hLnJtPVQpLA0KICAgICAgICAgICAgbWF4X0FzaWFuX3BlcmNlbnQ9bWF4KEFzaWFuLG5hLnJtPVQpLA0KICAgICAgICAgICAgYXZnX0xhdGlub19wZXJjZW50PW1lYW4oTGF0aW5vLG5hLnJtPVQpLA0KICAgICAgICAgICAgbWluX0xhdGlub19wZXJjZW50PW1pbihMYXRpbm8sbmEucm09VCksDQogICAgICAgICAgICBtYXhfTGF0aW5vX3BlcmNlbnQ9bWF4KExhdGlubyxuYS5ybT1UKSkNCg0KYGBgDQpUaGlzIHN1bW1hcnkgdGFibGUgY2FwdHVyZXMgdGhlIGF2ZXJhZ2UsIG1pbmltdW0sIGFuZCBtYXhpbXVtIHBlcmNlbnRhZ2VzIG9mIHdvbWVuIG9mIGRpZmZlcmVudCByYWNlcyBpbiB0aGUgY29tcHV0ZXIgc2NpZW5jZSBmaWVsZC4gDQpgYGB7cn0NCmJhcl9kYXRhPC1kYXRhICU+JSBmaWx0ZXIoam9iX3R5cGU9PSJjb21wdXRlcl9hbGwiKSAlPiUgc2VsZWN0KC1jKGpvYl90eXBlLGRlc2NyaXB0aW9uKSkNCmJhcl9kYXRhJFdvbWVuPC1iYXJfZGF0YSRXb21lbipiYXJfZGF0YSRBbGwvMTAwDQpiYXJfZGF0YSRCbGFjazwtYmFyX2RhdGEkQmxhY2sqYmFyX2RhdGEkQWxsLzEwMA0KYmFyX2RhdGEkTGF0aW5vPC1iYXJfZGF0YSRMYXRpbm8qYmFyX2RhdGEkQWxsLzEwMA0KYmFyX2RhdGEkQXNpYW48LWJhcl9kYXRhJEFzaWFuKmJhcl9kYXRhJEFsbC8xMDANCg0KbG9uZ19kYXRhIDwtIGJhcl9kYXRhICU+JSANCiAgI1RoZSBjb2x1bW4gdGl0bGVzIGJlY29tZSB0aGUgY2F0ZWdvcmllcyBpbiBhIG5ldyBjb2x1bW4gYWZ0ZXIgdGhlIHJlc2hhcGluZw0KICAjSSdtIG5hbWluZyB0aGlzIG5ldyBjb2x1bW4gR2VuZGVyDQogICNUaGUgbnVtYmVyIG9mIHN0dWRlbnRzIGFyZSBwdXQgaW4gYSBuZXcgdmFsdWVzIGNvbHVtbiwgd2hpY2ggSSdtIGNhbGxpbmcgTWFqb3JzDQogIHBpdm90X2xvbmdlcigteWVhciwgbmFtZXNfdG8gPSAiRGVtb2dyYXBoaWMiLCB2YWx1ZXNfdG8gPSAiQ2FyZWVycyIpDQoNCmdncGxvdChsb25nX2RhdGEsIGFlcyh4ID0gRGVtb2dyYXBoaWMsIHkgPSBDYXJlZXJzLCBncm91cCA9IERlbW9ncmFwaGljLCBmaWxsID0gRGVtb2dyYXBoaWMpKSArDQogIGdlb21fYmFyKHN0YXQ9IklkZW50aXR5IikgKw0KICBsYWJzKHkgPSAiTnVtYmVyIG9mIHBlb3BsZSBlbXBsb3llZCIsIHggPSAiR3JvdXBzIiwgDQogICAgICAgdGl0bGUgPSAiRGVtb2dyYXBoaWMgR3JvdXBzIGluIENvbXB1dGVyIFNjaWVuY2UgYW5kIE1hdGhlbWF0aGljcyBPY2N1cGF0aW9ucywgMjAyMCIsDQogICAgICAgY29sb3IgPSAiR2VuZGVyIikrDQogIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcyA9IGMoInJlZCIsImdyZWVuIiwiYmx1ZSIsInllbGxvdyIsImJsYWNrIikpKw0KICB0aGVtZShsZWdlbmQucG9zaXRpb249Im5vbmUiKQ0KYGBgDQpUaGUgZ2dwbG90IHZpc3VhbGl6ZXMgdGhlIGluZm9ybWF0aW9uIGluIGEgYmFyIGdyYXBoLiANCg==