r语言绘制环形图和饼环图代码

当使用R语言绘制环形图和饼环图时，可以使用`ggplot2`包来实现。下面是一个简单的示例代码：

library(ggplot2)

# 创建数据
data <- data.frame(
  category = c("A", "B", "C", "D"),
  value = c(30, 20, 15, 35)
)

# 计算百分比
data$percentage <- data$value / sum(data$value) * 100

# 绘制环形图
p <- ggplot(data, aes(x = "", y = percentage, fill = category)) +
  geom_bar(stat = "identity", width = 1) +
  coord_polar(theta = "y") +
  theme_void() +
  theme(legend.position = "right")

# 添加标签
p <- p + geom_text(aes(label = paste0(percentage, "%")), position = position_stack(vjust = 0.5))

# 显示图形
print(p)

这段代码首先加载了`ggplot2`包，然后创建了一个数据框`data`，其中包含了要绘制的各个类别的数值。接着计算了每个类别的百分比，并使用`ggplot()`函数创建了一个绘图对象`p`。通过`geom_bar()`函数绘制了环形图，`coord_polar()`函数将坐标系设置为极坐标，`theme_void()`函数将背景设置为空白，`theme()`函数调整了图例的位置。最后使用`geom_text()`函数添加了标签，并通过`print()`函数显示图形。