R：ggplot2 x轴在边缘被切割

Question

我使用以下代码生成了一个图表：

plot 
final <- plot + test_neu + geom_vline(xintercept=as.integer(as.POSIXct("2017-10-01")), col = "black", linetype=2)
         + coord_cartesian(ylim = c(0.6,1.9)) 
         + scale_x_datetime(expand = c(0, 0))

图表如下所示：

如果您正在查看x轴的末尾，您会看到“＆＃34; Okt＆＃34;有点切割。我如何处理这个以显示完整的单词？