grays <- rep("", 256)
for (i in 1:256)
{
  hex2 <- sprintf("%02x", i-1);
  grays[i] <- paste0("#", hex2, hex2, hex2)
}
barplot(rep(1,256), col=grays, yaxt="n", border=NA, space=0)