barplot() does not draw bars correctly in R 1.9.0 (PR#6776)

On Fri, 16 Apr 2004 11:40:46 +0200 (CEST) phgrosjean@sciviews.org wrote:

Bars are not stacked, but superimposed. This happens even with the
first example of barplot:

     tN <- table(Ni <- rpois(100, lambda=5))
     r <- barplot(tN, col='gray')

AFAICS, this problem occurs exactly for 1-way tables like above. If

barplot(as.vector(tN), col = "gray")

is used instead, everything is as it was in 1.8.1. The reason is that in
the new version of barplot.default the following code (which
remained unchanged) does not do anymore what do what one would want:

   if (is.vector(height)) {
       height <- cbind(height)
       beside <- TRUE
   }
   else if (is.array(height) && (length(dim(height)) == 1)) {
       height <- rbind(height)
       beside <- TRUE
   }

that is, vectors and 1-way tables are treated differently which lead to
the problem. Using cbind() instead of rbind() in the second half,
overcomes this problem.
However, the colors are then chosen in the same way as for vectors,
resulting in different colors than in R 1.8.1. Maybe the default color
choice should then be modified as well.