如何使用ggplot在x轴上订购日期

Question

我正在尝试使用ggplot绘制分组的条形图。我注意到日期变量被视为因子，而绘图R随机改变其顺序。

我尝试使用as.date(X,format="%m/%d/%Y")转换日期但没有帮助。

这是我的代码，

A<-data.frame(A)
A$Date<-as.Date(A$Date, format = "%m/%d/%Y")
Name=XYZ
B<-A[c(1,2,5,6)]
C<-melt(B,id.vars='Date')
C$Date<-as.Date(C$Date, format = "%m/%d/%Y")
ggplot(C,aes(x=Date,y=value))+
 geom_bar(aes(fill = variable), position = "dodge", stat="identity")+
 scale_fill_brewer(palette="Set1")+
 labs(x='Date',y='%Return')+ggtitle('Model')+
 theme(plot.title = element_text(hjust = 0.5))+
 theme(axis.text.x = element_text(angle = 90, hjust = 1, size=7,color="Black"))+
 theme(legend.position = 'bottom')+
 theme(legend.text=element_text(size=8))+coord_cartesian( ylim=c(-6, 6))

在将Date转换为正确的日期格式之前，我得到了以下输出，但没有Date的顺序。

！

转换Date后，输出会发生巨大变化：

！

不确定我错过了什么。

提前致谢！