Очистка осей X и Y

Я делал график, и оси x и y очень уродливые. Числа каждого в целом, и мне было интересно, как я могу это исправить, чтобы, возможно, вместо каждого доступного значения x и y он отображал только каждую пару, чтобы это выглядело красиво.

Это мой код:

billboard.data<- read.csv("https://raw.githubusercontent.com/hadley/tidy-data/master/data/billboard.csv") %>% 
  select(date.entered, date.peaked) %>% 
  filter(date.entered<"2000-10-01")

ggplot(data=billboard.data, aes(x=date.entered, y=date.peaked, group=1)) +
  geom_line()+
  geom_point()+
    labs (title = "The Time Between A Song Entering and Peaking",
        subtitle = "Is there A High Chance A Song Can Peak Higher After Debuting?",
        x = "Date Entered",
        y = "Date Peaked")+

Извините, я также не знаю, как поместить это в формат кода, но я надеюсь, что все имеет смысл, и я действительно ищу простой ответ. Обратился к профессору за помощью, и он сказал, что это должно быть легко выяснить в Интернете, и я борюсь.