Пользовательские даты отметок на ggplot

Question

Я хотел бы построить следующие данные:

set.seed(5)
my_df <- data.frame(date = sample(seq(as.Date("2019-07-03"), as.Date("2019-07-30"), by = 1), 10), val_1 = 1:10, val_2 = 11:20) 

my_df<- gather(my_df, "type", "value", -date)
ggplot(data=my_df, aes(x= date, y=value, colour = type)) + geom_line() 

Выше указаны только некоторые даты в виде отметок, а не все 10. Как я могу показать все даты в виде отметок. Я пытался scale_x_discrete(labels = unique(my_df$date)), но это не сработало.

Answer 1

Обрабатывайте даты как фактор

ggplot(data = my_df,
  aes(x = as.factor(date), y = value, colour = type, group = type)) +
  geom_line()

Вы также можете использовать scale_x_date, упомянутое @ r2evans:

ggplot(data=my_df, aes(x= date, y=value, colour = type)) + 
  geom_line() +
  scale_x_date(breaks = unique(my_df$date), minor_breaks = NULL) +
#Added for readability
  theme(axis.text.x = element_text(angle = 30, hjust = 1))