要让饼图的标签显示在图表外部且位置合适，我们需要调整标签的定位逻辑，而不是依赖默认的内部堆叠方式。下面是针对你提供的代码的修改方案：

首先，我们补充计算每个类别的比例和中点位置，这能帮我们精准定位标签：

Product <- c("Product1","Product2","Product3","Product4","Product5","Product6","Product7")
Value <- c(1000000,200002,599996,1399994,2199992,2999990,3799988)
df <- data.frame(Product,Value)
df$Label <- paste(Product, paste(round(((df$Value/sum(df$Value))*100),2),"%"), sep="-")

# 计算比例、累积比例和中点比例，用于定位标签
df$prop <- df$Value / sum(df$Value)
df$cum_prop <- cumsum(df$prop)
df$mid_prop <- df$cum_prop - df$prop/2

接下来修改ggplot的代码，调整标签的位置和对齐方式：

library(ggplot2)
p <- ggplot(df, aes(x = 1, y = Value, fill = Product)) +
  geom_bar(stat = "identity") +
  coord_polar(theta = 'y') +
  theme_void() +
  # 把标签放在外部，x设为1.2（可根据饼图大小调整），用mid_prop计算y轴位置
  geom_text(aes(x = 1.2, y = mid_prop * sum(df$Value), label = Label),
            # 根据中点位置调整对齐，避免标签被饼图遮挡
            hjust = ifelse(df$mid_prop > 0.5, 1, 0))
p

关键修改点说明： #

• 计算中点位置：mid_prop代表每个扇形的中心在整个饼图中的比例，乘以总Value后对应极坐标下的y轴位置，确保标签落在扇形的正外侧。
• 调整x轴位置：把x设为1.2（比原x=1大），让标签从饼图内部移到外部，你可以根据实际图表大小调整这个数值（比如1.3、1.4）。
• 动态对齐hjust：用ifelse(df$mid_prop > 0.5, 1, 0)判断标签在饼图的左半部分还是右半部分，分别设置右对齐和左对齐，避免标签方向错误或被饼图挡住。

如果想要让标签和饼图之间的对应关系更清晰，还可以添加连接线：

p <- p +
  geom_segment(aes(x = 1.1, xend = 1.15,
                   y = mid_prop * sum(df$Value), yend = mid_prop * sum(df$Value)),
               color = "gray")
p

内容的提问来源于stack exchange，提问作者Let's Yo