From 3d71aee28cff912aa88aa1c5af1ca5f5ade9bd6b Mon Sep 17 00:00:00 2001
From: JakeConway <jakeconway45@gmail.com>
Date: Wed, 15 Jul 2015 01:25:46 -0400
Subject: [PATCH] changed aesthetic of geom_text

---
 R/MainBar.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/MainBar.R b/R/MainBar.R
index 8336baa..8e6c13b 100644
--- a/R/MainBar.R
+++ b/R/MainBar.R
@@ -84,7 +84,7 @@ Make_main_bar <- function(Main_bar_data, Q, show_num, ratios, customQ, number_an
                             plot.margin = unit(c(0.5,0.5,0.1,0.5), "lines"), panel.border = element_blank(),
                             axis.title.y = element_text(vjust = -0.8)))
   if((show_num == "yes") || (show_num == "Yes")){
-    Main_bar_plot <- (Main_bar_plot + geom_text(aes(label = "freq"), size = 3.0, vjust = -1,
+    Main_bar_plot <- (Main_bar_plot + geom_text(aes_string(label = "freq"), size = 3.0, vjust = -1,
                                                 angle = number_angles, colour = Main_bar_data$color))
   }
   bInterDat <- NULL