[R 그래프] 여러 집단의 전후변화 비교 막대그래프

library(lsr)

#데이터
dt1=c(1,2,3,4,5,6,7,8,9,10)
dt2=c(1,2,3,4,5,6,7,8,9,100)

#통계량계산(중앙값절대편차, 평균절대편차, 표준편차)
dt_dev=c(mad(dt1),mad(dt2),aad(dt1),aad(dt2),sd(dt1),sd(dt2))
names(dt_dev)=rep(c("dt1","dt2"),3) #벡터 원소이름지정

barplot(dt_dev,beside=TRUE,col=c("red","red","blue","blue","green","green"))
legend("topleft",legend=c("MAD","AAD","SD"),fill=c("red","blue","green"),border="white",cex=1.2)