Space 在 scale_x_discrete 中的 x 轴刻度线之间相距太远

Question

我正在使用 ggplot2 制作一个简单的图表，但是它有太多的白色 space。

我希望这两个点在 x 轴上靠得更近，这样整体图像就更小了。我正在使用 scale_x_discrete 和以下代码：

ggplot(box, aes(x=Garden, y=Fitness)) + 
geom_errorbar(aes(ymin=(Fitness-Error), ymax=(Fitness+Error)), 
colour="black", width=.05) +
geom_line() +
geom_point(size=6)+ 
theme(panel.background = element_rect(fill =  
'white'),axis.text=element_text(size=22), 
axis.title=element_text(size=28,face="bold"),legend.key = element_rect(fill = "white"), plot.title = element_text(size=30,face="bold", hjust=0.5),axis.title.y = element_text(margin = margin(t = 0, r = 20, b = 0, l = 0)), axis.ticks.length = unit(0, "lines"),legend.text=element_text(size=24),legend.title=element_text(size=26), legend.key.size = unit(1.5, 'lines'))+
ggtitle("Fitness Comparison") + labs(y="Ranked Fitness", x = "Common Garden") +
scale_x_discrete(labels=c("Warm" = "Warm Limit", "Cool" = "Cool Limit"), expand=c(0.2, 0))

Answer 1

减少两个误差线之间的白色 space 的一种方法是使用具有 scale_x_continuous 的连续 x 变量。

box <- data.frame(Garden=c("Cool","Warm"),
                  Fitness=c(2980,2050),
                  Error=c(50,50))

# Convert Garden from factor to numeric  
box$Garden <- as.numeric(box$Garden)

ggplot(box, aes(x=Garden, y=Fitness)) + 
geom_errorbar(aes(ymin=(Fitness-Error), ymax=(Fitness+Error)), colour="black", width=.05, lwd=1) +
geom_point(size=6)+ 
theme(panel.background = element_rect(fill='white'), 
      axis.text=element_text(size=22), 
      axis.title=element_text(size=28,face="bold"),
      legend.key=element_rect(fill = "white"), 
      plot.title=element_text(size=30,face="bold", hjust=0.5),
      axis.title.y=element_text(margin = margin(t = 0, r = 20, b = 0, l = 0)), 
      axis.ticks.length=unit(0, "lines"),
      legend.text=element_text(size=24),
      legend.title=element_text(size=26),
      legend.key.size = unit(1.5, 'lines')) +
      ggtitle("Fitness Comparison") + 
      labs(y="Ranked Fitness", x = "Common Garden") +
      scale_x_continuous(labels=c("Cool Limit","Warm Limit"), 
                         breaks=c(1,2), limits=c(0,3), expand=c(0,0))

Space 在 scale_x_discrete 中的 x 轴刻度线之间相距太远

Space between x-axis tick marks in scale_x_discrete too far apart

scale

ggplot2