1

expr関数の式で、引数に直接with()アクセスすることは可能ですか? dataここに私が概念的に意味するものがあります：

> print(df)
  result qid     f1     f2     f3
1     -1   1 0.0000 0.1253 0.0000
2     -1   1 0.0098 0.0000 0.0000
3      1   1 0.0000 0.0000 0.1941
4     -1   2 0.0000 0.2863 0.0948
5      1   2 0.0000 0.0000 0.0000
6      1   2 0.0000 0.7282 0.9087
> with(df, subset(.data, select=f1:f3))  # Doesn't work

もちろん、上記の例はばかげていますが、次のような場合に便利です。

with(subset(df, f2>0), foo(qid, vars=subset(.data, select=f1:f3)))

environment()私はなどをいじってみましparent.frame()たが、うまくいくものは何も思いつきませんでした。

が実装されeval()ているので、これは実際には に関する質問かもしれません。with.default()

4

2 に答える 2

5

使用parent.frame():

# sample data:
set.seed(2436502)
dfrm <- data.frame(x1 = rnorm(100), x2 = rnorm(100), g1 = sample(letters, 100, TRUE))

# how to use it:
with(subset(dfrm, x1<0), {
    str(parent.frame(2)$data)
    "Hello!"
})

# 'data.frame':   47 obs. of  3 variables:
#  $ x1: num  -0.836 -0.343 -0.341 -1.044 -0.665 ...
#  $ x2: num  0.362 0.727 0.62 -0.178 -1.538 ...
#  $ g1: Factor w/ 26 levels "a","b","c","d",..: 11 4 15 19 8 13 22 15 15 23 ...

魔法の仕組み

あなたを使っls()て調べることができますparent.frames：

with(subset(dfrm, x1<0), {
    print(ls())
    print(ls(parent.frame(1)))
    print(ls(parent.frame(2)))
    print(ls(parent.frame(3)))
})
# [1] "g1" "x1" "x2"
# [1] "enclos" "envir"  "expr"  
# [1] "data" "expr"
# [1] "dfrm"

ご覧のように：

  • parent.frame(3)ベース環境（この場合）、
  • parent.frame(2)subset関数の環境
  • parent.frame(1)関数の環境です{( を参照?Paren)
于 2010-03-13T22:50:32.527 に答える
3

私はそれを反転する傾向があります。つまり、with()外側に置き、subset()そのデータに取り組んでいます。

R> data(mtcars)
R> with(subset(mtcars, gear==4), lm(mpg ~ wt)) # no data arg

Call:
lm(formula = mpg ~ wt)

Coefficients:
(Intercept)           wt  
      42.49        -6.86

これもばかげた例ですlm(mpg ~ wt, data=mtcars, subset=gear==4) が、明らかに同じことを行いますが、ドリフトが発生します。

于 2010-03-13T01:35:30.317 に答える