控制条形图的总宽度

Question

How to get rid of all this space where the blue lines are?

Data:

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"))

Plot:

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()

edit: I looked at that question and it did NOT solve my problem. My guess is that in the other question's plot, there are 4 bars, so it looks filled. I want to reduce the total width of the X axis.

another edit: Added data.

Answer 1

If you are looking to remove the space between the bars completely and you don't mind the width of bars you could do it with:

 geom_bar(stat="identity", position="stack", width=1)

or theme(aspect.ratio=1)

And to remove the space from the end of the plot to the bars you need

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

So your code looks like this:

  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()

And the output:

You can add space between bars with changing the width=1