[R-es] Dibujar una espiral

[Griera]

Hola:

Estoy intentando dibujar una espiral a la que le quería colocar unas marcas equidistantes.

Estoy utilizando:

T = seq(0, 20*pi, length.out=1000)
X = T * cos(T)
Y = T * sin(T)
plot(X, Y)

que dibuja puntos siguiendo una espiral. Como podría convertirlo en una espiral continua con marcas equidistantes?

He buscado en r-cran, y no he encontrado nada.

Muchas gracias y saludos!! Griera