Wie produziert man nur den Schnittpunkt mit model.matrix?

Question

Die Funktion stats::model.matrix kann ein Eingangsdatenrahmens in eine Matrix geeignet für rohe algebraische Manipulation zur Umwandlung in der Lösung Regressionsgleichungen etc. Zum Beispiel verwendet werden:

set.seed(0) 
df <- data.frame(a = rnorm(5), n = rnorm(5)) 
model.matrix(~., data = df) 

produziert:

(Intercept)   a   n 
1   1 1.2629543 -1.539950042 
2   1 -0.3262334 -0.928567035 
3   1 1.3297993 -0.294720447 
4   1 1.2724293 -0.005767173 
5   1 0.4146414 2.404653389 

Einer der Features ist, dass es steuert, wie der Schnittpunkt der Entwurfsmatrix hinzugefügt wird. Vergleichen Sie: model.matrix(~ 0 + ., data = df) vs model.matrix(~ 1 + ., data = df)

nun die . in der Formel gibt an, dass alle Variablen von df sollten einbezogen werden. Dies führt zu einem Problem, wenn ich wünsche einen leeren Datenrahmen passieren und somit nur die Abschnitte erstellen, zB:

df <- data.frame(matrix(, nrow=5, ncol=0)) 
model.matrix(~ ., data = df) 

führt zu:

Error in terms.formula(object, data = data) : 
    '.' in formula and no 'data' argument 

Wer weiß, wie dies zu umgehen, zu Spezifisch möchte ich das folgende Ergebnis von model.matrix(~ 1, data = df), mit Ausnahme der ..

Answer 1

Sie könnten tun:

model.matrix(as.formula(paste0("~", colnames(df), "+1", collapse="+")), data=df) 

Aber ich denke, Sie besser dran sind mit if-Anweisung. Ich denke, Formeln in R sind mehr Bequemlichkeit als irgendetwas Grundlegendes.