#' Overload plot function
#'
#' This function is just for quick plotting of frequencies
#' @param x A set of \code{locus} objects
#' @param mode The type of plot to create, bar or pie (bar is default).
#' @param ... Ignored
#' @method plot locus
#' @export
#' @author Rodney J. Dyer \email{rjdyer@@vcu.edu}
plot.locus <- function( x, mode=c("bar","pie")[1], ... ) {
f <- frequencies( x )
Allele <- Frequency <- NULL
if( mode=="bar")
plot <- ggplot2::ggplot( f, aes(x=Allele,y=Frequency,fill=Allele)) +
ggplot2::geom_bar(stat="identity") +
ggplot2::ylim(c(0,1))
else
plot <- ggplot2::ggplot( f, aes(x=1,y=Frequency,fill=Allele)) +
ggplot2::geom_bar(stat="identity",aes(fill=Allele)) +
ggplot2::coord_polar("y") +
ggplot2::xlab("") + ggplot2::ylab("") +
ggplot2::theme(axis.ticks=element_blank(), axis.text.y=element_blank())
return(plot)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.