5

我正在尝试制作一个（1 行，3 列）条形图数组，它们都具有相同的条形宽度。

所有三个条形图都有不同数量的观测值，因此每个图的条形宽度最终不同（即，观测值最多的图具有最窄的条，而观测值最少的图具有最宽的条）。我从barplot {graphics} R文档中了解到，

“除非指定，否则指定单个值将没有可见的效果xlim”

但是，我x labels是字符串，所以我不确定如何指定xlim. 我不介意我的地块宽度是否不同，但我需要以某种方式指定吗？

这是一些假数据和我正在使用的代码...谢谢您的帮助。

height4plot1 <- c(1,6,9,2,3,10,7,15)
names4plot1 <- c("P1","P2","P3","P4","P5","P6","P7","P8")

height4plot2 <- c(5,4,10,2)
names4plot2 <- c("M1","M2","M3","M4")

height4plot3 <- c(4,12)
names4plot3 <0 c("U1","U2")

par(mfrow=c(1,3),
    mar=c(10,5,2,1),
    cex.axis=0.7,
    mgp=c(3,0.5,0))
barplot(height4plot1,
    names.arg=names4plot1,
    las=3,
    axes=TRUE,
    axisnames=TRUE,
    ylab="YLAB",
    ylim=ylim,
    plot=TRUE,
    main="PLOT1",
    width=1)
barplot(height4plot2,
    names.arg=names4plot2,
    las=3,
    axes=TRUE,
    axisnames=TRUE,
    ylim=ylim,
    plot=TRUE,
    main="PLOT2",
    width=1)
barplot(height4plot3,
    names.arg=names4plot3,
    las=3,
    axes=TRUE,
    axisnames=TRUE,
    ylim=ylim,
    plot=TRUE,
    main="PLOT3",
    width=1)
4

2 回答 2

1

如果没有诸如 etc. 之类的变量height4plot1，就很难测试您的代码和修改，但这里有一些可能性：

您可以width=0.8为每个图指定，xlim=c(0,maxnum)其中 maxnum 是不同图中的最大条数。这将在每个较小的条形图中留下一个空白部分。

您可以填充较短的高度向量，NA直到它们的长度相同（这仍然会给出空白部分）。

您可以将 3 个向量连接在一起并制作一个箱线图，可能对 3 个组进行不同的着色以帮助区分它们。该abline函数可用于在组之间添加分隔线（并参见spacebarplot 的参数，或包含“NA”作为分隔线以在组之间提供更多空间）。您可以使用返回值来帮助将标题放置在每个组之上。

您可以使用layout而不是par将您的 3 个绘图区域设置为具有不同的宽度，但是获得精确的宽度比率以给出完全相同大小的条并不简单（尽管您可能会通过反复试验来接近）。如果您真的想要这条路线grconvertX，那么optim可能会有所帮助。

我建议上面的第二个选项。

于 2012-11-12T20:08:30.847 回答
1

我用我的替换了您不可复制的示例，并且似乎有效。barplot 的 xlim 参数是一个整数值，范围从 1 到组数：

tN <- table(Ni <- stats::rpois(100, lambda=5))
opar <- par(mfrow=c(1,3),
    mar=c(10,5,2,1),
    cex.axis=0.7,
    mgp=c(3,0.5,0))
barplot(tN[1:3],
   xlim=c(1, length(tN) ), 
    las=3,
    axes=TRUE,
    axisnames=TRUE,
    ylab="YLAB",
    plot=TRUE,
    main="PLOT1",
    width=1)
barplot(tN[1:4],
   xlim=c(1, length(tN) ), 
    las=3,
    axes=TRUE,
    axisnames=TRUE,
    plot=TRUE,
    main="PLOT2",
    width=1)
barplot(tN[1:5],
   xlim=c(1, length(tN) ), 
    las=3,
    axes=TRUE,
    axisnames=TRUE,
    plot=TRUE,
    main="PLOT3",
    width=1)    
par(opar)
于 2012-11-12T20:13:42.557 回答