用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参数指定。

相关问题

MATLAB绘制一个甜甜圈

好的，以下是一个绘制甜甜圈的 Matlab 代码：

% 设置甜甜圈的大小和颜色
radius = 5; % 外圆半径
width = 2; % 环宽度
color = [1 0.5 0]; % 颜色

% 创建一个甜甜圈的矩阵
theta = linspace(0,2*pi,100);
x = (radius+width*cos(theta)) .* cos(theta);
y = (radius+width*cos(theta)) .* sin(theta);
z = width*sin(theta);
donut = surf(x,y,z,'FaceColor',color,'EdgeColor','none');

% 设置绘图参数
axis equal;
axis off;
campos([30 40 20]);
camtarget([0 0 0]);
camva(30);
lightangle(45,30);

% 显示甜甜圈
view(3);

这段代码将创建一个甜甜圈的矩阵，并使用 `surf` 函数绘制一个三维表面。您可以更改 `radius`、`width` 和 `color` 变量来调整甜甜圈的大小和颜色。最后，我们使用 `axis` 函数关闭坐标轴，使用 `campos`、`camtarget`、`camva` 和 `lightangle` 函数设置绘图参数，最后使用 `view` 函数显示甜甜圈。

R语言中任意一个变量的饼图、扇形图、环形图，每个图必须设置图例。含代码

在R语言中创建饼图、扇形图和环形图时，你可以使用`ggplot2`包，这里是一个简单的例子。假设我们有名为`df`的数据框，其中有一个名为`variable_name`的变量，我们需要分别创建这三个图表，并设置图例。

**饼图（Pie Chart）：**

library(ggplot2)

# 创建饼图
pie_chart <- ggplot(df, aes(x="", y=variable_name, fill=variable_name)) +
  geom_bar(stat="identity", width=1) +
  coord_polar(theta="y") +
  theme_void() +
  labs(title="饼图", fill="类别")

# 添加图例
pie_chart <- pie_chart + guides(fill=guide_legend(title="图例标题"))

pie_chart

**扇形图（Sector Plot 或 Wedge Chart）：**

# 扇形图
sector_plot <- df %>%
  mutate(total_value = sum(variable_name)) %>%
  pivot_wider(names_from = variable_name, values_from = variable_name / total_value) %>%
  ggplot(aes(x = "", y = value, fill = names)) +
  geom_bar(stat = "identity", width = 1, angle = 1) +
  coord_polar(start = 0, end = 360) +
  theme_void()

# 添加图例
sector_plot <- sector_plot + guides(fill=guide_legend(title="图例标题"))

sector_plot

**环形图（Donut Chart）：**

# 环形图
donut_chart <- df %>%
  group_by(variable_name) %>%
  summarize(value = n()) %>%
  ungroup() %>%
  mutate(total = sum(value)) %>%
  ggplot(aes(x = "", y = value, fill = variable_name, frame = total > value)) +
  geom_bar(width = 1, stat = "identity") +
  coord_polar(start = 0, end = 360) +
  theme_void() +
  labs(title="环形图", fill="类别")

# 添加图例
donut_chart <- donut_chart + guides(fill=guide_legend(title="图例标题"))

donut_chart

以上代码展示了如何创建饼图、扇形图和环形图，并设置了图例。记得替换`df`和`variable_name`为你的实际数据和变量名。如果你对代码有任何疑问，可以直接提问相关的