使用x轴上的日期变量添加日期标签的特定刻度

Question

我有一个带有两个变量的df：

Observations: 342
Variables: 2
$ date   <date> 2016-04-02, 2016-04-03, 2016-04-04, 2016-04-05, 2016-04-06, 2016-04-07, 2016-04-08, 2016...
$ visits <int> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,...

我想根据日期绘制访问量，但在我的x轴上，我希望看到一些特殊事件发生时的日期的特定刻度（显示之后立即出现更多访问）。代码现在向我展示了一些日期当然，但我想要添加一些日期，让我们说＆＃34; 2016-08-10＆＃34;和＆＃34; 2017-01-25＆＃34;。

如何扩展我的代码以显示带标签的额外刻度？

p = ggplot(df, aes(x = date, y = visits)) + 
    geom_line(colour = "purple")

p 

Answer 1

您可以使用scale_x_date：

set.seed(666)
df = data.frame(date = seq(as.Date("2016/4/1"), as.Date("2016/4/30"), by = "day"), visits = round(runif(30, 0, 30)))

ggplot(df, aes(x = date, y = visits)) + 
geom_line(colour = "purple") + 
scale_x_date(breaks = c(as.Date("2016-04-10"), as.Date("2016-04-20")))