as.Date function 没有正确格式化 geom_bar 的日期 output

Question

我正在做一个项目，我正在尝试 plot 计数 y 轴上的聊天和 x 轴上的月/年。 我的日期在 excel 中，格式为月/日/年：5/6/19。 它作为字符加载，因此我使用以下代码将其更改为日期格式和 plot ：

#### Graph for Date and Chat Counts ####
df2$date <- as.Date(df2$date,"%d/%m/%y")
Plot2<-ggplot(df2) + aes(x =format(df2$date, "%Y-%m")) + 
  geom_bar()+
  scale_x_discrete(name= "Date (Year Month)")+
  scale_y_continuous(name = "Number of Chats per Month", limits=c(0,40), breaks=seq(0,40,1),expand = c(0, 0))+
  theme(axis.text.x=element_text(angle=90,margin = margin(b=.5, unit = "cm")))+
  theme(axis.ticks = element_blank())
show(Plot2)

这是我得到的 output：

https://i.stack.imgur.com/SlmZK.png

但我应该得到一个看起来像这样的 output：

[ https://i.stack.imgur.com/wXii0.png][1]

先感谢您！