# First post using R Markdown with jekyll and knitr

05 Jul 2015I wanted to set up a website to reproduce data analysis examples and graphical output. I have been using RStudio for a while and was looking for a way to publish R Markdown scripts directly to the web.

I found a few sites that provided instructions to do this, Jerid Francom, Jason Bryer, Andrew Brooks,and Jon Zelner. I went with the process described in the latter as it was the easiest to follow. It also uses the lanyon theme that I had already deployed.

Anyway, there is no point repeating the process here. If you have installed jekyll on your local machine just follow Jon Zelnerâ€™s instructions and it will look like this site.

Here is some test code written in an R Markdown file with the resulting output. It is code used in the Udacity - Data Analysis with R course. It produces a scatter plot of the cube root of diamond price by diamond carat. (Messages and warnings are supressed.)

### Load in the required libraries.

```
library(ggplot2)
library(ggthemes)
library(scales)
```

### Define a cube root function to transform the data

```
cuberoot_trans = function(){
trans_new('cuberoot',
transform = function(x) x ^ (1/3),
inverse = function(x) x^3)
}
```

### Produce the plot.

```
ggplot(aes(x = carat, y = price, color=clarity), data = diamonds) +
geom_point(alpha = 0.8, size = 2, position = 'jitter') +
scale_color_brewer(type = 'div',
guide = guide_legend(title = 'Clarity', reverse = T,
override.aes = list(alpha = 1, size = 2))) +
scale_x_continuous(trans = cuberoot_trans(), limits = c(0.2, 3),
breaks = c(0.2, 0.5, 1, 2, 3)) +
scale_y_continuous(trans = log10_trans(), limits = c(350, 15000),
breaks = c(350, 1000, 5000, 10000, 15000)) +
ggtitle('Price (log10) by Cube-Root of Carat and Clarity') +
theme_minimal()
```