Добавление определенных отметок с метками даты из переменной даты на оси x

У меня есть 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 я хочу видеть некоторые конкретные отметки для дат, когда произошли какие-то особые события (чтобы показать, что сразу после этого было больше посещений). Теперь код, конечно, показывает мне некоторые даты, но я хочу добавить некоторые даты, скажем, «2016-08-10» и «2017-01-25».

Как я могу расширить свой код, чтобы показать дополнительные галочки с метками?

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

p

r date label ggplot2 timeserieschart
person Benjamin Telkamp    schedule 19.03.2017    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Вы можете использовать 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")))

сюжет

person bVa    schedule 20.03.2017