#' @title plotGeneCount function
#' @param ReturnClass instance of MutationPlot class
#' @param Colour_list list - optional colours specified for the columns
#' @keywords Mutation Waterfall
#' @export
#' @examples
#' ## Pass the function a MuationPlot object
#' plotGeneCount(MutationPlot)
plotGeneCount <- function(ReturnClass, Colour_List = FALSE) {
ReturnClass@plots[["GeneCount"]] <- ggplot(ReturnClass@plotdata$GeneData,
aes(x = factor(GeneCol,
levels=ReturnClass@plotdata$GeneOrder),
y = V1,
fill = InfoCol
)) +
geom_bar(stat = "identity") +
labs(y = "Count", fill = "Type of Mutation") +
coord_flip() +
theme(legend.position = "none",
axis.text.y = element_blank(),
axis.ticks.y = element_blank(),
axis.title.y = element_blank(),
panel.background = element_blank(),
axis.line.x = element_line()
) +
if (typeof(Colour_List) == "character" ) {
scale_fill_manual(name = "Type of Mutation", values = Colour_List)
} else {
scale_fill_discrete(name = "Type of Mutation")
}
ReturnClass
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.