日期间隔不均匀的“ scale_x_date（）”-ggplot2

Question

我有一个数据集，其中日期间隔不均匀。通过使用scale_x_date（），我可以按时间顺序获得轴标签，但是中间的额外日期也包括在内（我需要消除）。所附图片应提供完整图片。基本上，我不要两者之间的差距。谢谢。 Take a look at the axis

示例代码：

df <- data.frame(date=c("2018-06-11", "2018-05-21", "2018-05-27", "2018-06-01", "2018-06-05"),
                 A=c(5, 3, 2, 7, 8))
df$date <- factor(format.Date(df$date, "%d-%b"), ordered = TRUE)
df$date <- as.Date(df$date, format = "%d-%b")

bp <- ggplot(df,
             aes(x = date, y = A),
             main = 'Bar Plot')
bp +
    geom_bar(stat = 'identity', fill = 'orange', width = 0.50) + 
    scale_x_date(breaks = df$date, date_labels = "%d-%b")