减少ggplot2中的条形组之间的空间

Question

我无法在geom_plot中删除多余的空白侧翼组的酒吧。

我想做Roland在这里实现的目标：删除ggplot2条之间的空间，但是当我尝试实现他的解决方案时，出现错误“警告消息： geom_bar()不再具有binwidth参数。请geom_histogram()改为使用。”

我将这行代码添加到绘图中（尝试不同的宽度）：

  geom_histogram(binwidth = 0.5) +

它返回“错误：stat_bin（）不能出于审美目的使用。” 而且没有情节。

数据：

mydf<- data.frame(Treatment = c("Con", "Con", "Ex", "Ex"),
             Response = rep(c("Alive", "Dead"), times=2),
             Count = c(259,10,290,21))

 aPalette<-c("#009E73", "#D55E00")

情节：

example<-ggplot(mydf, aes(factor(Response), Count, fill = Treatment)) + 
  geom_bar(stat="identity",position = position_dodge(width = 0.55), width = 
  0.5) + 
  scale_fill_manual(values = aPalette, name = "Treatment") + #legend title
  theme_classic() +
  labs(x = "Response", 
  y = "Count") + 
  scale_y_continuous(breaks = c(0,50,100,150,200,250,275), expand = c(0,0), 
  limits = c(0, 260)) +
  theme(legend.position = c(0.7, 0.3)) +
  theme(text = element_text(size = 15)) #change all text size

  example

返回值：

注意：我不知道为什么会收到“警告消息：删除了1个包含缺失值的行（geom_bar）”。但我并不担心，因为使用我的实际数据不会发生这种情况。我不会更改代码，所以不必重新绘制图形，而是进行更改

limits = c(0, 260) 

至

limits = c(0, 300)

将显示所有条形图。万一别人有类似的问题。我将查找与此问题相关的帖子，并在我可以链接答案时使此编辑更加简洁