如何使用barplot函数在R中的绘图窗口中制作相同大小的条形图条

Question

我想在同一个窗口中绘制3个图。每个都有不同数量的条形图。如何在较小的条形图中不做NA的情况下，将它们制作成相同尺寸并且彼此靠近（彼此距离相同）。示例代码如下。我想指出我的真实数据将是从数据帧$ columns绘制数字而不是数字向量，如下所示。我相信有这种神奇的方法可以做到这一点，但似乎无法在网上找到有用的信息。感谢

pdf(file="PATH".pdf");
par(mfrow=c(1,3));
par(mar=c(9,6,4,2)+0.1);
barcenter1<- barplot(c(1,2,3,4,5));
mtext("Average Emergent", side=2, line=4);
par(mar=c(9,2,4,2)+0.1);
barcenter2<- barplot(c(1,2,3));
par(mar=c(9,2,4,2)+0.1);
barcenter3<- barplot(c(1,2,3,4,5,6,7));

或者有没有办法而不是使用par（mfrow ....）来制作一个情节窗口，我们可以将栅栏中心数据分组到单个地块上，条形图之间有空格吗？这样一切都是间隔的，看起来一样吗？

Answer 1

使用参数xlim和width：

par(mfrow = c(1, 3))
    par(mar = c(9, 6, 4, 2) + 0.1)
    barcenter1 <- barplot(c(1, 2, 3, 4, 5), xlim = c(0, 1), width = 0.1)
    mtext("Average Emergent", side = 2, line = 4)
    par(mar = c(9, 2, 4, 2) + 0.1)
    barcenter2 <- barplot(c(1, 2, 3), xlim = c(0, 1), width = 0.1)
    par(mar = c(9, 2, 4, 2) + 0.1)
    barcenter1 <- barplot(c(1, 2, 3, 4, 5, 6, 7), xlim = c(0, 1), width = 0.1)

引入零：

df <- data.frame(barcenter1 = c(1, 2, 3, 4, 5, 0, 0), 
                 barcenter2 = c(1, 2, 3, 0, 0, 0, 0), 
                 barcenter3 = c(1, 2, 3, 4, 5, 6, 7))
barplot(as.matrix(df), beside = TRUE)

使用ggplot2，您可以获得以下内容：

df <- data.frame(x=c(1, 2, 3, 4, 5,1, 2, 3,1, 2, 3, 4, 5, 6, 7),
y=c(rep("bar1",5), rep("bar2",3),rep("bar3",7)))
library(ggplot2)
ggplot(data=df, aes(x = x, y = x)) +
  geom_bar(stat = "identity")+
  facet_grid(~ y)

对于您在第二条评论中提到的选项，您需要：

x <- c(1, 2, 3, 4, 5, NA, 1, 2, 3, NA, 1, 2, 3, 4, 5, 6, 7)
barplot(x)