# Posso impiegare locator, oltre che per leggere le coordinate dei
# punti di un grafico già tracciato, anche per tracciarvi punti,
# segmenti o spezzate. Sulla base dei cilck fatti, locator(N,type="p")
# traccia N punti, locator(N,type="l") traccia N segmenti. I punti
# sono tracciati come circoletti; aggiungendo l'opzione pch="." si
# possono rappresentare puntiformi, con lwd=N si può aumentare lo
# spessore delle linee, con col="COLORE" si può modificare il colore
# Ecco, ad es., che cosa posso ottenere con questi comandi e 5 click:
plot(c(0,10),c(0,10),type="n",asp=1)
locator(5,type="l",pch=".",lwd=2,col="red")

$x
[1] 3.8568735 0.5709633 1.3114501 4.6899212 3.6254714
$y
[1] 7.841618 5.527597 2.519369 2.056565 4.555708
# Per cancellare una poligonale tracciata si può usare lo stesso
# comando, con una linea più spessa di colore bianco.
# Nota. Posso anche non specificare il numero dei punti: posso usare
# locator() o locator(type="l") o ... e cliccare quanti punti voglio
# fino a che premo il tasto destro del mouse (o premo esc o aziono
# stop dal menu della finestra grafica).