barplot - hayeong @ ウィキ

dat <- c(a,b,c,d)
barplot( matrix( dat, nrow = 2, ncol = 2 ), labels = names(dat), horiz = TRUE ) #積み重ね棒

---