R 同心圆

我想创建50个同心圆。我用python实现了这一点，但现在我想在R中实现这一点。我尝试了symbols函数，但没有结果。我希望我的圆从x，y坐标开始，每个圆的半径比前一个大3倍

step=1
for(i in seq(1,50,1)){
  symbols (x, y, circles=50, col="grey")
step=step+3
}

由此我得到一个圆作为结果

---

我是编程新手，所以它可能非常简单。我应该使用一个特定的软件包吗？

R的优点在于很多东西都可以矢量化，包括输入到“symbols”函数。下面是一个例子：

#vector of radii
#written in a way that's easily changable
n_circles <- 50
my_circles <- seq(1,by=1,length.out = n_circles)
#generate x and y
x <- rep(1,n_circles)
y <- rep(1, n_circles)

#plot
symbols(x,y,1:n_circles)

半径向量 #以易于更改的方式编写

---

n_圆圈R的美妙之处在于许多东西都可以矢量化，包括“符号”函数的输入。下面是一个例子：

#vector of radii
#written in a way that's easily changable
n_circles <- 50
my_circles <- seq(1,by=1,length.out = n_circles)
#generate x and y
x <- rep(1,n_circles)
y <- rep(1, n_circles)

#plot
symbols(x,y,1:n_circles)

半径向量 #以易于更改的方式编写

---

谢谢你！这是非常有用和快速运行。不客气。我在这里为您提供了解决方案，但请看一下您自己编写的代码。你在迭代，没有和我做任何事情，但一直在策划同样的事情，而step从来没有被使用过。漂亮的粉色弗洛伊德·维尼尔+谢谢你！这是非常有用和快速运行。不客气。我在这里为您提供了解决方案，但请看一下您自己编写的代码。你在迭代，没有和我做任何事情，但一直在策划同样的事情，而step从来没有被使用过。漂亮的粉色弗洛伊德·维尼尔+1.