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

Export plot functions

Browse source
This commit is contained in:
Elias Projahn 2022-11-30 15:27:00 +01:00
parent a6f0a64c2c
commit 2f24812c90
5 changed files with 71 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
R/plots.R
View file

@ -5,7 +5,8 @@
#' @param sample_proportion Proportion of rows to use as the shown sample.
#'
#' @return A `plotly` figure.
#' @noRd
#'
#' @export
overview_plot <- function(ranked_data,
highlighted_genes = NULL,
sample_proportion = 0.05) {
@ -67,7 +68,8 @@ overview_plot <- function(ranked_data,
#' @param highlighted_genes Genes that will be compared.
#'
#' @return A `plotly` figure.
#' @noRd
#'
#' @export
box_plot <- function(ranked_data, highlighted_genes) {
data <- data.table::copy(ranked_data)
data[, group := data.table::fifelse(
@ -96,7 +98,8 @@ box_plot <- function(ranked_data, highlighted_genes) {
#' `NULL`, all ranks will be shown.
#'
#' @return A `plotly` figure for rendering.
#' @noRd
#'
#' @export
scores_plot <- function(ranked_data, highlighted_genes = NULL, ranks = 1000) {
data <- if (is.null(ranks)) {
ranked_data