suppressMessages(library( dataWorkshop))
#library( dataWorkshop)

Now start by loading some data.

data( AudiA4)
Y<- AudiA4$price
X<- AudiA4$mileage

And the required scatterplot

plot( X,Y)

Display as code but do not run ( just omit the {r}) Use this when the code has an error but you still want to create the final markdown document.

Help! This does not work

plot(X1,Y)

Try something else

plot( X, Y, log="y")