# NOT RUN {
g2(mtcars, asp(mpg, qsec)) %>% 
  fig_point() %>% 
  info_data_marker(
    content = "Marker",
    position = c(20, 20),
    inherit_asp = FALSE
  )
newcars <- cars[1:26,]
newcars$text <- LETTERS
g2(cars, asp(speed, dist)) %>% 
  fig_point() %>% 
  info_text(asp(speed, dist, content = text), data = newcars, offsetY = -20)
 
# }
Run the code above in your browser using DataLab