ggplot2在geom_bar边框中存在间隙

Question

在ggplot2中绘制带有边框的条形图时遇到了问题。边框在某些角（尤其是每个条的左上角）处未正确连接，从而导致图形看起来很奇怪。这是我正在使用的代码：

dat1 <- data.frame(
  time = factor(c("Lunch","Dinner","Lunch","Dinner"), levels=c("Lunch","Dinner")),
  total_bill = c(13.53, 16.81, 16.24, 17.42)
)

ggplot(data=dat1, aes(x=time, y=total_bill, fill=time)) +
  geom_bar(stat="identity", position=position_dodge(), colour="black" ) +
  scale_fill_manual(values=c('white','white')) +
  theme_classic()

哪个生产：

例如，使用较粗的边框可以更明显地看到左上角的问题。

是否有某种方法可以防止这种情况的发生，即具有平滑的连续边框？预先感谢您的帮助！