如何为ggplot2对象提取绘图轴的范围？

library(ggplot2)

# 创建一个简单的ggplot2对象
p <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point()

# 提取绘图轴的范围信息
p_build <- ggplot_build(p)

# 提取x轴和y轴的范围
x_range <- p_build$layout$panel_params[[1]]$x.range
y_range <- p_build$layout$panel_params[[1]]$y.range

# 输出结果
cat("x轴范围：", x_range, "\n")
cat("y轴范围：", y_range, "\n")

library(ggplot2)

# 创建一个简单的ggplot2对象
p <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point()

# 提取绘图轴的范围信息
p_scales <- layer_scales(p)

# 提取x轴和y轴的范围
x_range <- p_scales$x$range$range
y_range <- p_scales$y$range$range

# 输出结果
cat("x轴范围：", x_range, "\n")
cat("y轴范围：", y_range, "\n")