固定时间序列条形图的宽度

我有以下 ggplot

library(ggplot2)
library(zoo)
dat = rbind(data.frame('Quarter' = as.yearqtr(as.Date(c('2000-01-01', '2002-01-01', '2004-01-01', '2006-01-01'))), 'Val' = c(1,2,3,4), type = rep('A', 4)), 
            data.frame('Quarter' = as.yearqtr(as.Date(c('2000-01-01',  '2004-01-01' ))), 'Val' = c(10,11), type = rep('B',2)))

ggplot(dat, aes(x = Quarter, y = Val)) +
  geom_bar(aes(fill = type), position = 'dodge', stat = 'identity', width = .5)

正如你所看到的,尽管存在争论,但条的宽度是不同的 width = .5 。我有时间序列数据,所以不想将x轴更改为因子。

在当前设置中,是否有任何方法可以固定条形图的宽度。