# 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