Homework#2

문제

blue=rbind(c(5,3,4,3),
           c(3,2,5,1))
dimnames(blue)<-list(c("A","B"),c("t1","t2","t3","t4"))
red=rbind(c(1.7,3.5,1.6,1.1),
          c(2.1,1.0,1.7,0.5))
dimnames(red)<-list(c("A","B"),c("t1","t2","t3","t4"))
blue

##   t1 t2 t3 t4
## A  5  3  4  3
## B  3  2  5  1

red

##    t1  t2  t3  t4
## A 1.7 3.5 1.6 1.1
## B 2.1 1.0 1.7 0.5

두 개의 그래프를 겹치게 그려 blue에 비해 red가 튀어나와 보이는 그래피를 그려라

barplot(blue,col=c("lightblue","blue"),ylim=c(0,10),xlim=c(0,9),
        space=c(0,1,1,1),axisnames=FALSE)
barplot(red,col=c("salmon","red"),ylim=c(0,10),axes=FALSE,
        space=c(0.5,1,1,1),add=TRUE)