R cognoscenti için bir veri-çerçeve içinde

Question

Bulmaca bir ifade olarak değerlendirilir bir R fonksiyonu yazmak için: Bence

with(df, a) 

gibi şeyler yapabileceğini biliyorum

df <- data.frame(a = 1:5, b = 1:5) 

: Biz bir veri dilimi var ki Sonuçların bir vektörünü almak için

.

Ancak, bir ifadeyi (a veya a > 3 gibi) alan ve içinde aynı şeyi yapan bir işlevi nasıl yazarım. Yani Veri çerçevesini ve ifadeyi argüman olarak alan ve veri çerçevesi içindeki ifadeyi "çevre" olarak değerlendirmenin sonucunu döndüren bir işlev fn yazmak istiyorum.

Bu durumun sesler çıkardığını unutmayın (sadece with'u yukarıdaki gibi kullanabilirim), ancak bu, yazdığım daha karmaşık bir işlevin basitleştirilmiş bir sürümüdür. Çeşitli varyantları denedim (eval, with, envir, substitute, local, vs) ancak bunların hiçbiri çalışmaz. Mesela ben şöyle fn tanımlarsanız: ortamları ve değerlendirme konusunda ince

> fn(df, a) 
Error in eval(expr, envir = dat) : object 'a' not found 

Açıkçası ben eksik bir şey:

fn <- function(dat, expr) { 
    eval(expr, envir = dat) 
} 

bu hatayı alıyorum. Böyle bir işlevi tanımlamanın bir yolu var mı?

Answer 1

kafes paketi farklı bir şekilde bu tür bir şey yok. Bakınız örn., lattice:::xyplot.formula.

fn <- function(dat, expr) { 
    eval(substitute(expr), dat) 
} 
fn(df, a)    # 1 2 3 4 5 
fn(df, 2 * a + b)  # 3 6 9 12 15 

Answer 2

Bunun nedeni, bir ifadeyi geçmiyor olmanızdır.

Dene:

fn <- function(dat, expr) { 
    mf <- match.call() # makes expr an expression that can be evaluated 
eval(mf$expr, envir = dat) 
} 

> df <- data.frame(a = 1:5, b = 1:5) 
> fn(df, a) 
[1] 1 2 3 4 5 
> fn(df, a+b) 
[1] 2 4 6 8 10 

bu kullanarak fonksiyonların kaynak kodu hızlı bir bakış (örn lm) bu konuda çok daha ilginç şeyler ortaya çıkarabilir.

Answer 3

? Da ayrıca ilginizi çekebilir.

df <- data.frame(a = 1:5, b = 1:5) 
within(df, cx <- a > 3) 
    a b cx 
1 1 1 FALSE 
2 2 2 FALSE 
3 3 3 FALSE 
4 4 4 TRUE 
5 5 5 TRUE 

Answer 4

Geç giriş, ama data.table yaklaşım ve sözdizimi sonra ne olabileceği düşünülür. Tam olarak bu, [.data.table, j, i ve by bağımsız değişkenleriyle çalışır.

forma fn(x,expr) bunu gerekiyorsa, o zaman kullanabilirsiniz Ben daha yerli formu içinde kullanımı daha kolay olduğunu düşünüyorum aşağıdaki

library(data.table) 

DT <- data.table(a = 1:5, b = 2:6) 

`[`(x=DT, j=a) 

## [1] 1 2 3 4 5 

`[`(x=DT, j=a * b) 
## [1] 2 6 12 20 30 

DT[,a] 
## [1] 1 2 3 4 5 

vb. Arka planda bu, substitute ve eval