Just another way to make a R flavored blog

August 6, 2015
By

(This article was first published on Jkunst - R category , and kindly contributed to R-bloggers)

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 on topics such as: Data science, Big Data, R jobs, visualization (ggplot2, Boxplots, maps, animation), programming (RStudio, Sweave, LaTeX, SQL, Eclipse, git, hadoop, Web Scraping) statistics (regression, PCA, time series, trading) and more...



If you got this far, why not subscribe for updates from the site? Choose your flavor: e-mail, twitter, RSS, or facebook...

Comments are closed.

Search R-bloggers


Sponsors

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)