[Returnanalytics-commits] r3209 - pkg/PortfolioAnalytics/sandbox/symposium2013/R

[noreply at r-forge.r-project.org]

Author: peter_carl
Date: 2013-10-07 03:54:19 +0200 (Mon, 07 Oct 2013)
New Revision: 3209

Modified:
   pkg/PortfolioAnalytics/sandbox/symposium2013/R/chart.UnStackedBar.R
Log:
- handles xts objects correctly for xaxis labels

Modified: pkg/PortfolioAnalytics/sandbox/symposium2013/R/chart.UnStackedBar.R
===================================================================
--- pkg/PortfolioAnalytics/sandbox/symposium2013/R/chart.UnStackedBar.R	2013-10-07 01:53:33 UTC (rev 3208)
+++ pkg/PortfolioAnalytics/sandbox/symposium2013/R/chart.UnStackedBar.R	2013-10-07 01:54:19 UTC (rev 3209)
@@ -10,7 +10,10 @@
   # if (wrap) 
   #   row.names = sapply(rownames(object), function(x) paste(strwrap(x, wrap.rownames), collapse = "\n"), USE.NAMES = FALSE)
   rotate = rotate[1]
-  row.names = sapply(rownames(w), function(x) paste(strwrap(x,10), collapse = "\n"), USE.NAMES=FALSE)
+  if(is(w, "xts"))
+    row.names=index(w)
+  else
+    row.names = sapply(rownames(w), function(x) paste(strwrap(x,10), collapse = "\n"), USE.NAMES=FALSE)
   if(rotate=="vertical"){
     par(oma = c(4,8,2,1), mar=c(0,1,0,1)) # c(bottom, left, top, right)
     layout(matrix(c(1:NCOL(w)), nr = 1, byrow = TRUE))
@@ -47,7 +50,7 @@
         mtext(colnames(w)[i], side= 3, cex=1, adj=0)
       } 
       else{
-        barplot(w[,i], col=colorset[i], horiz=FALSE, ylim=c(0,max(w)), axes=FALSE, names.arg="", ylab=colnames(w)[i], ...)
+        barplot(w[,i], col=colorset[i], horiz=FALSE, ylim=c(0,max(w)), axes=FALSE, names.arg=rep("",length(w[,i])), ylab=colnames(w)[i], ...)
         abline(h=0, col="darkgray")
         if(equal.line)
           abline(h=1/NROW(w), col="darkgray", lty=2)