增加R中堆叠条形图中条形之间的间距

我有如下数据：

data_in <- read_table2("Programcomponent    name    descending_order    descending_order2   group   value
A   Biology 1   1   Group1  1445
B   Science 2   2   Group1  832
C   Sociology   3   4   Group1  661
C-2 Sociology2  4   4   Group1  342
D   Arts    5   6   Group1  221
B-2 Science2    8   3   Group1  150
A   Biology 1   1   Group2  901
B   Science 2   2   Group2  580
C   Sociology   3   4   Group2  442
C-2 Sociology2  4   4   Group2  293
D   Arts    5   6   Group2  163
B-2 Science2    8   3   Group2  142
A   Biology 1   1   Group3  321
B   Science 2   2   Group3  170
C   Sociology   3   4   Group3  251
C-2 Sociology2  4   4   Group3  107
D   Arts    5   6   Group3  93
B-2 Science2    8   3   Group3  108
")

---

使用

facet\u网格

data_in$grp = substring(data_in$Programcomponent, 0, 1)
graphics.off()
ggplot(data_in, aes(x = Programcomponent, y = value, fill = group)) +
    geom_bar(position = "identity", stat = "identity") + 
    facet_grid(~ grp, space = "free", scales = "free")

---

谢谢，我想刻面网格是一种选择。我的实际X程序组件没有命名为A、B等，有没有一种方法可以像你一样使用字母表来子集，同时显示真实的名称？我将更新我的示例数据！如果我理解正确，您可以添加以下行以将程序组件代码转换为名称<代码>+量表（标签=c（“A”=“生物学”，“B”=“科学”，“c”=“社会学”，“c-2”=“社会学2”，“B-2”=“科学2”，“D”=“艺术”））

data_in$grp = substring(data_in$Programcomponent, 0, 1)
graphics.off()
ggplot(data_in, aes(x = Programcomponent, y = value, fill = group)) +
    geom_bar(position = "identity", stat = "identity") + 
    facet_grid(~ grp, space = "free", scales = "free")