johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 19:27:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Allow using all species for processing

Browse source
This commit is contained in:
Elias Projahn 2021-08-29 13:25:12 +02:00
parent b69b3e9d2d
commit 3fd8ef6269
4 changed files with 83 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

13
scatter_plot.R
View file

@ -5,18 +5,12 @@ library(ggplot2)
#'
#' @param input Input data from [`load_input()`].
#' @param results Results from [`process_input()`].
scatter_plot <- function(gene_ids, input, results) {
#' @param species Species to be displayed.
scatter_plot <- function(gene_ids, input, results, species) {
if (length(gene_ids) < 1) {
return(ggplot())
}
# Exclude species with naturally or artificially short chromosomes as well
# as non-replicatively aging species.
# TODO: Sync with process_input().
species <- input$species[
median_distance >= 7500000 & group == "replicative"
]
species_ids <- species[, id]
data <- merge(
@ -60,5 +54,6 @@ scatter_plot <- function(gene_ids, input, results) {
shape = in_cluster
),
size = 5
)
) +
theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
}