R并排条形图，按箱体大小比例尺

Question

我正在尝试通过我的柱状图大小(列名称)来缩放条形图的宽度，以显示数据的偏斜度(例如，11-10柱状图将比251-500柱状图窄)。我使用并排的条形图，使用行名作为我的组(A，B)。width=参数似乎只接受前两个宽度值，并将一个宽度值分配给每组，而不是将宽度值分别分配给每个条形图。有没有人能建议一种方法呢？

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)

​

​