使用識別和功能

Question

我想用附加（）後，以確定在一塊土地上的數據連接，但我有離開我的功能之前，拆下問題：

f = function(x, y, data) { 
    attach(data) 
    plot(x, y) 
    ids = identify(x, y) 
    detach(data) 
    return ids 
} 

返回值：

<environment: 0xf785ed8> 
attr(,"name") 
[1] "data" 
> class(i1) 
[1] "environment" 
> str(i1) 
<environment: 0xf785ed8> 
- attr(*, "name")= chr "data" 

如何在函數中使用attach和identify並返回附加對象的id？

Answer 1

您正在嘗試在此處進行非標準評估。這總是有點棘手。我可以推薦類似：

f <- function(x, y, data) { 
    dx <- deparse(substitute(x)) 
    dy <- deparse(substitute(y)) 
    plot(reformulate(dx,response=dy),data) 
    ids <- identify(data[,dx], data[,dy]) 
    return(ids) 
} 
f(Population,Income,state.x77) 

或

f2 <- function(x, y, data) { 
    x <- eval(substitute(x),envir=as.data.frame(data)) 
    y <- eval(substitute(y),envir=as.data.frame(data)) 
    plot(x,y) 
    ids <- identify(x,y) 
    return(ids) 
} 
f2(Population,Income,state.x77) 

你可能想看看Hadley Wickham's notes on non-standard evaluation更多信息...