col_bar_scale

col_bar_v <- function(col, data.min, data.max){
  plot(c(0, 10), c(data.min, data.max), type = "n", bty = "n", xaxt = "n", yaxt = "n", xlab = "", ylab = "")
  tk <- pretty(c(data.min, data.max), 7)
  tk <- tk[c(-which(tk < data.min), -which(tk > data.max))]
  axis(2, las = 1, at = tk, col = NA, col.ticks = 1)
  inc <- (data.max - data.min)/ length(col)
  for(i in seq(1, length(col))){
    rect(0, data.min + inc * (i- 1), 10, data.min + inc * i, col = col[i], border = NA)
  }
}


col_bar_h <- function(col, data.min, data.max, n.tick = 5){
  plot(c(data.min, data.max), c(0, 10), type = "n", bty = "n", xaxt = "n", yaxt = "n", xlab = "", ylab = "")
  tk <- pretty(c(data.min, data.max), n.tick + 2)
  tk <- tk[c(-which(tk < data.min), -which(tk > data.max))]
  axis(1, at = tk, col = NA, col.ticks = 1)
  inc <- (data.max - data.min)/ length(col)
  for(i in seq(1, length(col))){
    rect(data.min + inc * (i- 1), 0, data.min + inc * i, 10, col = col[i], border = NA)
  }
}