CPI Homework - Solution

Before starting this project, please refer to the textbook section on making your plots pretty.

https://bookdown.org/profgarrett/course_r_eda/ggplot-2-making-the-plot-pretty.html

Then, walk through each section below. Each question matches to a section in the online guide.

Q1) Lines

Modify the ggplot below to add:

Q2) Labels

Modify the ggplot below to add:

Q3) Scales

Modify the ggplot below to add:

Q4) Combine!

Combine the options above to make what you think is an attractive chart. Publish your project, and put the URL below:

Published URL: http://rpubs….

LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQojIENQSSBIb21ld29yayAtIFNvbHV0aW9uDQoNCkJlZm9yZSBzdGFydGluZyB0aGlzIHByb2plY3QsIHBsZWFzZSByZWZlciB0byB0aGUgdGV4dGJvb2sgc2VjdGlvbiBvbiBtYWtpbmcgDQp5b3VyIHBsb3RzIHByZXR0eS4gDQoNCmh0dHBzOi8vYm9va2Rvd24ub3JnL3Byb2ZnYXJyZXR0L2NvdXJzZV9yX2VkYS9nZ3Bsb3QtMi1tYWtpbmctdGhlLXBsb3QtcHJldHR5Lmh0bWwNCg0KVGhlbiwgd2FsayB0aHJvdWdoIGVhY2ggc2VjdGlvbiBiZWxvdy4gRWFjaCBxdWVzdGlvbiBtYXRjaGVzIHRvIGEgc2VjdGlvbiBpbiB0aGUgb25saW5lIGd1aWRlLg0KDQoNCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpsaWJyYXJ5KGx1YnJpZGF0ZSkNCg0KDQojIExvYWQgZGF0YSBmcm9tIGNwaV9kYXRhMS5jc3YuDQojIFVzZSBjb2xfbmFtZXMgdG8gYWRkIHNlcmllc2lkLCB5ZWFyLCBtb250aF9hc190ZXh0LCBhbmQgcHJpY2UuDQp0X2NwaV9yYXcgPC0gcmVhZF9jc3YoImNwaV9kYXRhMS5jc3YiLA0KICAgICAgICAgICAgICAgICAgICAgIGNvbF9uYW1lcyA9IGMoInNlcmllc2lkIiwgInllYXIiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIm1vbnRoX2FzX3RleHQiLCAicHJpY2UiKSkNCg0KIyBMb2FkIGRhdGEgZnJvbSBjcGlfb3ZlcnZpZXdfYW5kX2NvZGVzLmNzdg0KIyBVc2UgdGhlIGNvbW1lbnQgb3B0aW9uIHRvIHNraXAgYWxsIGxpbmVzIHN0YXJ0aW5nIHdpdGggIw0KIyBBTHNvIHRha2UgYSBtaW51dGUgdG8gbWFrZSBhbGwgb2YgdGhlIGZpZWxkIG5hbWVzIGNsZWFuZXIsIHVzaW5nDQojIHNlcmllc2lkLCB0aXRsZSwgZGVzY3JpcHRpb24NCnRfY29kZXNfcmF3IDwtIHJlYWRfY3N2KCJjcGlfb3ZlcnZpZXdfYW5kX2NvZGVzLmNzdiIsDQogICAgICAgICAgICAgICAgICAgICAgICBjb21tZW50ID0gIiMiLA0KICAgICAgICAgICAgICAgICAgICAgICAgY29sX25hbWVzID0gYygic2VyaWVzaWQiLCAidGl0bGUiLCAiZGVzY3JpcHRpb24iKSkNCg0KDQojIEZpbmQgdGhlIHN0YXJ0aW5nIChiYXNlKSBwcmljZSBmb3IgZWFjaCBvZiBvdXIgaXRlbXMuDQp0X2NwaV9maXJzdCA8LSBmaWx0ZXIodF9jcGlfcmF3LCB5ZWFyID09IDIwMTIsIG1vbnRoX2FzX3RleHQgPT0gIkphbiIpICU+JQ0KICByZW5hbWUob3JpZ2luYWxfcHJpY2UgPSBwcmljZSkgJT4lDQogIHNlbGVjdChzZXJpZXNpZCwgb3JpZ2luYWxfcHJpY2UpDQoNCiMgSm9pbiB0b2dldGhlciB0aGUgZGF0YXNldHMgDQp0X2NwaSA8LSB0X2NwaV9yYXcgJT4lIA0KICBsZWZ0X2pvaW4odF9jb2Rlc19yYXcsIGJ5ID0gYygic2VyaWVzaWQiKSkgJT4lIA0KICBsZWZ0X2pvaW4odF9jcGlfZmlyc3QsIGJ5ID0gInNlcmllc2lkIikgJT4lDQogIG11dGF0ZShwcmljZV9hc19wZXJjZW50ID0gcHJpY2UgLyBvcmlnaW5hbF9wcmljZSkgJT4lIA0KICBtdXRhdGUoZGF0ZV9hc190ZXh0ID0gcGFzdGUobW9udGhfYXNfdGV4dCwgIjEsIiwgeWVhcikpICU+JSANCiAgbXV0YXRlKGQgPSBtZHkoZGF0ZV9hc190ZXh0KSkgJT4lIA0KICBzZWxlY3QodGl0bGUsIHByaWNlLCBwcmljZV9hc19wZXJjZW50LCBkKQ0KDQpwcmludCh0X2NwaSkNCg0KYGBgDQoNCg0KIyBRMSkgTGluZXMNCg0KTW9kaWZ5IHRoZSBnZ3Bsb3QgYmVsb3cgdG8gYWRkOg0KDQotIEEgdmVydGljYWwgbGluZSBhdCAyMDEyIA0KICAtIGhpbnQ6IHRoZSBheGlzIGlzIGEgZGF0ZSEgVXNlIHltZCgnMjAxMi0xLTEnKSBhcyB5b3VyIHZhbHVlLg0KLSBBIGhvcml6b250YWwgbGluZSBhdCAxMDAlDQotIEEgcmVjdGFuZ2xlIGZvciB0aGUgc3Bpa2UgaW4gMjAyMiAoY292ZXIgYWxsIGRvdHMgYWJvdmUgMTI1JSBpbiAyMDIyKQ0KDQoNCmBgYHtyIGVjaG89RkFMU0V9DQpnZ3Bsb3QoZGF0YSA9IHRfY3BpKSArDQogIGdlb21fcG9pbnQobWFwcGluZyA9IGFlcyh4ID0gZCwgeSA9IHByaWNlX2FzX3BlcmNlbnQsIGNvbG9yID0gdGl0bGUpKSArDQogIGdlb21fdmxpbmUoeGludGVyY2VwdCA9IHltZCgnMjAxMi0xLTEnKSkrDQogZ2VvbV9obGluZSh5aW50ZXJjZXB0ID0gMS4wMCkgKw0KICBnZW9tX3JlY3QoeG1pbiA9IHltZCgnMjAyMi0xLTEnKSwgeG1heCA9IHltZCgnMjAyMi0xMi0zMScpLCAgeW1pbiA9IDEuMjUsIHltYXggPSAxLjc1LCBhbHBoYSA9IDAuMDA1LCBmaWxsID0gJ2dyZWVuJykNCiAgDQoNCmBgYCANCg0KDQoNCg0KDQoNCg0KIyBRMikgTGFiZWxzDQoNCk1vZGlmeSB0aGUgZ2dwbG90IGJlbG93IHRvIGFkZDoNCg0KLSBnZW9tX2xhYmVsX3JlcGVsIHNob3dpbmcgdGhlIHRpdGxlDQotIHggYW5kIHkgbGFiZWwgYXhpcyBmb3IgJ1ByaWNlJScgYW5kICdEYXRlJw0KLSBVc2UgYndfdGhlbWUNCg0KYGBge3IgZWNobz1GQUxTRX0NCmxpYnJhcnkoZ2dyZXBlbCkNCg0KdF8yMDIyIDwtIGZpbHRlcih0X2NwaSwgeWVhcihkKSA9PSAyMDIyLCBtb250aChkKSA9PSAxKQ0KDQpnZ3Bsb3QoZGF0YSA9IHRfMjAyMikgKw0KICBnZW9tX3BvaW50KG1hcHBpbmcgPSBhZXMoeCA9IGQsIHkgPSBwcmljZV9hc19wZXJjZW50LCBjb2xvciA9IHRpdGxlKSkgKyANCiAgZ2VvbV9sYWJlbF9yZXBlbChtYXBwaW5nID0gYWVzKHk9IHByaWNlX2FzX3BlcmNlbnQsIHg9ZCwgbGFiZWwgPSB0aXRsZSkpKw0KICB0aGVtZV9idygpDQpgYGANCg0KDQoNCg0KIyBRMykgU2NhbGVzDQoNCk1vZGlmeSB0aGUgZ2dwbG90IGJlbG93IHRvIGFkZDoNCg0KLSBBIGNvbnRpbnVvdXMgeSBzY2FsZSwgdXNpbmcgbGFiZWxfcGVyY2VudCByb3VuZGVkIHRvIDEwDQotIEEgZGF0ZSB4IHNjYWxlLCB1c2luZyBkYXRlIGJyZWFrcyBvZiAyIG1vbnRocyANCiAgLSBOb3RlISBVc2UgZGF0ZSwgKm5vdCBkYXRldGltZSosIGFzIHRoZSBjb2x1bW4gZG9lc24ndCBoYXZlIGEgdGltZSBjb21wb25lbnQuDQoNCmBgYHtyIGVjaG89RkFMU0V9DQoNCnRfMjAyMiA8LSBmaWx0ZXIodF9jcGksIHllYXIoZCkgPT0gMjAyMikNCg0KZ2dwbG90KGRhdGEgPSB0XzIwMjIpICsNCiAgZ2VvbV9saW5lKG1hcHBpbmcgPSBhZXMoeCA9IGQsIHkgPSBwcmljZV9hc19wZXJjZW50LCBjb2xvciA9IHRpdGxlKSkgKw0KICBzY2FsZV95X2NvbnRpbnVvdXMobGFiZWxzID0gc2NhbGVzOjpsYWJlbF9wZXJjZW50KGFjY3VyYWN5ID0gMSkpICsNCiAgc2NhbGVfeF9kYXRlKCBicmVha3MgPSAiMiBtb250aHMiKQ0KICAgICAgICAgICAgICAgICAgICAgICAgDQoNCiAgDQpgYGANCg0KDQojIFE0KSBDb21iaW5lIQ0KDQpDb21iaW5lIHRoZSBvcHRpb25zIGFib3ZlIHRvIG1ha2Ugd2hhdCB5b3UgdGhpbmsgaXMgYW4gYXR0cmFjdGl2ZSBjaGFydC4NClB1Ymxpc2ggeW91ciBwcm9qZWN0LCBhbmQgcHV0IHRoZSBVUkwgYmVsb3c6DQoNCg0KUHVibGlzaGVkIFVSTDogICBodHRwOi8vcnB1YnMuLi4uDQoNCg0KYGBge3IgZWNobz1GQUxTRX0NCmdncGxvdChkYXRhID0gdF9jcGkpICsNCiAgZ2VvbV9wb2ludChtYXBwaW5nID0gYWVzKHggPSBkLCB5ID0gcHJpY2VfYXNfcGVyY2VudCwgY29sb3IgPSB0aXRsZSkpICsNCiAgZ2VvbV9saW5lKG1hcHBpbmcgPSBhZXMoeCA9IGQsIHkgPSBwcmljZV9hc19wZXJjZW50LCBjb2xvciA9IHRpdGxlKSkgKw0KICBnZW9tX3ZsaW5lKHhpbnRlcmNlcHQgPSB5bWQoJzIwMTctMS0xJykpKw0KIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDEuMDApICsNCiAgZ2VvbV9yZWN0KHhtaW4gPSB5bWQoJzIwMjItMS0xJyksIHhtYXggPSB5bWQoJzIwMjItMTItMzEnKSwgIHltaW4gPSAxLjI1LCB5bWF4ID0gMS43NSwgYWxwaGEgPSAwLjAwNSwgZmlsbCA9ICdncmVlbicpICsNCiAgIHNjYWxlX3lfY29udGludW91cyhsYWJlbHMgPSBzY2FsZXM6OmxhYmVsX3BlcmNlbnQoYWNjdXJhY3kgPSAxKSkrDQogIGxhYnMoeSA9ICJwcmljZV9hc19wZXJjZW50IiwNCiAgICAgICB4ID0gInllYXIiKQ0KDQpgYGA=