r - “scale_x_date()” 日期中断不均匀 - ggplot2

Question

我有一个数据集，其中日期的间隔不均匀。通过使用 scale_x_date()，我可以按时间顺序获得轴标签，但也包括中间的额外日期（我需要消除）。所附图片应该给出整个图片。基本上，我不想要两者之间的差距。谢谢。看看轴

示例代码：

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")

标签： rggplot2shiny