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

### 回答1：
以下是用R语言编写的 `donut_plot` 函数，可以绘制一个甜甜圈图。

donut_plot <- function(x, col){
  # 计算各部分所占比例
  total <- sum(x)
  x_prop <- x/total
  
  # 绘制图形
  pie(x_prop, col = col, init.angle = 90, labels = NA, main = "")
  pie(x_prop, col = col, init.angle = 90, border = "white", labels = round(x_prop, 2), main = "")
  legend("topright", legend = paste0(round(x_prop*100, 2), "%"), fill = col)
}

其中，`x` 是一个向量，包含各部分的数值，`col` 是一个向量，包含各部分的颜色。

例如，假设我们有以下数据：

data <- c(10, 20, 30, 40)
colors <- c("red", "orange", "yellow", "green")

我们可以调用 `donut_plot` 函数来绘制甜甜圈图：

donut_plot(data, colors)

这将绘制出一个甜甜圈图，其中红色部分占 10%，橙色部分占 20%，黄色部分占 30%，绿色部分占 40%。

### 回答2：
甜甜圈图(Donut chart)是一种环形图形的表达方式，可以用来展示各个类别在整体中的比例关系。我们可以使用R语言编写一个函数`donut_plot`来绘制甜甜圈图。

donut_plot <- function(x, col) {
  # 计算每个类别的比例
  proportions <- prop.table(table(x))
  
  # 绘制甜甜圈图
  pie(proportions, col = col, main = "Donut Chart", radius = 0.8)
  legend("bottom", labels = names(proportions), fill = col, horiz = TRUE)
}

上述函数`donut_plot`接受两个参数：`x`表示类别向量，`col`表示颜色向量。函数首先使用`table`函数计算每个类别的频数，然后使用`prop.table`函数计算每个类别的比例。最后，函数使用`pie`函数绘制甜甜圈图，传入比例和颜色参数，`main`参数用于设置主标题，`radius`参数用于控制甜甜圈的大小。最后，使用`legend`函数在图例位置底部添加标签和颜色。

通过调用`donut_plot`函数，我们可以自定义数据和颜色来绘制甜甜圈图，例如：

x <- c("A", "A", "B", "C", "C", "C")
col <- c("red", "green", "blue")
donut_plot(x, col)

这将绘制一个甜甜圈图，展示了类别"A"、"B"和"C"在整体中的比例关系，并使用红色、绿色和蓝色作为类别的颜色。