O seu exemplo não é reproduzível.

plot(dist~speed, data=cars)

names(par())
par()$las

par(las=1)
plot(dist~speed, data=cars)

par(las=2)
plot(dist~speed, data=cars)

par(las=3)
plot(dist~speed, data=cars)

À disposição.
Walmes.