See #58 Thanks laracat

jbryer · Jun 27, 2017 · 35b8802 · 35b8802
1 parent ff2a256
commit 35b8802
Showing 1 changed file with 21 additions and 17 deletions.
diff --git a/R/plot.likert.bar.r b/R/plot.likert.bar.r
@@ -154,23 +154,27 @@ likert.bar.plot <- function(l,
 							       size=text.size, hjust=.5, color=text.color)				
 			}
 		}
-		if(plot.percents) { #TODO: implement for grouping
-			warning('plot.percents is not currenlty supported for grouped analysis.')
-# 			lpercentpos <- ddply(results[results$value > 0,], .(Item), transform, 
-# 								 pos = cumsum(value) - 0.5*value)
-# 			p + geom_text(data=lpercentpos, aes(x=Group, y=pos, label=paste0(round(value), '%'),
-# 												group=Item),
-# 							   size=text.size)
-# 			lpercentneg <- results[results$value < 0,]
-# 			if(nrow(lpercentneg) > 0) {
-# 				lpercentneg <- lpercentneg[nrow(lpercentneg):1,]
-# 				lpercentneg$value <- abs(lpercentneg$value)
-# 				lpercentneg <- ddply(lpercentneg, .(Item), transform, 
-# 									 pos = cumsum(value) - 0.5*value)	
-# 				lpercentneg$pos <- lpercentneg$pos * -1
-# 				p <- p + geom_text(data=lpercentneg, aes(x=Item, y=pos, label=paste0(round(abs(value)), '%')),
-# 								   size=text.size)
-# 			}
+		if(plot.percents) {
+			#warning('plot.percents is not currenlty supported for grouped analysis.')
+			lpercentpos <- ddply(results[results$value > 0,], .(Group, Item), transform,
+								 pos = cumsum(value) - 0.5 * value)
+			p <- p + geom_text(data = lpercentpos, 
+							   aes(x = Group, y = pos, label = paste0(round(value), '%'),
+							   group = Item), size = text.size)
+			lpercentneg <- results[results$value < 0, ]
+			if(nrow(lpercentneg) > 0) {
+				lpercentneg <- lpercentneg[nrow(lpercentneg):1, ]
+				lpercentneg$value <- abs(lpercentneg$value)
+				lpercentneg <-
+					ddply(lpercentneg,
+						  .(Group, Item),
+						  transform,
+						  pos = cumsum(value) - 0.5 * value)
+				lpercentneg$pos <- lpercentneg$pos * -1
+				p <- p + geom_text(data = lpercentneg,
+								   aes(x = Group, y = pos, label = paste0(round(abs(value)), '%')),
+								   size = text.size)
+			}
 		}
 		p <- p + coord_flip() + ylab('Percentage') + xlab('') +
 			theme(axis.ticks=element_blank(),