如何居中stat_summary条形图的条形？

Question

我正在尝试为带有R的项目报告绘制一些图表。我大部分时候都取得了成功，但是我有一些条形图只有2个条形图，并且这些条形图的位置很奇怪。并没有真正居中，右侧没有太多空间。

该图目前看起来像这样：

上述示意图的代码：

Hello World!

根据要求输出dput（MyData）。该数据集很小，因为它是一个小项目，但我仍然想提供适当的图表。

ggplot(MyData, aes(x=Geschlecht, y=Durchschnitt)) +
  coord_cartesian(xlim = c(0, 5)) +
  aes(fill = Geschlecht) +
  scale_fill_brewer(name = "Geschlecht:", labels = c("Männlich", "Weiblich")) +
  stat_summary(fun.y="mean", geom="bar") +
  stat_summary(aes(label=round(..y..,2)), fun.y=mean, geom="text", size=3, vjust = 2) +
  labs(title = "Durchschnittliche Winkelabweichung abhängig vom Geschlecht", x = "Öfters in Wäldern unterwegs", y = "Durchschnittliche Abweichung in Grad") +
  theme_gray() +
  theme(legend.title = element_text(color = "black", size = 12), legend.position="bottom", axis.title.x =element_blank(), axis.text.x=element_blank(), axis.ticks.x=element_blank())