Erstellen Sie eine Formel in einer data.table-Umgebung in R

Question

Ich möchte eine Regression innerhalb einer data.table ausführen. Die formula muss dynamisch erstellt werden. Ich habe die folgende Methode versucht:

x = data.table(a=1:20, b=20:1, id=1:5) 
> x[,as.list(coef(lm(as.formula("a ~ b")))),by=id] 
    Error in eval(expr, envir, enclos) : object 'a' not found 

Wie man die Umwelt nicht angeben, dass der Ist-data.table zu sein, wo die Auswertung erfolgt?

EDIT: Ich weiß, ich kann lm (a ~ b) tun. Ich brauche die Formel, um dynamisch zu sein, also wird sie als Zeichenkette aufgebaut. Durch die dynamische meine ich die Formel paste0(var_1, "~", var_2) sein kann, wo var_1 = a und var_2 = b

Hier ist eine Lösung, dachte ich denke, wir tun können, besser:

txt = parse(text="as.list(coef(lm(a ~ b)))") 
> x[,eval(txt),by=id] 
    id (Intercept) b 
    1: 1   21 -1 
    2: 2   21 -1 
    3: 3   21 -1 
    4: 4   21 -1 
    5: 5   21 -1 

Answer 1

lm kann eine Zeichenfolge akzeptieren, wie die Formel so kombinieren, dass mit .SD wie folgt aus:

> x[, as.list(coef(lm("a ~ b", .SD))), by = id] 
    id (Intercept) b 
1: 1   21 -1 
2: 2   21 -1 
3: 3   21 -1 
4: 4   21 -1 
5: 5   21 -1