r - 別のベクトルに割り当てられているベクトル名を出力します

Question

それほど重要ではありませんが、v2 を使用して変数名「v1」を出力したいと思います。

v1=c(1,2,3,4)
v2=v1
print(source_name(v2))

これはできますか？

Answer 1

@Rcoster は、あなたが実際に要求していたものを収集したように見えましたが、ここにあなたの質問に対する解決策があります。

# create a callback function that executes at each top level evaluation. 
# If the evaluated call is assignment and the rhs is a symbol, record 
# this in a global variable .source_names, which the function 
# source_name below can reference.
t <- addTaskCallback(function(expr, value, ok, visible) {
    if (class(expr) %in% c('=', '<-')) {
        expr.list <- as.list(expr)
        lhs.index <- 2
        rhs.index <- 3
        if (is.symbol(expr.list[[rhs.index]])) {
            if (! exists('.source_names')) 
                .source_names <<- list()
            .source_names[[as.character(expr.list)[[lhs.index]]]] <<- expr.list[[rhs.index]]
        }
    }
    return(TRUE)
})

source_name <- function(x) {
    name <- deparse(substitute(x))
    if (exists('.source_names')) {
        .source_names[[name]]
    }
}

v1 <- 1
v2 <- v1
source_name(v2)
# v1

# to turn off
removeTaskCallback(t)

Answer 2

v2文字列に変更して使用する必要がありますget()。print()役に立たない（この場合）

v1=c(1,2,3,4)
v2='v1'
get(v2)