First test of R Markdown.

1 First look

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

You can also embed plots, for example:

x = rnorm(30, mean = 20, sd = 2)
y = rnorm(30, mean = 25, sd = 4)
plot(sort(x), sort(y), 
     main = "Hello Wolf!", sub = "nxttnx", xlab = "y title", ylab = "y title")

2 Important Chunk Options

  • include = FALSE : prevents code and results from appearing in the finished file. R Markdonw still runs the code in the chunk, and the results can be used by other chunks.

  • echo = FALSE : prevents code, but not the results from appearing in the finished file. An useful way to embed figures.

  • message = FALSE : prevents messages that are generated by code from appearng in the finished file.

  • warning = FALSE : prevents warnings that are generated by code from appering in the finished.

  • fig.cap = "..." : adds a caption to graphical results.

3 Bash

ls *.Rmd
## HelloWolf.Rmd
## Template.Rmd

4 Tables - to show data

Several packages support making beautiful tables with R such as:

  • xtable
  • stargazer
  • pander (I prefer it)
  • ascii
  • kable in knitr package

4.0.0.1 Using kable

library(knitr)
kable(mtcars[1:5, 1:5])
mpg cyl disp hp drat
Mazda RX4 21.0 6 160 110 3.90
Mazda RX4 Wag 21.0 6 160 110 3.90
Datsun 710 22.8 4 108 93 3.85
Hornet 4 Drive 21.4 6 258 110 3.08
Hornet Sportabout 18.7 8 360 175 3.15

4.0.0.2 Using pander

library(tidyverse)
library(pander)
mtcars[1:5, 1:5] %>% pander()
  mpg cyl disp hp drat
Mazda RX4 21 6 160 110 3.9
Mazda RX4 Wag 21 6 160 110 3.9
Datsun 710 22.8 4 108 93 3.85
Hornet 4 Drive 21.4 6 258 110 3.08
Hornet Sportabout 18.7 8 360 175 3.15

More about R Markdown can be found in Pandoc’s Markdown

5 Interactive Documents

library(leaflet)
library(dplyr)

leaflet() %>%
  setView(lng = 105.854, lat = 17.028, zoom = 5) %>%
  addTiles() %>%
  addMarkers(lng = 105.854, lat = 21.028, popup = "Hanoi")

6 MORE:

Read more about R Markdown here

