ggplot piechart外部的文本标签

library(ggplot2)

# 准备数据
data <- data.frame(category = c("A", "B", "C", "D"), value = c(30, 20, 25, 15))

# 创建饼图对象
pie_chart <- ggplot(data, aes(x = "", y = value, fill = category))

# 添加饼图层
pie_chart <- pie_chart + geom_bar(stat = "identity")

# 添加文本标签层
pie_chart <- pie_chart + geom_text(aes(label = paste0(category, ": ", value, "%")), position = position_stack(vjust = 0.5))

# 设置图形样式
pie_chart <- pie_chart + theme(plot.title = element_text(hjust = 0.5), axis.title = element_blank(), axis.text = element_blank(), axis.ticks = element_blank(), legend.position = "bottom")

# 显示图形
print(pie_chart)