用R语言写一个函数: donut_plot(x, col), 能绘制出 甜甜圈图(donut chart)

以下是用R语言编写的donut_plot函数，可以绘制出甜甜圈图：

donut_plot <- function(x, col) {
  library(plotrix)
  # 计算每个部分所占的百分比
  pct <- round(100 * x / sum(x))
  # 计算每个部分的起始角度和结束角度
  angles <- cumsum(x) - 0.5 * x
  # 绘制甜甜圈图
  pie(x, col = col, border = "white", radius = 0.75, clockwise = TRUE, init.angle = 90)
  add.pie(z = pct, col = col, radius = 0.5, clock = FALSE, labels = paste(pct, "%"), label.pos = angles,
          font = 2, cex = 0.8)
}

其中，x表示每个部分的数值，col表示每个部分的颜色。调用该函数即可绘制出甜甜圈图，例如：

x <- c(10, 30, 50, 20)
col <- c("red", "green", "blue", "yellow")
donut_plot(x, col)

该代码会生成一个甜甜圈图，其中每个部分的数值和颜色分别由x和col参数指定。