Use grey levels for graphs.

[loba-papers.git] / loba-besteffort / data / script.r

diff --git a/loba-besteffort/data/script.r b/loba-besteffort/data/script.r
index 236cfd036978c193b27093020ba767bf3e9e574d..68d78a90b79980bd6f8d0d4ee7cb359587e82af4 100644 (file)
--- a/loba-besteffort/data/script.r
+++ b/loba-besteffort/data/script.r
@@ -131,23 +131,30 @@ draw2 <- function(dset = ds,
 
   ## remove first column (aka "Algo")
   dset.mat <- as.matrix(dset.wide[-1])
+  nc <- nrow(dset.mat)
 
   dset.plot <- dset.mat[, c(FALSE,FALSE,TRUE)]
   barplot(dset.plot, beside=TRUE,
           names.arg=sub("^[^.]*\\.", "", colnames(dset.plot)),
-          col=rainbow(nrow(dset.mat), s=.5))
+          col=gray.colors(nc)
+#          col=rainbow(nc, s=.5)
+          )
 
   dset.plot <- dset.mat[, c(FALSE,TRUE,FALSE)]
   barplot(dset.plot, beside=TRUE,
           axes=FALSE, axisnames=FALSE, add=TRUE,
           legend.text=TRUE,
           args.legend=list(x="topleft", inset=c(.02,0), title="Algorithms"),
-          col=rainbow(nrow(dset.mat)))
+          col=gray.colors(nc)
+#          col=rainbow(nc)
+          )
 
   dset.plot <- dset.mat[, c(TRUE,FALSE,FALSE)]
   barplot(dset.plot, beside=TRUE,
           axes=FALSE, axisnames=FALSE, add=TRUE,
-          col=rainbow(nrow(dset.mat), v=.5))
+          col="white"
+#          col=rainbow(nc, v=.5)
+          )
 
   ## finally, set titles
   t <- paste0(dset$Mode[1], dset$Distrib[1], " / ",
@@ -186,6 +193,7 @@ msg("... with draw2()...")
 draw2(draw_distrib="N")
 }
 
+pdf.options(colormodel="grey")
 system("mkdir -pv graphs")
 for (m in c("R", "I")) {
   for (d in c("1", "N")) {