經由功能

Question

有一種方法，以從一個函數將參數傳遞給用with()（）將參數傳遞給？喜歡的東西：

dados <- data.frame(x=1:10, v1=rnorm(10), v2=rnorm(10)) 

with(dados, v1+v2) # Works 

func <- function(data, funcao) { 
with(data, funcao) 
} 

func(dados, v1+v2) # Fails 
func(dados, 'v1+v2') # Fails 

我已經試過eval()，但它也失敗了：/

Answer 1

好吧，我想我明白了。你需要調用EVAL內FUNC然後傳遞一個表達：

dados <- data.frame(x=1:10, v1=rnorm(10), v2=rnorm(10)) 

func <- function(data, funcao) { 
    with(data, eval(funcao)) 
} 

func(dados, expression(v1+v2)) 

[1] -0.9950362 1.0934899 -0.9791810 -1.2420633 -1.0930204 0.8941630 -2.3307571 -1.5.2731584 0.2585419 

要使用的字符串：

x = "v1 + v2" 
func(dados, parse(text=x)) 

[1] -0.9950362 1.0934899 -0.9791810 -1.2420633 -1.0930204 0.8941630 -2.3307571 -1.5.2731584 0.2585419