knitr::opts_chunk$set(collapse=TRUE, comment="##", fig.retina=1, fig.height=6, fig.width=8) library(ggplot2) library(beadplot)
ggplot2::ggplot(basic_data, ggplot2::aes(dist, y, segment_id = segment_id)) + stat_string(segments = basic_segments) + stat_bead(segments = basic_segments)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.