R 生成圆的点

我只是在玩复杂地图exp（z）下的圆圈图像

我找不到一个内置的R函数来生成给定半径圆上的点，所以我自己写了一个（数值积分运动方程）：

谢谢

在角度上参数化：

circle_xy = function(n, r, close_loop = FALSE) {
  theta = seq(0, 2 * pi, length.out = n + 1)
  if(!close_loop) theta = theta[-(n + 1)]
  cbind(x = r * cos(theta), y = r * sin(theta))
}

为半径为

r

的圆上的

n

等间距点提供x-y坐标。如果

close\u loop=TRUE

，则在末尾重复第一个点。在我的笔记本电脑上生成1毫米的点大约需要0.2秒

还有一个

plot.formula

函数，它将把它带到一个实例化：

plot( y ~ x, data = xy<- circle_xy(100,1), type="l")

绘图（y~x，数据=xy
circle_xy = function(n, r, close_loop = FALSE) {
  theta = seq(0, 2 * pi, length.out = n + 1)
  if(!close_loop) theta = theta[-(n + 1)]
  cbind(x = r * cos(theta), y = r * sin(theta))
}

plot( y ~ x, data = xy<- circle_xy(100,1), type="l")