diff --git a/R/ggcyto.R b/R/ggcyto.R
index d54f61c..c8966d2 100644
--- a/R/ggcyto.R
+++ b/R/ggcyto.R
@@ -245,7 +245,7 @@ as.ggplot <- function(x){
     }
     if(length(trans)>0&&is.null(value))#means fs will be used to compute stats and thus needs to be scaled properly
     {
-      fs <- transform(fs, translist)
+      suppressMessages(fs <- transform(fs, translist))
     }
     for(gate in gates_parsed){
       if(length(trans)>0)
diff --git a/R/ggcyto_flowSet.R b/R/ggcyto_flowSet.R
index 777401e..2b61dc4 100644
--- a/R/ggcyto_flowSet.R
+++ b/R/ggcyto_flowSet.R
@@ -91,6 +91,7 @@ ggcyto.flowSet <- function(data, mapping, filter = NULL, max_nrow_to_plot = 5e4,
   p[["GeomStats"]] <- list()
   
   p <- p + ggcyto_par_default()
+  p <-  p + guides(fill=FALSE) #the counts at legend could be reflecting the subsampled data and we want to hide this from user to avoid confusion
   
   p
 }