knitr::opts_chunk$set(echo = FALSE)
Shiny tool to study DO and other MAGIC crosses
data <- data.frame(x=rep(0:2,4),y=c(0:2,0,1.5,2,0,2,2,0,0,2), z=rep(c("additive","general","dominant","recessive"), each = 3)) library(ggplot2) ggplot(data, aes(x,y)) + geom_point(size=4) + geom_line(size=2) + facet_grid(~z) + labs(x="",y="phenotype mean") + theme(axis.text.y = element_blank()) + scale_x_continuous(breaks=0:2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.