如何为ggplot2图表Y轴标签添加百分号？R语言绘图求助

你遇到的核心问题是**scales::percent()函数的行为和你的数据计算逻辑不匹配**：你已经把百分比计算成了「乘以100后的数值」（比如5代表5%），但percent()函数默认会把输入的小数（比如0.05）转成百分比（5%），所以它会把你已经计算好的5再乘以100，变成500%，这就是图表数值不准确的原因。

下面是修正后的完整代码，同时解决Y轴标签加百分号的问题：

library(ggplot2)

procs <- read.csv(paste0(dirdata, "Procedure percents Feb.csv"))
procs$Percentage <- round(procs$Procedures/procs$Total.Visits*100, 2)
procs$Percentage[is.na(procs$Percentage)] <- 0
procsplit <- split(procs, procs$State)

plots <- function(procs) {
  ggplot(data = procs, aes(x= Provider, y= Percentage, fill= Percentage)) +
    geom_bar(stat = "identity", position = "dodge") +
    # 文本标签的sprintf用法是对的，保持不变
    geom_text(aes(x = Provider, y = Percentage, label = sprintf("%.1f%%", Percentage)),
              position = position_dodge(width = 0.9), hjust = .5, vjust = 0, angle = 0) +
    theme(axis.text.x = element_text(angle = 45, vjust = .5)) +
    # 修正副标题：用unique(procs$State)确保只取一个州名，避免向量问题
    ggtitle("Procedure Percentages- February 2018", subtitle = unique(procs$State)) +
    theme(plot.title = element_text(size = 22, hjust = .5, family = "serif")) +
    theme(plot.subtitle = element_text(size = 18, hjust = .5, family = "serif")) +
    # 关键修正：不用percent()，手动给Y轴刻度添加百分号
    scale_y_continuous(
      name = "Percentage",
      labels = function(x) sprintf("%.1f%%", x) # 若不需要小数，可改用paste0(x, "%")
    )
}

lapply(procsplit, plots)

关键修改点说明： #

• Y轴刻度修正：替换labels = percent为自定义格式化函数，直接给已计算好的百分比数值添加百分号，避免二次放大数值。
• 副标题修正：用unique(procs$State)替代procs$State，拆分后的每个procs数据框对应单个州，这样能避免副标题显示整个向量的问题。
• 文本标签的sprintf("%.1f%%", Percentage)用法是正确的，它会给数值添加百分号（比如5变成5.0%），和Y轴显示保持一致。

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