如何在條形圖中創建“間隙”？

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值的邏輯很奇怪：

• 在第一個bar-first值為0之前不需要空格
• 您不需要在第一欄和第二欄（兩個“橙色”欄）之間留出空間
• 您需要在“蘋果”的第一個小節之前保留標准空間
• 您在第一個“啤酒”欄之前需要額外的空間

結果：