代码
gdp=matrix(c(450, 500, 700, 800, 1500, 1600), nrow=2, byrow=T) #构造数据矩阵
rownames(gdp) = c('China', 'USA') #矩阵行命名
colnames(gdp) = c('2002', '2004', '2006') #矩阵列命名
par(fig=c(0, 0.5, 0.4, 1))
barplot(gdp, beside=T, legend.text=c(attr(gdp, "dimnames")[1][[1]])) #绘制条形图,不进行叠加
par(fig=c(0.5, 1, 0.4, 1), new=TRUE)
barplot(gdp, legend.text=c(attr(gdp, "dimnames")[1][[1]])) #绘制条形图,进行叠加
par(fig=c(0, 1, 0, 0.6), new=TRUE)
dotchart(gdp, xlim=range(0, max(gdp))) #绘制cleveland点图
效果