ggplot2中实现Y轴数值缩放及替换弃用expand_scale()方法咨询

嗨，咱们一步一步来搞定你的两个需求：把Y轴数值除以指定值，同时替换掉已弃用的expand_scale()函数～

1. 处理expand_scale()的弃用警告 #

首先解决警告问题：expand_scale()确实已经被ggplot2官方弃用了，取而代之的是expansion()函数，用法几乎完全一致，只需要把原来的参数直接移到expansion()里，再放到scale_y_continuous()的expand参数中就行。比如你原来的expand_scale(add=2000)，直接改成：

expand = expansion(add = 2000)

2. 实现Y轴数值除以某个值 #

接下来是Y轴数值缩放的需求，这里有两种常用方案，你可以根据自己的实际场景选：

方案一：仅修改坐标轴显示标签（底层数据不变） #

如果你只是希望坐标轴上显示的数值是原始值除以目标值，但绘图逻辑还是基于原始数据（比如不需要调整参考线、标注的位置），可以自定义labels参数：

library(ggplot2)

# 示例数据，假设你要把Y轴数值除以1000
df <- data.frame(x = 1:5, y = c(2000, 4000, 6000, 8000, 10000))

ggplot(df, aes(x, y)) +
  geom_col() +
  scale_y_continuous(
    # 把原始刻度值除以1000后作为显示标签
    labels = function(x) x / 1000,
    # 替换弃用的expand_scale为expansion
    expand = expansion(add = 2000),
    # 可选：手动设置原始数据的刻度位置
    breaks = seq(0, 10000, 2000)
  ) +
  labs(y = "Y轴数值（除以1000后）")

方案二：实际缩放坐标轴数据（显示与计算都用缩放后的值） #

如果你希望整个坐标轴的数值范围、绘图元素都基于缩放后的值（比如参考线、标注直接用缩放后的数值），可以用trans参数自定义转换函数：

library(ggplot2)
library(scales)

# 自定义一个"除以指定值"的转换函数，这里示例值为1000
divide_trans <- function(k) {
  trans_new(
    name = paste0("divide_by_", k),
    transform = function(x) x / k,
    inverse = function(x) x * k # 逆转换用于交互或需要还原数据的场景
  )
}

ggplot(df, aes(x, y)) +
  geom_col() +
  scale_y_continuous(
    trans = divide_trans(1000),
    # 注意：这里的add值要对应缩放后的数据！如果原始需求是扩展2000，缩放后就是2
    expand = expansion(add = 2),
    labs(y = "Y轴数值（除以1000后）")
  )

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