ggplot2如何根据数据中的指定值动态设置scale_y_continuous标签函数

你的需求是根据数据集指定的刻度类型，动态调用scales包的对应标签函数，核心错误在于没有正确获取函数对象、混淆了labels参数的传入逻辑，以下是正确实现方案：

错误原因说明 #

• 尝试1报错：scale_y_continuous的labels参数如果接收函数，函数接收的输入是y轴的刻度值向量，不是你传入ggplot的数据集，因此在管道中调用distinct自然会报错。
• 尝试2报错：sym()生成的是未求值的符号对象，ggplot会将其识别为标签文本向量，而非格式化函数，因此会提示长度不匹配。
• 预期代码报错：没有加载scales包，也没有加scales::前缀，R无法找到comma函数对象。

正确实现代码 #

基础用法（单图场景） #

library(tidyverse)
library(scales) # 需先加载scales包提供格式化函数

# 你的示例数据
mymt <- mtcars %>%
  pivot_longer(everything()) %>%
  group_by(name) %>% 
  mutate(rn = row_number()) %>% 
  ungroup() %>% 
  mutate(value = value * 10) %>%
  mutate(varscale = if_else(name == "disp", "comma", "percent")) %>% 
  filter(name == "disp")

# 提取刻度类型，从scales命名空间获取对应格式化函数
label_func <- get(unique(mymt$varscale), envir = asNamespace("scales"))

# 绘图
mymt %>% 
  ggplot(aes(x = rn, y = value)) +
  geom_point() +
  scale_y_continuous(labels = label_func)

封装为通用绘图函数 #

如果需要批量处理不同数据集，可以直接封装为函数：

dynamic_scale_plot <- function(data) {
  # 校验数据集只有一种刻度类型
  stopifnot(length(unique(data$varscale)) == 1)
  # 获取对应格式化函数
  label_func <- get(unique(data$varscale), envir = asNamespace("scales"))
  ggplot(data, aes(x = rn, y = value)) +
    geom_point() +
    scale_y_continuous(labels = label_func)
}

# 测试千分位刻度
dynamic_scale_plot(mymt)

# 测试百分比刻度（注意百分比默认对0-1的数值做转换，可根据需要调整函数参数）
mymt_percent <- mtcars %>%
  pivot_longer(everything()) %>%
  group_by(name) %>% 
  mutate(rn = row_number()) %>% 
  ungroup() %>% 
  mutate(value = value / 100) %>% # 调整为0-1范围适配percent函数
  mutate(varscale = if_else(name == "disp", "comma", "percent")) %>% 
  filter(name == "mpg")

dynamic_scale_plot(mymt_percent)

扩展场景（分面不同刻度） #

如果需要实现不同分面用不同的刻度格式，可以使用ggh4x包的facetted_pos_scales功能，根据分面变量匹配对应刻度即可。

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