[ons] Lineage sp and developmentally different loci- bar plot

Posted in tumblelog

This has been reposted from our lab tumblelog




















library(plotly)


p <- plotly(username="claire.olson", key="piczb54zao")


trace1 <- list(
x = c("Genes", "Transposable Elements", "Promoter Regions"),
y = c(43.15, 14.73, 4.65),
name = "Developmentally Different",
type = "bar"
)


trace2 <- list(
x = c("Genes", "Transposable Elements", "Promoter Regions"),
y = c(40.96, 16.63, 4.99),
name = "Lineage-specific",
type = "bar"
)


trace3 <- list(
x = c("Genes", "Transposable Elements", "Promoter Regions"),
y = c(39.24, 5.87, 5.91),
name = "All CG",
type = "bar"
)


data <- list(trace1, trace2, trace3)
layout <- list(
xaxis = list(type = "category"),
yaxis = list(title= "Percent of total genomic regions"),
barmode = "group",
categories = c("Genes", "Transposable Elements", "Promoter Regions")
)


response <- p$plotly(data, kwargs=list(layout=layout, filename="Lineage_Devel_Sp_Loci", fileopt="overwrite"))
url <- response$url
filename <- response$filename








from Claire’s lab notebook http://ift.tt/1sGZJSt

via IFTTT

via the Lab Tumblr: http://ift.tt/1qZ0LFj