如何在条形图中创建“差距”？

Question

如何在条形图中实现“差距”，如下所示：

我试图在列联表中创建一个空列，但不能。

示例数据：

groups = c("A", "B")
choices = c("orange", "apple", "beer")
dat <- data.frame(
    group = rep(groups, c(93, 94)),
    choice = factor(c(
            rep(choices, c(51, 30, 12)),
            rep(choices, c(47, 29, 18))
        ),
        levels = choices
    )
)
barplot(table(dat), beside = TRUE)

Answer 1

您可以通过以下方式实现此目的：

barplot(table(dat), beside = TRUE,
        space = c(0, 0, 1.5, 0, 3, 0))

space值的逻辑是繁琐的：

• 在第一个第一个值为0
之前，您不需要空格
• 第一个和第二个小节之间不需要空格（两个“橙色”小节）
• 在第一个“apple”栏之前，你需要标准的空间量。
• 在第一个“啤酒”栏之前你需要额外的空间

结果：