R 并排条形图，按 bin 大小绘制比例尺

Question

我正在尝试按我的 bin 大小(列名)缩放条形图条形宽度，以显示数据的偏度(例如，11-10 bin 将比 251-500 bin 窄)。我正在使用并排条形图，使用行名作为我的组(A，B)。似乎 width= 参数仅采用前 2 个宽度值，并为每个组分配一个，而不是单独为每个条形分配宽度值。谁能建议一种方法来做到这一点？

df <- rbind(runif(10,0,1), runif(10,0,1))
rownames(df) <- c("A", "B")
colnames(df) <- c("0", "1-10", "11-20", "21-30", "31-40", "41-50", "51-75",    "76-125", "126-250", "251-500") 
bar_width = rep(c(1, rep(10,5), 25, 50, 125, 250), each=2)

barplot(df, width=bar_width, beside=T)

Answer 1

这是基本 R 绘图的尝试:

bp <- barplot(c(df), width=bar_width, 
        space=rep(c(40,0),ncol(df))/mean(bar_width), col=gray.colors(nrow(df)))
axis(1, at=colMeans(matrix(bp,nrow=2)), labels=colnames(df),
     lwd=0, lwd.tick=1, cex.axis=0.7, las=2)