在ggplot中的热图中将x轴重新格式化为日期

Question

我正在尝试使用ggplot制作热图，但我无法将x轴格式化为日期。
当我运行基本代码

时

kbsdiv$date<- as.Date(kbsdiv$date , format = "%m/%d")
热图看起来不错，但日期顺序错误，x轴标签真的挤在一起。

然后我将x轴重新格式化为日期     ggplot(kbsdiv13CTN, aes(x=date, y=rev(depth), fill=mean)) + geom_tile() + scale_fill_gradient(low = "white", high = "black") + scale_y_reverse() + scale_x_date(breaks = date_breaks("weeks"),labels = date_format("%b"))

CollectionView 。 热图瓷砖变得非常狭窄，不再填满图像。它们基本上看起来像很窄的条形，它看起来不再像热图。我想张贴一张照片，但他们不会让我。

有人可以帮忙吗？