library(tidyverse)

cars %>% 
  ggplot(aes(x = speed, y = dist)) +
  geom_point() +
  labs(title = "title: il titolo del grafico",
     subtitle = "subtitle: il sottotitolo",
     caption = "caption: didascalia (ad es.: \"dati: cars\")",
     x = "x: asse delle X",
     y = "y: asse delle Y",
     tag = "tag: 1/1")