饼图-R-一次输出多个饼图的方法

# 创建数据
data <- list(
  A = c(10, 20, 30),
  B = c(15, 25, 35),
  C = c(5, 15, 25)
)

# 设置颜色
colors <- c("red", "blue", "green")

# 循环输出饼图
for (i in 1:length(data)) {
  pie(data[[i]], col = colors, main = names(data)[i])
}

# 安装和加载ggplot2包
install.packages("ggplot2")
library(ggplot2)

# 创建数据框
df <- data.frame(
  Group = c("A", "B", "C"),
  Value1 = c(10, 15, 5),
  Value2 = c(20, 25, 15),
  Value3 = c(30, 35, 25)
)

# 将数据框转换为长格式
df_long <- tidyr::gather(df, key = "Variable", value = "Value", -Group)

# 绘制多个饼图
ggplot(df_long, aes(x = "", y = Value, fill = Variable)) +
  geom_bar(stat = "identity", width = 1) +
  coord_polar("y", start = 0) +
  facet_wrap(~ Group) +
  theme_void() +
  theme(legend.position = "bottom")