使用ggplot修复饼图的正确布局

library(ggplot2)
# 创建饼图对象
p <- ggplot(data, aes(x = "", y = value, fill = variable)) +
  geom_bar(stat = "identity", width = 1)

# 调整颜色
p <- p + scale_fill_manual(values = c("#FF0000", "#00FF00", "#0000FF"))

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

# 添加标题
p <- p + labs(title = "修复后的饼图", x = NULL, y = NULL)

# 添加百分比标签
p <- p + geom_text(aes(label = paste0(round(value/sum(value)*100), "%")), position = position_stack(vjust = 0.5))

# 调整图例位置
p <- p + theme(legend.position = "right")

print(p)