LS0tCnRpdGxlOiAiSGVsbG8gV29sZiEgUiBNYXJrZG93biIKYXV0aG9yOiAiYnkgTlhUVE5YIgpvdXRwdXQ6CiAgaHRtbF9kb2N1bWVudDogCiAgICBjb2RlX2Rvd25sb2FkOiBUUlVFCiAgICBjb2RlX2ZvbGRpbmc6IHNob3cKICAgIG51bWJlcl9zZWN0aW9uczogVFJVRQogICAgdGhlbWU6ICJkZWZhdWx0IgogICAgdG9jOiBUUlVFCiAgICB0b2NfZmxvYXQ6IFRSVUUKICAgIGRldjogJ3N2ZycgIAotLS0KCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQprbml0cjo6b3B0c19jaHVuayRzZXQoZWNobyA9IFRSVUUpCmBgYAoKCj4gRmlyc3QgdGVzdCBvZiAqKipSIE1hcmtkb3duKioqLgoKKiAqKlJlZioqIFtoZXJlXShodHRwOi8vcm1hcmtkb3duLnJzdHVkaW8uY29tPikuCiogKipDaGVhdCBTaGVldCoqIFtoZXJlXShodHRwczovL3JzdHVkaW8uY29tL3dwLWNvbnRlbnQvdXBsb2Fkcy8yMDE2LzAzL3JtYXJrZG93bi1jaGVhdHNoZWV0LTIuMC5wZGY/X2dhPTIuMTUwNzg4NjYxLjIwNTQ3MzI1MzcuMTU5NDYxMTQwNC05MTkxODI1NTMuMTU2Njg2NTMzMSkKCgojIEZpcnN0IGxvb2sKYGBge3IgY2Fyc30Kc3VtbWFyeShjYXJzKQpgYGAKCllvdSBjYW4gYWxzbyBlbWJlZCBwbG90cywgZm9yIGV4YW1wbGU6CgpgYGB7cn0KeCA9IHJub3JtKDMwLCBtZWFuID0gMjAsIHNkID0gMikKeSA9IHJub3JtKDMwLCBtZWFuID0gMjUsIHNkID0gNCkKcGxvdChzb3J0KHgpLCBzb3J0KHkpLCAKICAgICBtYWluID0gIkhlbGxvIFdvbGYhIiwgc3ViID0gIm54dHRueCIsIHhsYWIgPSAieSB0aXRsZSIsIHlsYWIgPSAieSB0aXRsZSIpCmBgYAoKCiMgSW1wb3J0YW50IENodW5rIE9wdGlvbnMKKiBgaW5jbHVkZSA9IEZBTFNFYCA6IHByZXZlbnRzIGNvZGUgYW5kIHJlc3VsdHMgZnJvbSBhcHBlYXJpbmcgaW4gdGhlIGZpbmlzaGVkIGZpbGUuIFIgTWFya2Rvbncgc3RpbGwgcnVucyB0aGUgY29kZSBpbiB0aGUgY2h1bmssIGFuZCB0aGUgcmVzdWx0cyBjYW4gYmUgdXNlZCBieSBvdGhlciBjaHVua3MuCgoqIGBlY2hvID0gRkFMU0VgICAgIDogcHJldmVudHMgY29kZSwgYnV0IG5vdCB0aGUgcmVzdWx0cyBmcm9tIGFwcGVhcmluZyBpbiB0aGUgZmluaXNoZWQgZmlsZS4gQW4gdXNlZnVsIHdheSB0byBlbWJlZCBmaWd1cmVzLgoKKiBgbWVzc2FnZSA9IEZBTFNFYCA6IHByZXZlbnRzIG1lc3NhZ2VzIHRoYXQgYXJlIGdlbmVyYXRlZCBieSBjb2RlIGZyb20gYXBwZWFybmcgaW4gdGhlIGZpbmlzaGVkIGZpbGUuCgoqIGB3YXJuaW5nID0gRkFMU0VgIDogcHJldmVudHMgd2FybmluZ3MgdGhhdCBhcmUgZ2VuZXJhdGVkIGJ5IGNvZGUgZnJvbSBhcHBlcmluZyBpbiB0aGUgZmluaXNoZWQuCgoqIGBmaWcuY2FwID0gIi4uLiJgIDogYWRkcyBhIGNhcHRpb24gdG8gZ3JhcGhpY2FsIHJlc3VsdHMuCgoKIyBCYXNoCmBgYHtiYXNofQpscyAqLlJtZApgYGAKCgojIFRhYmxlcyAtIHRvIHNob3cgZGF0YQpTZXZlcmFsIHBhY2thZ2VzIHN1cHBvcnQgbWFraW5nIGJlYXV0aWZ1bCB0YWJsZXMgd2l0aCBSIHN1Y2ggYXM6CgoqICp4dGFibGUqCiogKnN0YXJnYXplcioKKiAqcGFuZGVyKiAoSSBwcmVmZXIgaXQpCiogKmFzY2lpKgoqICprYWJsZSogaW4gYGtuaXRyYCBwYWNrYWdlCgojIyMjIFVzaW5nIGBrYWJsZWAKYGBge3IgbWVzc2FnZSA9IEZBTFNFfQpsaWJyYXJ5KGtuaXRyKQprYWJsZShtdGNhcnNbMTo1LCAxOjVdKQpgYGAKCgojIyMjIFVzaW5nIGBwYW5kZXJgCmBgYHtyIG1lc3NhZ2UgPSBGQUxTRX0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkocGFuZGVyKQptdGNhcnNbMTo1LCAxOjVdICU+JSBwYW5kZXIoKQpgYGAKCgo+IE1vcmUgYWJvdXQgUiBNYXJrZG93biBjYW4gYmUgZm91bmQgaW4gIFtQYW5kb2MncyBNYXJrZG93bl0oaHR0cHM6Ly9wYW5kb2Mub3JnL01BTlVBTC5odG1sI3BhbmRvY3MtbWFya2Rvd24pCgoKIyBJbnRlcmFjdGl2ZSBEb2N1bWVudHMKYGBge3IgbWVzc2FnZSA9IEZBTFNFfQpsaWJyYXJ5KGxlYWZsZXQpCmxpYnJhcnkoZHBseXIpCgpsZWFmbGV0KCkgJT4lCiAgc2V0VmlldyhsbmcgPSAxMDUuODU0LCBsYXQgPSAxNy4wMjgsIHpvb20gPSA1KSAlPiUKICBhZGRUaWxlcygpICU+JQogIGFkZE1hcmtlcnMobG5nID0gMTA1Ljg1NCwgbGF0ID0gMjEuMDI4LCBwb3B1cCA9ICJIYW5vaSIpCmBgYAoKIyBNT1JFOgpSZWFkIG1vcmUgYWJvdXQgUiBNYXJrZG93biBbaGVyZV0oaHR0cHM6Ly9ib29rZG93bi5vcmcveWlodWkvcm1hcmtkb3duLyk=