R Markdown Document Formatting

I have made the code for this document available for download
Simply click the “code” button at the top of the screen and download the RMD to save this file locally on your computer or view the chunk-specific formatting throughout.

For more information on R Markdown formatting, visit this site: https://rmarkdown.rstudio.com/lesson-1.html
Or download the R Markdown Cheat Sheet here: https://rmarkdown.rstudio.com/lesson-8.html

Headers

# Header 1
## Header 2
### Header 3
...  
###### Header 6

Text Formatting

*italics*

italics

**bold**

bold

`code box`

looks like a div container

superscript^2^/subscript~2~

superscript2/subscript2

~~strikethrough~~

strikethrough

Use <br> to force a line break (in html)
Or use double spaces at the end of the line to force one in word

apple
orange


Lists and Dividers

- unordered list
- item 2
  - item 2a (indent 1 tab)
  - item 2b
ordered list
  • unordered list
  • item 2
    • item 2a (indent 1 tab)
    • item 2b
1. ordered list
2. item 2
 - item 2a (indent 2 tabs)
 - item 2b
ordered list
  1. ordered list
  2. item 2
    • item 2a (indent 2 tabs)
    • item 2b
Three dashes in a row (---) create a line break like the one after this chunk.

Font Colors

Font colors can be changed in HTML, but word will ignore this formatting.

<span style="color: red;">This text will be red</span>

This text will be red


Basic Plots and Formatting

basic r plots are made with the formula plot()

car <- mtcars
plot(mpg ~ disp,
     data = mtcars,
     xlab = "Displacement (cu. in)",
     ylab = "Miles per Gallon",
     col = "hotpink")

By default plots will execute separately.

plot(mpg ~ disp,
     data = mtcars,
     xlab = "Displacement (cu. in)",
     ylab = "Miles per Gallon",
     col = "hotpink")

hist(mtcars$cyl,
     col = "green4",
     main = "Cylinder Count")

You can change this with par(mfrow)

The format of par(mfrow) is row, column, so this will print one on top of the other:

par(mfrow = c(2, 1))

plot(mpg ~ disp,
     data = mtcars,
     xlab = "Displacement (cu. in)",
     ylab = "Miles per Gallon",
     col = "hotpink")

hist(mtcars$cyl,
     col = "green4",
     main = "Cylinder Count")

And this will print side by side, but notice how it is left-aligned.

par(mfrow = c(1, 2))

plot(mpg ~ disp,
     data = mtcars,
     main = "MPG vs Displacement",
     xlab = "Displacement (cu. in)",
     ylab = "Miles per Gallon",
     col = "hotpink")

hist(mtcars$cyl,
     col = "green4",
     main = "Cylinder Count")

Alignment is changed in the chunk.

{r, fig.align = ‘center’}

par(mfrow = c(1, 2))

plot(mpg ~ disp,
     data = mtcars,
     main = "MPG vs Displacement",
     xlab = "Displacement (cu. in)",
     ylab = "Miles per Gallon",
     col = "hotpink")

hist(mtcars$cyl,
     col = "green4",
     main = "Cylinder Count")


