在R中7个条形的条形图中的纹理？

Question

我在X中每个值有7个不同的类别.我使用条形图来绘制这些类别.这样的图形在彩色打印机中看起来很好,但如果我希望它在黑白中很好的话.您可以查看下面的图表.我想要有不同的颜色纹理,所以图形看起来很好的颜色和黑白打印机.

我在barplot函数中使用密度= c(10,30,40,50,100,60,80)作为密度参数.在barplot中还有其他方法可以做不同的纹理吗？

注意:我在barplot中尝试了角度值.然而,在这种情况下,它不是一个好的解决方案,因为并非所有的条都具有高值(即条的高度).

Answer 1

根据我的评论,您可能会发现以下内容:

# data generation ---------------------------------------------------------
set.seed(1)
mat <- matrix(runif(4*7, min=0, max=10), 7, 4)
rownames(mat) <- 1:7
colnames(mat) <- LETTERS[1:4]


# plotting settings -------------------------------------------------------
ylim <- range(mat)*c(1,1.5)
angle1 <- rep(c(45,45,135), length.out=7)
angle2 <- rep(c(45,135,135), length.out=7)
density1 <- seq(5,35,length.out=7)
density2 <- seq(5,35,length.out=7)
col <- 1 # rainbow(7)


# plot --------------------------------------------------------------------
op <- par(mar=c(3,3,1,1))
barplot(mat, beside=TRUE, ylim=ylim, col=col, angle=angle1, density=density1)
barplot(mat, add=TRUE, beside=TRUE, ylim=ylim, col=col, angle=angle2, density=density2)
legend("top", legend=1:7, ncol=7, fill=TRUE, col=col, angle=angle1, density=density1)
par(bg="transparent")
legend("top", legend=1:7, ncol=7, fill=TRUE, col=col, angle=angle2, density=density2)
par(op)