From 7b41119952ca0d2b58f66e6e4f4bfcd9b3d16df8 Mon Sep 17 00:00:00 2001
From: Whitestone <66317606+notguigao@users.noreply.github.com>
Date: Mon, 19 Sep 2022 16:01:31 +0800
Subject: [PATCH] call barPlot() in plotGeneExpression(type = 'bar')

missing `as.data.frame()` when split.by = NULL
---
 R/visualization.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/visualization.R b/R/visualization.R
index db3b615..8e3182c 100644
--- a/R/visualization.R
+++ b/R/visualization.R
@@ -3807,6 +3807,7 @@ barPlot <- function(object, features, group.by = NULL, split.by = NULL, color.us
     dataavg <- aggregate(t(data[features, ]), list(labels) , FUN = FunMean)
     dataavg <- t(dataavg[,-1])
     colnames(dataavg) <- levels(labels)
+    dataavg <- as.data.frame(dataavg)
     dataavg$gene = rownames(dataavg)
     df1 = reshape2::melt(dataavg, id.vars = c("gene"))
     colnames(df1) <- c("gene","labels","value")