R print-Gleichung der linearen regression auf die Handlung selbst

Wie drucken wir die Gleichung einer Linie auf einem Grundstück?

Ich habe 2 unabhängige Variablen und möchte eine Gleichung wie diese:

y=mx1+bx2+c

where x1=cost, x2 =targeting

Kann ich zeichnen Sie die Regressionsgerade, aber wie kann ich drucken Sie die Gleichung auf dem Grundstück?

Vielleicht kann ich nicht drucken, die 2 unabhängige Variablen in eine Gleichung aber wie mache ich es für sagen
y=mx1+c mindestens?

Hier ist mein code:

fit=lm(Signups ~ cost + targeting)
plot(cost, Signups, xlab="cost", ylab="Signups", main="Signups")
abline(lm(Signups ~ cost))

1) wollten Sie die Werte der Koeffizienten in der Gleichung, oder einfach nur y = m x1 + b x2 + c? 2) die Linie, Die Sie gezeichnet (Prädiktor 1) entspricht nicht dem linearen Modell, in dem Sie eingebaut ist. In der Tat, der Koeffizient für die Kosten-variable in die gerade Passform könnte auch anders sein, in Zeichen, der aus der multiplen regression. Wenn Sie etwas ausdrucken könnte vollkommen anders sein, wird das nicht unübersichtlich?
Duplikate: stackoverflow.com/questions/14913109/... (ggplot), stackoverflow.com/questions/22970708/... (quadratisch), stackoverflow.com/questions/9681765/... (facettiert ggplot), stackoverflow.com/questions/12248116/add-text-to-lattice-plot (Gitter)

InformationsquelleAutor jxn | 2014-06-11

r regression

Habe ich versucht zu automatisieren, die Ausgabe ein bisschen:

fit <- lm(mpg ~ cyl + hp, data = mtcars)
summary(fit)
##Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 36.90833    2.19080  16.847  < 2e-16 ***
## cyl         -2.26469    0.57589  -3.933  0.00048 ***
## hp          -0.01912    0.01500  -1.275  0.21253 


plot(mpg ~ cyl, data = mtcars, xlab = "Cylinders", ylab = "Miles per gallon")
abline(coef(fit)[1:2])

## rounded coefficients for better output
cf <- round(coef(fit), 2) 

## sign check to avoid having plus followed by minus for negative coefficients
eq <- paste0("mpg = ", cf[1],
             ifelse(sign(cf[2])==1, " + ", " - "), abs(cf[2]), " cyl ",
             ifelse(sign(cf[3])==1, " + ", " - "), abs(cf[3]), " hp")

## printing of the equation
mtext(eq, 3, line=-2)

R print-Gleichung der linearen regression auf die Handlung selbst

Hoffe es hilft,

alex

InformationsquelleAutor alko989

Verwenden Sie ?text. Zusätzlich, sollten Sie nicht verwenden abline(lm(Signups ~ cost)), als dieses ist ein anderes Modell (siehe meine Antwort auf CV hier: Gibt es einen Unterschied zwischen "Steuern für' und 'ignorieren' anderer Variablen in der multiplen regression). Jedenfalls betrachten:

set.seed(1)
Signups   <- rnorm(20)
cost      <- rnorm(20)
targeting <- rnorm(20)
fit       <- lm(Signups ~ cost + targeting)

summary(fit)
# ...
# Coefficients:
#             Estimate Std. Error t value Pr(>|t|)
# (Intercept)   0.1494     0.2072   0.721    0.481
# cost         -0.1516     0.2504  -0.605    0.553
# targeting     0.2894     0.2695   1.074    0.298
# ...

windows();{
  plot(cost, Signups, xlab="cost", ylab="Signups", main="Signups")
  abline(coef(fit)[1:2])
  text(-2, -2, adj=c(0,0), labels="Signups = .15 -.15cost + .29targeting")
}

R print-Gleichung der linearen regression auf die Handlung selbst

InformationsquelleAutor gung

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.