如何通过.Last.value获取最后对象名称以自动命名ggplot保存文件？

核心解决方案 #

因为.Last.value是R的特殊内置对象，substitute()只能识别它自身的符号，没法拿到它对应的原始变量名。可以通过追溯调用栈的方式，提取最后一次赋值操作的变量名：

get_last_object_name <- function() {
  calls <- sys.calls()
  # 从调用栈末尾往前找最近的赋值操作
  for (i in length(calls):1) {
    call <- calls[[i]]
    if (is.call(call) && call[[1]] == quote(`<-`)) {
      return(deparse(call[[2]]))
    }
  }
  # 没找到赋值操作时返回默认名称
  return("unnamed_plot")
}

使用示例 #

# 先创建绘图对象
library(ggplot2)
df <- data.frame(x = 1:10, y = 1:10)   
my_plot <- ggplot(df, aes(x, y)) + geom_point()

# 获取对象名称并生成文件名
filename <- paste0(get_last_object_name(), ".jpg")
filename
# [1] "my_plot.jpg"

如果是直接运行绘图语句而不赋值，函数会返回完整的表达式作为名称：

ggplot(df, aes(x, y)) + geom_point()
filename <- paste0(get_last_object_name(), ".jpg")
filename
# [1] "ggplot(df, aes(x, y)) + geom_point().jpg"

整合到ggsave的便捷用法 #

可以写一个自定义保存函数，自动完成命名和保存：

ggsave_auto <- function(format = "jpg", ...) {
  obj_name <- get_last_object_name()
  ggsave(filename = paste0(obj_name, ".", format), plot = .Last.value, ...)
}

# 直接调用即可保存
my_plot <- ggplot(df, aes(x, y)) + geom_point()
ggsave_auto()  # 保存为my_plot.jpg

原理说明 #

• sys.calls()会返回当前R会话的调用栈历史，我们从后往前遍历，找到最近的<-赋值操作，提取赋值符号左侧的变量名，这就是我们要的ggplot对象名称。
• 这种方法不仅适用于ggplot对象，任何R对象的最后一次赋值名称都能提取。

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