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

Question

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

我在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)