knitr::opts_chunk$set(echo = TRUE)
library(GetToIt) magic <- list(list(c(rnorm(20,2,1)), c(rnorm(8,8,1))), list(c(rnorm(20,3,1)), c(rnorm(8,7,1))), list(c(rnorm(20,4,1)), c(rnorm(8,6,1)))) #give a name to the boxplot names(magic) <- c(1:length(magic)) #and pick an order order= c(1,3,2) p <- ggBoxPlot(magic, order)
head(magic, n = 2)
pander::pandoc.table(head(as.data.frame(p[2]), n = 30))
p[1]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.