R zeichnen (abline + lm) line-of-best-fit durch beliebigen Punkt

Ich versuche zu zeichnen, eine least-squares-regression Linie mit abline(lm(...)) ist auch gezwungen, passieren einen bestimmten Punkt. Ich sehe diese Frage ist verwandt, aber nicht ganz das, was ich will. Hier ist ein Beispiel:

test <- structure(list(x = c(0, 9, 27, 40, 52, 59, 76), y = c(50, 68, 
79, 186, 175, 271, 281)), .Names = c("x", "y"))

# set up an example plot
plot(test,pch=19,ylim=c(0,300),
     panel.first=abline(h=c(0,50),v=c(0,10),lty=3,col="gray"))

# standard line of best fit - black line
abline(lm(y ~ x, data=test))

# force through [0,0] - blue line
abline(lm(y ~ x + 0, data=test), col="blue")

Diese sieht wie folgt aus:

R zeichnen (abline + lm) line-of-best-fit durch beliebigen Punkt

Nun wie würde ich mich über zwingen, eine Linie durch den markierten beliebigen Punkt der (x=10,y=50) während immer noch die Minimierung der Entfernung zu den anderen Punkten?

# force through [10,50] - red line
??

InformationsquelleAutor der Frage thelatemail | 2013-04-22

  1. 13

    Eine grobe Lösung wäre die Verschiebung der Ursprung für Ihr Modell zu diesem Punkt und erstellen Sie ein Modell ohne intercept

    nmod <- (lm(I(y-50)~I(x-10) +0, test))

abline(predict(nmod, newdata = list(x=0))+50, coef(nmod), col='red')

    R zeichnen (abline + lm) line-of-best-fit durch beliebigen Punkt

    InformationsquelleAutor der Antwort mnel

  2. 3

    Können Sie ändern Sie die Formel für lm() - und offset die Daten:

    p=10
q=50

abline(lm(I(y-q) ~ I(x-p) + 0, data=test), col="red")

    InformationsquelleAutor der Antwort Nishanth

Schreibe einen Kommentar