debuggind mg_plot

ampatzia · Jul 1, 2017 · 1836737 · 1836737
1 parent 7a5e859
commit 1836737
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/main.R b/R/main.R
@@ -881,7 +881,7 @@ mg_plot<-function(object, collapsed ,use_log){
   Cluster<-rep("Cluster",length(n_memb))
 
   sums<-data.frame(n_memb,Cluster)%>%
-    count(Cluster,n_memb)%>%rename(.,Genes="n")
+    count(Cluster,n_memb)%>%rename(.,Genes=n)
 
 
   if (collapsed == TRUE) {
@@ -895,7 +895,7 @@ mg_plot<-function(object, collapsed ,use_log){
   if (use_log == TRUE) {sums$Genes <- log(sums$Genes)}
 
 
-  p <- ggplot(y, aes(x = n_memb, y = Genes))+ geom_point()+xlan("Number of Members")
+  p <- ggplot(sums, aes(x = n_memb, y = Genes))+ geom_point()+xlan("Number of Members")
   if (use_log == TRUE) {  p <- p + ylab("Genes (log)")}
 
   p