LS0tDQp0aXRsZTogIkRvY3VtZW50IEZvcm1hdHRpbmcgR3VpZGUiDQphdXRob3I6ICJLYXlsYSBGb2h0Ig0KZGF0ZTogIjIwMjYtMDgtMTIiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgY29kZV9kb3dubG9hZDogdHJ1ZQ0KLS0tDQoNCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQ0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFKQ0KYGBgDQoNCiMjIFIgTWFya2Rvd24gRG9jdW1lbnQgRm9ybWF0dGluZ3sudGFic2V0fQ0KDQoqKkkgaGF2ZSBtYWRlIHRoZSBjb2RlIGZvciB0aGlzIGRvY3VtZW50IGF2YWlsYWJsZSBmb3IgZG93bmxvYWQqKjxicj5TaW1wbHkgY2xpY2sgdGhlICJjb2RlIiBidXR0b24gYXQgdGhlIHRvcCBvZiB0aGUgc2NyZWVuIGFuZCBkb3dubG9hZCB0aGUgUk1EIHRvIHNhdmUgdGhpcyBmaWxlIGxvY2FsbHkgb24geW91ciBjb21wdXRlciBvciB2aWV3IHRoZSBjaHVuay1zcGVjaWZpYyBmb3JtYXR0aW5nIHRocm91Z2hvdXQuDQoNCkZvciBtb3JlIGluZm9ybWF0aW9uIG9uIFIgTWFya2Rvd24gZm9ybWF0dGluZywgdmlzaXQgdGhpcyBzaXRlOiBodHRwczovL3JtYXJrZG93bi5yc3R1ZGlvLmNvbS9sZXNzb24tMS5odG1sPGJyPg0KT3IgZG93bmxvYWQgdGhlIFIgTWFya2Rvd24gQ2hlYXQgU2hlZXQgaGVyZTogaHR0cHM6Ly9ybWFya2Rvd24ucnN0dWRpby5jb20vbGVzc29uLTguaHRtbA0KDQojIyMgSGVhZGVycw0KDQpgYGB7ciwgZXZhbD1GQUxTRX0NCiMgSGVhZGVyIDENCiMjIEhlYWRlciAyDQojIyMgSGVhZGVyIDMNCi4uLiAgDQojIyMjIyMgSGVhZGVyIDYNCmBgYA0KDQojIyMgVGV4dCBGb3JtYXR0aW5nDQoNCmBgYHtyLCBldmFsPUZBTFNFfQ0KKml0YWxpY3MqDQpgYGANCg0KKml0YWxpY3MqDQoNCg0KYGBge3IsIGV2YWw9RkFMU0V9DQoqKmJvbGQqKg0KYGBgDQoNCioqYm9sZCoqDQoNCmBgYHtyLCBldmFsPUZBTFNFfQ0KYGNvZGUgYm94YA0KYGBgDQoNCmBsb29rcyBsaWtlIGEgZGl2IGNvbnRhaW5lcmANCg0KYGBge3IsIGV2YWw9RkFMU0V9DQpzdXBlcnNjcmlwdF4yXi9zdWJzY3JpcHR+Mn4NCmBgYA0KDQpzdXBlcnNjcmlwdF4yXi9zdWJzY3JpcHR+Mn4NCg0KYGBge3IsIGV2YWw9RkFMU0V9DQp+fnN0cmlrZXRocm91Z2h+fg0KYGBgDQoNCn5+c3RyaWtldGhyb3VnaH5+DQoNCmBgYHtyLCBldmFsPUZBTFNFfQ0KVXNlIDxicj4gdG8gZm9yY2UgYSBsaW5lIGJyZWFrIChpbiBodG1sKQ0KT3IgdXNlIGRvdWJsZSBzcGFjZXMgYXQgdGhlIGVuZCBvZiB0aGUgbGluZSB0byBmb3JjZSBvbmUgaW4gd29yZA0KYGBgDQoNCmFwcGxlPGJyPm9yYW5nZQ0KDQotLS0NCg0KIyMjIExpc3RzIGFuZCBEaXZpZGVycw0KDQpgYGB7ciwgZXZhbD1GQUxTRX0NCi0gdW5vcmRlcmVkIGxpc3QNCi0gaXRlbSAyDQogIC0gaXRlbSAyYSAoaW5kZW50IDEgdGFiKQ0KICAtIGl0ZW0gMmINCm9yZGVyZWQgbGlzdA0KYGBgDQoNCi0gdW5vcmRlcmVkIGxpc3QNCi0gaXRlbSAyDQogIC0gaXRlbSAyYSAoaW5kZW50IDEgdGFiKQ0KICAtIGl0ZW0gMmINCiAgDQpgYGB7ciwgZXZhbD1GQUxTRX0NCjEuIG9yZGVyZWQgbGlzdA0KMi4gaXRlbSAyDQogLSBpdGVtIDJhIChpbmRlbnQgMiB0YWJzKQ0KIC0gaXRlbSAyYg0Kb3JkZXJlZCBsaXN0DQpgYGANCg0KMS4gb3JkZXJlZCBsaXN0DQoyLiBpdGVtIDINCiAgICAtIGl0ZW0gMmEgKGluZGVudCAyIHRhYnMpDQogICAgLSBpdGVtIDJiDQoNCmBgYHtyLCBldmFsPUZBTFNFfQ0KVGhyZWUgZGFzaGVzIGluIGEgcm93ICgtLS0pIGNyZWF0ZSBhIGxpbmUgYnJlYWsgbGlrZSB0aGUgb25lIGFmdGVyIHRoaXMgY2h1bmsuDQpgYGANCg0KLS0tDQoNCiMjIyBGb250IENvbG9ycw0KDQpGb250IGNvbG9ycyBjYW4gYmUgY2hhbmdlZCBpbiBIVE1MLCBidXQgd29yZCB3aWxsIGlnbm9yZSB0aGlzIGZvcm1hdHRpbmcuDQoNCmBgYHtyLCBldmFsPUZBTFNFfQ0KPHNwYW4gc3R5bGU9ImNvbG9yOiByZWQ7Ij5UaGlzIHRleHQgd2lsbCBiZSByZWQ8L3NwYW4+DQpgYGANCg0KPHNwYW4gc3R5bGU9ImNvbG9yOiByZWQ7Ij5UaGlzIHRleHQgd2lsbCBiZSByZWQ8L3NwYW4+DQoNCi0tLQ0KDQojIyMgQmFzaWMgUGxvdHMgYW5kIEZvcm1hdHRpbmcNCg0KYmFzaWMgciBwbG90cyBhcmUgbWFkZSB3aXRoIHRoZSBmb3JtdWxhIHBsb3QoKQ0KDQpgYGB7cn0NCmNhciA8LSBtdGNhcnMNCnBsb3QobXBnIH4gZGlzcCwNCiAgICAgZGF0YSA9IG10Y2FycywNCiAgICAgeGxhYiA9ICJEaXNwbGFjZW1lbnQgKGN1LiBpbikiLA0KICAgICB5bGFiID0gIk1pbGVzIHBlciBHYWxsb24iLA0KICAgICBjb2wgPSAiaG90cGluayIpDQpgYGANCg0KQnkgZGVmYXVsdCBwbG90cyB3aWxsIGV4ZWN1dGUgc2VwYXJhdGVseS4NCg0KYGBge3J9DQpwbG90KG1wZyB+IGRpc3AsDQogICAgIGRhdGEgPSBtdGNhcnMsDQogICAgIHhsYWIgPSAiRGlzcGxhY2VtZW50IChjdS4gaW4pIiwNCiAgICAgeWxhYiA9ICJNaWxlcyBwZXIgR2FsbG9uIiwNCiAgICAgY29sID0gImhvdHBpbmsiKQ0KDQpoaXN0KG10Y2FycyRjeWwsDQogICAgIGNvbCA9ICJncmVlbjQiLA0KICAgICBtYWluID0gIkN5bGluZGVyIENvdW50IikNCmBgYA0KDQpZb3UgY2FuIGNoYW5nZSB0aGlzIHdpdGggcGFyKG1mcm93KQ0KDQpUaGUgZm9ybWF0IG9mIHBhcihtZnJvdykgaXMgcm93LCBjb2x1bW4sIHNvIHRoaXMgd2lsbCBwcmludCBvbmUgb24gdG9wIG9mIHRoZSBvdGhlcjoNCmBgYHtyfQ0KcGFyKG1mcm93ID0gYygyLCAxKSkNCg0KcGxvdChtcGcgfiBkaXNwLA0KICAgICBkYXRhID0gbXRjYXJzLA0KICAgICB4bGFiID0gIkRpc3BsYWNlbWVudCAoY3UuIGluKSIsDQogICAgIHlsYWIgPSAiTWlsZXMgcGVyIEdhbGxvbiIsDQogICAgIGNvbCA9ICJob3RwaW5rIikNCg0KaGlzdChtdGNhcnMkY3lsLA0KICAgICBjb2wgPSAiZ3JlZW40IiwNCiAgICAgbWFpbiA9ICJDeWxpbmRlciBDb3VudCIpDQpgYGANCg0KQW5kIHRoaXMgd2lsbCBwcmludCBzaWRlIGJ5IHNpZGUsIGJ1dCBub3RpY2UgaG93IGl0IGlzIGxlZnQtYWxpZ25lZC4NCmBgYHtyfQ0KcGFyKG1mcm93ID0gYygxLCAyKSkNCg0KcGxvdChtcGcgfiBkaXNwLA0KICAgICBkYXRhID0gbXRjYXJzLA0KICAgICBtYWluID0gIk1QRyB2cyBEaXNwbGFjZW1lbnQiLA0KICAgICB4bGFiID0gIkRpc3BsYWNlbWVudCAoY3UuIGluKSIsDQogICAgIHlsYWIgPSAiTWlsZXMgcGVyIEdhbGxvbiIsDQogICAgIGNvbCA9ICJob3RwaW5rIikNCg0KaGlzdChtdGNhcnMkY3lsLA0KICAgICBjb2wgPSAiZ3JlZW40IiwNCiAgICAgbWFpbiA9ICJDeWxpbmRlciBDb3VudCIpDQpgYGANCg0KQWxpZ25tZW50IGlzIGNoYW5nZWQgaW4gdGhlIGNodW5rLg0KDQp7ciwgZmlnLmFsaWduID0gJ2NlbnRlcid9DQoNCmBgYHtyLCBmaWcuYWxpZ249J2NlbnRlcid9DQpwYXIobWZyb3cgPSBjKDEsIDIpKQ0KDQpwbG90KG1wZyB+IGRpc3AsDQogICAgIGRhdGEgPSBtdGNhcnMsDQogICAgIG1haW4gPSAiTVBHIHZzIERpc3BsYWNlbWVudCIsDQogICAgIHhsYWIgPSAiRGlzcGxhY2VtZW50IChjdS4gaW4pIiwNCiAgICAgeWxhYiA9ICJNaWxlcyBwZXIgR2FsbG9uIiwNCiAgICAgY29sID0gImhvdHBpbmsiKQ0KDQpoaXN0KG10Y2FycyRjeWwsDQogICAgIGNvbCA9ICJncmVlbjQiLA0KICAgICBtYWluID0gIkN5bGluZGVyIENvdW50IikNCmBgYA0KDQotLS0NCg0KDQo=