막대그래프 (Barplot)

막대그래프 (Barplot) Start.

BioinformaticsAndMe

# barplot( ) 함수를 이용해 막대 그래프를 그려보자.

.

- 위 파라미터들은 barplot 에 사용되는 옵션이니 하나씩 테스트해보면 이해가 빠르겠다.

# 기본 bar 그래프

> x <- c(1,2,3,4,5)

> barplot(x)

# 그래프 가로로 출력 (horiz=T)

> x <- c(1,2,3,4,5)

> barplot(x, horiz=T)

# 그룹으로 묶어서 출력 (beside=T)

> x <- matrix(c(1,2,3,4),2,2)

> barplot(x, beside=T, names=1:2)

# 그룹으로 묶어서 가로로 출력(beside, horiz=T)

> x <- matrix(c(1,2,3,4),2,2)

> barplot(x, beside=T, horiz=T, names=1:2)

> barplot(x, horiz=T, names=1:2)

# 여러 가지 옵션을 추가하여 그래프 그리기

> apple <- c(100,120,140,130,150)

> barplot(apple, main= "Apple", xlab="요일", ylab="금액", names.arg=c("월","화","수","목","금"),  border="green", density=c(10,20,30,40,50))

# 여러 막대그래프를 그룹으로 묶어서 한꺼번에 출력

> apple <- c(100,120,140,130,150)

> peach <- c(180,200,210,190,170)

> berry <- c(110,150,160,90,120)

> fruits <- data.frame(APPLE=apple, PEACH=peach, BERRY=berry)

> fruits

  APPLE PEACH BERRY

1   100   180   110

2   120   200   150

3   140   210   160

4   130   190    90

5   150   170   120

> barplot(as.matrix(fruits), main="FRUITS", ylab="수량", beside=T, col=rainbow(5), ylim=c(0,400))

> legend("topright", c("월","화","수","목","금"), cex=0.8, fill=rainbow(5))

# 하나의 막대그래프에 여러가지 내용 출력하기

> barplot(t(fruits), main="FRUITS", ylab="판매량", ylim=c(0,900), col=rainbow(3), space=0.1, cex.axis=0.8, las=1, 

names.arg=c("월","화","수","목","금"), cex=0.8)

> legend(3.5, 900, names(fruits), cex=0.8, fill=rainbow(3))

# 조건을 주고 그래프 그리기

> peach <- c(180,200,210,190,170)

> colors <- c( )

> for( i in 1:length(peach)){

if (peach[i] >= 200) {colors <- c(colors, "red")}

else { colors <- c(colors, "blue")}

   }

> barplot(peach, main="PEACH", xlab="요일", ylab="수량", names.arg=c("월","화","수","목","금"), col=colors)

막대그래프 (Barplot) End.

BioinformaticsAndMe