df <- data.frame(
ID = rep(c("geneA", "geneB", "geneC"), each = 3),
motif = rep(c("1", "2", "3"), times = 3),
start = c(1, 3, 6, 1, 6, 10, 10, 7, 17),
end = c(3, 5, 11, 3, 8, 15, 12, 9, 22)
)
length_data <- data.frame(
ID = c("geneA", "geneB", "geneC"),
length = c(15, 27, 30)
)
order_data <- c("geneB", "geneA", "geneC")
motif_plot(df, length_data)
motif_plot(df, length_data, the_order = order_data)
Run the code above in your browser using DataLab