Just another way to make a R flavored blog
[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.
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!
This usually is “echo=FALSE”
rm(list = ls()) library("printr") knitr::opts_knit$set(root.dir = normalizePath(".."))
Considerations
- Use h2
##
in R files to spin, because h1 is reserved for title post. - At the begin of R script write a chunk of R code loading the print package
- 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
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 |
To generate the featured image.
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
- http://milanaryal.com/2015/writing-on-github-pages-and-jekyll-using-markdown/
- http://ajoz.github.io/2014/06/29/i-want-my-github-flavored-markdown/
- https://github.com/adam-p/markdown-here/wiki/Markdown-Cheatsheet#line-breaks
- 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.