固定极限条形图中的单一观察结果导致非正常宽度条形？

Question

我正在尝试绘制一个以日期为 x 轴的条形图。我想自己设置限制，但如果我这样做并且只有一个观察结果，条形就会变得非常小。

# correct plot
economics2 <- economics %>%
  subset(date> "2010-01-01" & date < "2011-06-01") %>%
  head(2)

ggplot(economics2, aes(date, unemploy))+
  geom_bar(stat="identity")+
  scale_x_date(limits = as.Date(c("2009-01-01","2012-01-01")))

这会生成一个正确的图 - 但如果我将 head 更改为 1，则会生成一个错误的图：

# plot with error / slim bar
economics2 <- economics %>%
  subset(date> "2010-01-01" & date < "2011-06-01") %>%
  head(1)
  
ggplot(economics2, aes(date, unemploy))+
  geom_bar(stat="identity")+
  scale_x_date(limits = as.Date(c("2009-01-01","2012-01-01")))

我已经尝试过使用 xlim 但它导致了同样的问题。如果我手动修复 geom_bar 参数宽度，它会起作用。另一方面，我必须想出一个关于如何自己选择正确条宽的解决方案。

我错过了什么？