学术图表通常情况下都以黑白为宜。在多类别的情况下，为了区分不同的类别常常需要借助阴影。下面是柱状图加上阴影的情况。

实现上面图形的R代码如下：

set.seed(123)
dat <- matrix(abs(round(rnorm(24)*100,0)),4)
row.names(dat) <- c('地区1','地区2','地区3','地区4')
colnames(dat) <- c('指标A','指标B','指标C','指标D','指标E','指标F')
dat
class(dat) # 数据需要为矩阵

par(mar=c(4,4,2,1)+0.1,cex=1)
barplot(dat,beside = TRUE, col = "gray40", ylim = c(0,max(dat) * 1.1),
        angle = c(180,90,45,0), density = c(20,20,20,0), las=1)
grid(nx=8,ny=8)
legend("topright", legend = row.names(dat), angle = angle1,
       density = c(40,40,40,0), box.col = "NA", inset = 0.02)
box()

参数解释：

数据需要转换成矩阵的类型

angel 指的是线条的角度，即水平线的旋转角度

density 指的是线条的稠密程度，值越大画的线越多