|
...
|
...
|
@@ -129,7 +129,7 @@ mergeMatricesForPlotCOMPASSResultStack <- function(x,
|
|
129
|
129
|
catsMerged <- catsMerged[order(catsMerged$Counts),]
|
|
130
|
130
|
# Make all columns a factor, except for `name`
|
|
131
|
131
|
catsMergedRowNamesTmp <- catsMerged$name
|
|
132
|
|
- catsMerged <- as.data.frame(sapply(catsMerged, as.factor))
|
|
|
132
|
+ catsMerged <- as.data.frame(sapply(catsMerged, as.factor), stringsAsFactors=TRUE)
|
|
133
|
133
|
catsMerged$name <- catsMergedRowNamesTmp # not a factor
|
|
134
|
134
|
rownames(catsMerged) <- catsMerged$name
|
|
135
|
135
|
|
