r - 堆叠的条形图：条形内的间距

Question

我曾尝试找到具有类似问题的问题，但没有成果。如果这个问题已经被要求，请在那里指导我。

---

如何在堆叠条形图的每个条形内添加空间？

df <- data.frame(Type =sample(LETTERS[1:5],14,replace = T), 
                  ET =sample(c('A1','A2','B3','B6','C5'),14,replace = T))
ggplot(df, aes(x=Type, fill = as.factor(ET))) + geom_bar()

例如，A栏内两种类型（颜色）之间的空间。

可以选择使用以下命令对两个变量执行此操作，但不确定单个变量图

ggplot(data, aes(x=xvar,y=yvar,fill=zvar)) + geom_bar(stat="identity")

试过这个命令，但没有奏效：

df %>% group_by(Type) %>% count(ET) %>% data.frame() %>%  ggplot(aes(x=Type, y=n, fill = ET)) + geom_bar(stat="identity")

Answer 1

如果有人正在寻找我正在寻找的答案，请查看下面的片段；它提供了类似的输出

ggplot(df, aes(x = Type, fill = as.factor(ET))) + 
  geom_bar(colour = "white", size = 2)

由于上述答案基于对该问题的评论，因此我不接受此答案。