データフレームプレフィックスを含めるように式の列を変換する方法R

Question

R式の列をデータフレーム仕様に変換するにはどうすればよいですか？たとえば、私は式の何百もの列を持っているが、彼らのような、任意のデータフレームの仕様が含まれていない：

365/(x/y) 
365/(x/(y + z)) 
365/(x/ (y - z)) 
c + d + e + f 

と私が見えるように列全体を変換したい：

365/(r$x/r$y) 
365/(r$x/(r$y + r$z)) 
365/(r$x/ (r$y - r$z)) 
r$c + r$d + r$e + r$f 

私は基本的に接頭辞（r $）を演算子で区切られた各テキストグループに追加したいと考えています。これはRで可能ですか？

Answer 1

より良いアプローチは、データフレームを直接、例えば、

lm(y ~ x, data=myframe) 

多くのモデリング機能が、data=引数をサポートしています。

または、接頭辞を必要とせずに、データフレームmyframeのコンポーネントへのアクセスを提供withとwithin機能

with(myframe, summary(365/(x/y))) 

を使用することができます。

Answer 2

これを行う通常の方法は、with()に式を（より正確には式を）ラップすることです。結果のベクトルを生成する場合は、withクロージャによって作成された環境のコンテキストで各式を評価（評価）する必要があります。

expr <- expression(365/(x/y), 
365/(x/(y + z)), 
365/(x/ (y - z)), 
c + d + e + f) 
dat <- data.frame(x=sample(1:100, 10), 
    y=sample(1:100, 10), 
    z=sample(1:100, 10), 
    c=sample(1:100, 10), 
    d=sample(1:100, 10), 
    e=sample(1:100, 10), 
    f=sample(1:100, 10)) 
sapply(expr, function(ep) with(dat, eval(ep))) 
      [,1]  [,2]   [,3] [,4] 
[1,] 121.66667 1155.8333 -912.50000 168 
[2,] 4197.50000 4471.2500 3923.75000 131 
[3,] 290.00000 620.0000 -40.00000 219 
[4,] 60.83333 3224.1667 -3102.50000 245 
[5,] 6752.50000 24637.5000 -11132.50000 229 
[6,] 4901.42857 7456.4286 2346.42857 239 
[7,] 127.75000 246.3750  9.12500 177 
[8,] 355.64103 1179.2308 -467.94872 142 
[9,] 500.18519 959.8148  40.55556 161 
[10,] 299.48718 444.5513 154.42308 194