R bar chart

barplot() 함수를 사용한다.

세로 막대

> rm(list=ls())
> # DBILITY 부서별 매출액 
> library(graphics)
> 
> amount<-c(100,50,120,150)# 매출액
> dept<-c('소프트웨어개발팀','기술연구소','기술지원팀','기술영업팀')
> bp<-barplot(amount, width = 1, names.arg = dept, col = rainbow(length(amount)), main = 'DBILITY 부서별 매출액', xlab ='부서' , ylab = '매출액', ylim = c(0,200))
> text(x=bp, y=amount, labels = round(amount), pos = 3)

가로 막대

> bp<-barplot(amount, width = 40, names.arg = dept, col = rainbow(length(amount)), main = 'DBILITY 부서별 매출액', ylab ='부서' , xlab = '매출액', xlim = c(0,200), ylim = c(0,200), horiz = TRUE)
> text(x=amount, y=bp, labels = round(amount), pos = 4)