如何使用R创建叶序螺旋线

如何在R中创建叶序螺旋？此类图像的示例显示在本页底部：图像附在下面：

这些也类似于费马的螺旋：

我搜索并找到了这个方法： 但它不会创建上述模式之一

使用来自

golden.ratio = (sqrt(5) + 1)/2
fibonacci.angle=360/(golden.ratio^2)
c=1
num_points=630
x=rep(0,num_points)
y=rep(0,num_points)

for (n in 1:num_points) {
    r=c*sqrt(n)
    theta=fibonacci.angle*(n)
    x[n]=r*cos(theta)
    y[n]=r*sin(theta)
}
plot(x,y,axes=FALSE,ann=FALSE,pch=19,cex=1)