배경

여러 가지 다른 조건하에서, 나는 upregulate의 유전자수와downregulate의 유전자수를 도표로 묘사하고 싶다.
처음에는 피라미드 그림을 사용하고 싶었지만 barplot으로 완성했기 때문에 적어 두었다.

데이터 준비

df <- data.frame(up=c(1,3,5), down=c(2,5,7))
d1 <- matrix(1:6 ,3, 2)
d2 <- matrix(6:1 ,3, 2)

result

> df
  up down
1  1    2
2  3    5
3  5    7
> d1
     [,1] [,2]
[1,]    1    4
[2,]    2    5
[3,]    3    6
> d2
     [,1] [,2]
[1,]    6    3
[2,]    5    2
[3,]    4    1

드로잉

barplot의 add=T 이 옵션은 간이다.
이후 ylim로 조정한다.

barplot( df$up, ylim=c( -1*max(df$down), max(df$up) ) ,
         main="test", ylab="down                 up")
barplot( -1 * df$down, add=T )

사용할 수도 있습니다beside=T.

barplot( d1, beside=T, main="test", ylab="down             up",
         names.arg=c("A","B"), ylim=c( -1 * max(d2), max(d1)) )
barplot( -1 * d2, beside=T, add=T )