## Testing Figures

-June 12, 2015

I’m not sure if I’m doing figures right.

  library(ggplot2)
library(dplyr)
library(magrittr)

faithful %<>%
mutate(clust = kmeans(., centers = 2) %>% extract2("cluster") %>% factor())

ggplot(faithful, aes(waiting, eruptions, color = clust))+
geom_point()

## Update

So, I had to get knitr to save the figure file to one directory, but call it another in the code. That is, knitr would insert this line into the markdown:

![alt text](//jofrhwld.github.io/blog/figs/figure.png)


And what I needed it to insert was

![alt text]({{ site.baseurl }}/figs/figure.png)


So I just hacked the hell out of it by reading in the output of render_jekyll(), doing a regex substition, and writing it back out again.

It’s so ugly. You can check it out here: https://github.com/JoFrhwld/blog/blob/gh-pages/knit_post.R#L7

posted by Joe at 17:30 (more or less).