<br />
#test data,may be WRONG!<br />
rho <- seq(0,10*pi,by=pi/100)<br />
ph <- sqrt(rho)<br />
x <- ph*cos(rho)<br />
y <- ph*sin(rho)<br />
#main plot<br />
plot.new()<br />
plot.window(xlim=c(-10,10), ylim=c(-10,10))<br />
lines(x,y,col="green")<br />
#axis<br />
arrows(0,0,7,0)<br />
arrows(0,0,0,7)<br />
#x axis<br />
segments(1:3,0,1:3,0.5)<br />
text(0:3,0,0:3,pos=1)<br />
#y axis<br />
segments(0,1:3,0.5,1:3)<br />
text(0,1:3,1:3,pos=2)<br />
#main title<br />
title(main=expression(paste("螺旋线：",rho,"=",sqrt(theta),seq="")))<br />
大致模样出来了，调整各个函数的具体参数，可达到你的要求。
