如何在R语言中获取赋值给新变量的原变量名称

在R中，x <- y这类赋值操作仅会将y的值拷贝给x，两者在内存中是独立对象，无法直接通过x本身获取它的原赋值变量名。但可以通过以下两种方法实现需求：

方法1：自定义带来源记录的赋值函数 #

通过非标准求值捕获原变量名，在赋值时同步记录到目标变量的属性中：

assign_with_source <- function(target, source) {
  source_name <- deparse(substitute(source))
  target_name <- deparse(substitute(target))
  assign(target_name, source, envir = parent.frame())
  attr(get(target_name, envir = parent.frame()), "source_var") <- source_name
}

# 使用示例
y <- c(1,2,3)
assign_with_source(x, y)

# 获取原变量名
attr(x, "source_var")  # 返回 "y"

方法2：解析最近的赋值历史（仅限刚赋值后查询） #

如果是执行x <- y后立即查询，可以通过R的历史记录提取表达式并解析：

y <- c(1,2,3)
x <- y

# 提取最近的一行历史表达式
last_expr <- tail(parse(text = capture.output(history(1))), 1)
# 匹配并提取赋值右侧的变量名
source_var <- gsub(".*<-\\s*(.*)", "\\1", last_expr)
source_var  # 返回 "y"

注意事项 #

• 方法1是更可靠的方案，主动在赋值时记录来源，不受后续操作影响；
• 方法2依赖R的历史记录功能，仅在赋值后未执行其他代码时有效，且脚本环境与控制台环境的历史记录行为可能存在差异。

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