ggplot: Change ylab and xlab; Remove decimals from years

[budugulo]

In the following example, I would like to do the following:

1. Change xlab and ylab ( I tried but x and y labs are not changing).
2. Present years as integers i.e. get rid of decimals in x-axis.
3. Show all the years.

suppressWarnings(suppressMessages(library(tidyverse)))
#######
# Data
#######
set.seed(123)
toy_data <- tibble(
  year = 2008:2017,
  mean = rnorm(10, mean = 50, sd = 20),
  median = rnorm(10, mean = 40, sd = 15)
) %>% 
  pivot_longer(
    cols = mean:median,
    names_to = "stats",
    values_to = "delay"
  ) 
#######
# Plot
######
toy_data %>% 
  ggplot(aes(x = year, y = delay , color = stats)) +
  geom_line() +
  geom_point() +
  stat_summary(geom = "text", fun = quantile,
               aes(label=sprintf("%1.0f", ..y..)),
               position = position_nudge (x= -0.25), size=2.5) +
  labs(
    subtitle = "Yearly Stat",
    color = "Statistics",
    ylab = "Delay",
    xlab = "Year"
  )

^{Created on 2020-11-15 by the reprex package (v0.3.0)}

[FJCC]

Try the following. Notice that I set the breaks of the scale and within labs() I set x and y, not xlab and ylab.

library(ggplot2)
library(dplyr,warn.conflicts = FALSE)
library(tidyr)
library(tibble)

set.seed(123)
toy_data <- tibble(
  year = 2008:2017,
  mean = rnorm(10, mean = 50, sd = 20),
  median = rnorm(10, mean = 40, sd = 15)
) %>% 
  pivot_longer(
    cols = mean:median,
    names_to = "stats",
    values_to = "delay"
  ) 
#######
# Plot
######
toy_data %>% 
  ggplot(aes(x = year, y = delay , color = stats)) +
  geom_line() +
  geom_point() +
  stat_summary(geom = "text", fun = quantile,
               aes(label=sprintf("%1.0f", ..y..)),
               position = position_nudge (x= -0.25), size=2.5) +
  labs(
    subtitle = "Yearly Stat",
    color = "Statistics",
    y = "Delay",
    x = "Year"
  ) +
  scale_x_continuous(breaks = 2008:2018)

[budugulo]

Thank you! Just what I wanted