Skip to content

Instantly share code, notes, and snippets.

@itsvenu

itsvenu/plotSE_examples.R

Last active December 1, 2017 04:10
Show Gist options
  • Save itsvenu/0cc50d09def1fe27ea6c023be5df21ba to your computer and use it in GitHub Desktop.
Save itsvenu/0cc50d09def1fe27ea6c023be5df21ba to your computer and use it in GitHub Desktop.
Download ZIP
Raw
plotSE_examples.R
source("https://raw.githubusercontent.com/venuthatikonda/rFun/master/plotSE.R")
# Example 1 - defaults
plotSE(seFile="example_AllEnhancers.table.txt", seCol = "red", teCol = "black", mark = "H3K27ac", bg=TRUE)+ggtitle("Example - 1")
# Example 2 - differnet colors
plotSE(seFile="example_AllEnhancers.table.txt", seCol = "deeppink", teCol = "darkgreen")+ggtitle("Example - 2")
# Example 3 - no background
plotSE(seFile="example_nobg_AllEnhancers.table.txt", seCol = "deeppink", teCol = "darkgreen", bg=FALSE, mark="H3K4me1")+ggtitle("Example - 3")
# Example 4 - return a ggplot2 object
p=plotSE(seFile="example_nobg_AllEnhancers.table.txt", seCol = "maroon", teCol = "black", bg=FALSE, mark="H3K4me1")+ggtitle("Example - 4")
p+theme_gray()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment