R语言饼图标签千位与小数分隔符互换设置问题咨询

核心思路：将绘图计算用的原始数值和展示用的标签分开处理，仅对标签环节做格式化，不会影响绘图逻辑的数值计算。

基础R pie() 函数实现 #

• 示例代码：

# 原始数值（保留数值类型用于饼图占比计算）
values <- c(15230.45, 27890.60, 9450.25, 32100.80)
# 单独生成格式化标签，互换千位和小数分隔符
labels <- format(values, big.mark = ".", decimal.mark = ",", nsmall = 2)
# 绘图，数值用原始values，标签用格式化后的labels
pie(values, labels = labels)

• 参数说明：big.mark 对应千位分隔符，decimal.mark 对应小数分隔符，nsmall 用于固定保留的小数位数。

ggplot2 实现 #

• 示例代码：

library(ggplot2)
library(dplyr)

# 示例数据
df <- data.frame(
  category = c("A", "B", "C", "D"),
  value = c(15230.45, 27890.60, 9450.25, 32100.80)
)

ggplot(df, aes(x = "", y = value, fill = category)) +
  geom_col(width = 1) +
  coord_polar("y", start = 0) +
  # 标签直接在渲染时格式化，不修改原始数值
  geom_text(aes(label = scales::label_number(
    big.mark = ".", 
    decimal.mark = ",", 
    accuracy = 0.01
  )(value)), position = position_stack(vjust = 0.5)) +
  theme_void()

• 说明：使用scales包的格式化函数直接在geom_text的标签参数中处理，原始value列始终为数值类型，不影响柱状图转饼图的计算逻辑。

内容的提问来源于stack exchange，提问作者Rebell236