Update DIALOGUE_SeuratExample.R

livnatje · Feb 28, 2023 · 4ec77f3 · 4ec77f3
1 parent 9fae62e
commit 4ec77f3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/DIALOGUE_SeuratExample.R b/R/DIALOGUE_SeuratExample.R
@@ -39,8 +39,8 @@ DIALOGUE_SeuratExample<-function(results.dir){
 
   par(mfrow=c(1,2),oma = c(8, 1, 0, 5),xpd = T)
   # MCP1 marks CD8 T cells and DCs
-  boxplot(R$scores$A$MCP1~R$scores$A$cell.subtypes,xlab = "",ylab = "MCP1",las=2)
-  boxplot(R$scores$B$MCP1~R$scores$B$cell.subtypes,xlab = "",ylab = "MCP1",las=2)
+  boxplot(-R$scores$A$MCP1~R$scores$A$cell.subtypes,xlab = "",ylab = "MCP1",las=2)
+  boxplot(-R$scores$B$MCP1~R$scores$B$cell.subtypes,xlab = "",ylab = "MCP1",las=2)
   return(R)
 
 }