控制条形图的总宽度

Question

如何摆脱蓝线所在的所有空间？

数据：

data = data.frame(is_repeat = c(0,0,0,1,1,1,1,1,1,1),
                  value = c(12000,8000,20000,14000,15000,11000,20000,60000,20000, 20000))

data$is_repeat = factor(data$is_repeat, levels = c(0,1),
                                        labels = c("One-time", "Repeat"))

简介：

ggplot(data, aes(is_repeat, value)) +
      geom_bar(stat = "identity", width = 0.3) + 
      ggtitle("Title") + 
      xlab("Type of event") +
      ylab("Total Value") +
      ylim(0, 150000) +
      theme_minimal()

编辑：我查看了这个问题并没有解决我的问题。我的猜测是，在另一个问题的情节中，有4个条形，所以看起来很充实。我想减少X轴的总宽度。

其他编辑：已添加数据。

Answer 1

如果您想要完全移除酒吧之间的空间，并且您不必考虑酒吧的宽度，您可以使用：

theme(aspect.ratio=1)

或scale_x_discrete(expand = c(0,0), limits=c("One-time", "Repeat"))

并将图表末尾的空格移到您需要的栏中

  ggplot(data, aes(is_repeat, value)) +
  geom_bar(stat="identity", position="stack", width=1) + 
  ggtitle("Title") + 
  xlab("Type of event") +
  ylab("Total Value") +
  ylim(0, 150000) + 
  scale_x_discrete(expand = c(0,0), limits=c("One-time", "Repeat")) +
  theme_minimal()

所以你的代码看起来像这样：

width=1

输出：

您可以通过更改{{1}}

在栏之间添加空格