用R语言写一个函数: regular_polygon(n, x, y, col, border), 能绘制出正n边形, 且多边形中心默认在原点, 通过col和border可以设置正多边形内部和边框的颜色

可以使用R中的图形库`ggplot2`来实现该函数，具体代码如下：

library(ggplot2)

regular_polygon <- function(n, x = 0, y = 0, col = "blue", border = "black") {
  # 计算n个顶点的坐标
  r <- 1
  theta <- seq(0, 2*pi, length.out = n+1)[-1]
  x <- x + r*cos(theta)
  y <- y + r*sin(theta)
  # 构造数据框
  df <- data.frame(x = c(x, x[1]), y = c(y, y[1]))
  # 绘制多边形
  ggplot(df, aes(x, y)) +
    geom_polygon(fill = col, color = border)
}

这个函数首先计算正n边形各个顶点的坐标，然后将这些坐标组成一个数据框，最后使用`geom_polygon`函数绘制多边形。函数的参数包括：`n`表示边数，`x`和`y`表示正多边形中心的坐标，`col`表示内部填充颜色，`border`表示边框颜色。其中`x`和`y`默认为0，`col`默认为蓝色，`border`默认为黑色。