Just another way to make a R flavored blog

Posted by

[This article was first published on Jkunst - R category , and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

This post is in active development!

image source

This usually is “echo=FALSE”

rm(list = ls())
library("printr")
knitr::opts_knit$set(root.dir  = normalizePath(".."))

Considerations

  1. Use h2 ## in R files to spin, because h1 is reserved for title post.
  2. At the begin of R script write a chunk of R code loading the print package
  3. This post have some considerations to have when write a post via: r script > spind > md and testing r srcipt > html_fragment:
print(getwd())

## [1] "C:/Users/Joshua K/Documents/Dev/jbkunst.github.io"

print(knitr::opts_knit$get("root.dir"))

## [1] "C:\Users\Joshua K\Documents\Dev\jbkunst.github.io"

this should be equal when knit via ctrl+ shift + K

Testing knitr::spin on this R script

Load libraries

library("ggplot2")
library("ggthemes")
library("dplyr")

this is how we show tables

test <- sample_n(diamonds, 1000)
head(test)
carat cut color clarity depth table price x y z
43008 0.57 Ideal G SI1 60.5 57 1369 5.40 5.37 3.26
17015 1.25 Ideal J VS1 61.2 56 6793 6.93 6.95 4.25
45340 0.57 Ideal G SI1 62.0 55 1662 5.35 5.32 3.31
28772 0.33 Very Good D VS2 62.5 59 681 4.39 4.41 2.75
35144 0.38 Ideal F VS2 61.2 57 889 4.67 4.64 2.85
12549 0.95 Good E VS2 57.7 58 5272 6.47 6.52 3.75

And this is who we can plot! 😀

p <- ggplot(test) +
  geom_point(aes(x = carat, y = price, color = price, shape = cut)) +
  facet_wrap(~color) + 
  theme_fivethirtyeight() + 
  scale_color_continuous_tableau() + 
  theme(legend.position = "none")
p

plot of chunk ploting

This is a h3!

I can load a data

mtcars <- readr::read_csv("data/mtcars.csv")

Showing a table

head(mtcars)
mpg cyl disp hp drat wt qsec vs am gear carb
21.0 6 160 110 3.90 2.62 16.5 0 1 4 4
21.0 6 160 110 3.90 2.88 17.0 0 1 4 4
22.8 4 108 93 3.85 2.32 18.6 1 1 4 1
21.4 6 258 110 3.08 3.21 19.4 1 0 3 1
18.7 8 360 175 3.15 3.44 17.0 0 0 3 2
18.1 6 225 105 2.76 3.46 20.2 1 0 3 1

According with http://yihui.name/knitr/options/, dpi: (72; numeric) the DPI (dots per inch) for bitmap devices (dpi * inches = pixels) so:

desire_width_px <- 720
desire_height_px <- 480
dpi <- 72
fig.width <- desire_width_px / dpi
fig.height <- desire_height_px / dpi

fig.width

## [1] 10

fig.height

## [1] 6.67

This template need a 720 x 480 image. So at the final of the script I generate a chunk named featured_image, with parameters: echo=FALSE, fig.width=10, fig.height=6.7, dpi=72 and fig.show='hide'.

Markdown references

  1. http://milanaryal.com/2015/writing-on-github-pages-and-jekyll-using-markdown/
  2. http://ajoz.github.io/2014/06/29/i-want-my-github-flavored-markdown/
  3. https://github.com/adam-p/markdown-here/wiki/Markdown-Cheatsheet#line-breaks
  4. https://george-hawkins.github.io/basic-gfm-jekyll/redcarpet-extensions.html#hard-wrap

To leave a comment for the author, please follow the link and comment on their blog: Jkunst - R category .
R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.