mirror of
https://github.com/johrpan/geposanui.git
synced 2025-10-26 19:27:24 +01:00
plot: Remove old plotting code
This commit is contained in:
parent
5d59018b2e
commit
495524a0ac
1 changed files with 0 additions and 25 deletions
|
|
@ -45,29 +45,4 @@ scatter_plot <- function(gene_ids, data) {
|
||||||
}
|
}
|
||||||
|
|
||||||
plot
|
plot
|
||||||
|
|
||||||
# plot(
|
|
||||||
# species[, median_distance] / 1000000,
|
|
||||||
# type = "l",
|
|
||||||
# xaxt = "n",
|
|
||||||
# xlab = "",
|
|
||||||
# ylab = "Distance to telomere (Mbp)",
|
|
||||||
# bty = "n"
|
|
||||||
# )
|
|
||||||
|
|
||||||
# axis(
|
|
||||||
# 1,
|
|
||||||
# at = seq_len(nrow(species)),
|
|
||||||
# tick = FALSE,
|
|
||||||
# labels = FALSE
|
|
||||||
# )
|
|
||||||
|
|
||||||
# mtext(
|
|
||||||
# data$species[, label],
|
|
||||||
# side = 1,
|
|
||||||
# at = seq_len(nrow(species)),
|
|
||||||
# las = 2,
|
|
||||||
# # col = axis.labels.col,
|
|
||||||
# adj = 1
|
|
||||||
# )
|
|
||||||
}
|
}
|
||||||
Loading…
Add table
Add a link
Reference in a new issue