From 0b02eec73b359134c60c44bb658c2223d173e0c3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Xavier=20Escrib=C3=A0=20Montagut?= Date: Fri, 9 Jul 2021 12:26:46 +0200 Subject: [PATCH] Update visualization_functions.R --- R/visualization_functions.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/visualization_functions.R b/R/visualization_functions.R index 6e1d536..2b6b21e 100644 --- a/R/visualization_functions.R +++ b/R/visualization_functions.R @@ -271,10 +271,10 @@ plot_features <- function(rdr = NULL, range_feature <- as.numeric(user_range) } - boxplot(data[feature_names[i], ] ~ conditions, varwidth = T, frame.plot = F, las = 1, + boxplot(unlist(data[feature_names[i], ]) ~ conditions, varwidth = T, frame.plot = F, las = 1, pch = 19, outline = F, ylim = range_feature, main = feature_names[i], xlab = "", ylab = "Feature value") - stripchart(data[feature_names[i], ] ~ conditions, pch = 19, col = "grey60", add = T, vertical = T, + stripchart(unlist(data[feature_names[i], ]) ~ conditions, pch = 19, col = "grey60", add = T, vertical = T, method = "jitter") grid() }