【发布时间】:2020-02-18 22:13:43
【问题描述】:
有一个数据集randomdat包含299个obs,两个分类变量,var 9包含With XYZ和Without XYZ等值,var8包含Group A/Group B/Group C等值, var1 是一个数值变量。
然后是模型:
m7 <- lm(var3~var1+I(var1^2)+I(var1^3)+var9, data=randomdat)
检查summary(m7),它显示Without XYZ总是比With XYZ小34451.4。
> summary(m7)
Call:
lm(formula = var3 ~ var1 + I(var1^2) + I(var1^3) + var9, data = randomdat)
Residuals:
Min 1Q Median 3Q Max
-391506 -75127 4799 77175 323856
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -162934.42035 18571.30251 -8.773 <0.0000000000000002 ***
var1 10927.87454 741.36511 14.740 <0.0000000000000002 ***
I(var1^2) -180.82979 10.44006 -17.321 <0.0000000000000002 ***
I(var1^3) 0.99499 0.04223 23.562 <0.0000000000000002 ***
var9Without XYZ -34451.43378 14570.55030 -2.364 0.0187 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 117500 on 294 degrees of freedom
Multiple R-squared: 0.8642, Adjusted R-squared: 0.8624
F-statistic: 467.9 on 4 and 294 DF, p-value: < 0.00000000000000022
那么有两个预测模型:
m7_predictwith <- predict(m7,list(var1=randomdat$var1, var9 = rep("With XYZ",299)))
m7_predictwout <- predict(m7,list(var1=randomdat$var1, var9 = rep("Without XYZ",299)))
如果你绘制它们,你会看到两条线没有重叠。
ggplot(randomdat, aes(x = var1, y = var3)) +
geom_point(aes(colour = var8, shape = var8)) +
geom_line(aes(x=randomdat$var1,y=m7_predictwith), color = 'red', lty = 2) +
geom_line(aes(x=randomdat$var1,y=m7_predictwout), color = 'black', lty = 3)
现在问题来了,在这种情况下如何理解var9 = rep("With XYZ",299)或var9 = rep("Without XYZ",299)?它们不是意味着将var9 中的所有值替换为With XYZ 或Without XYZ 吗? var1在m7_predictwith和m7_predictwout中是一样的,它们的情节线应该是同一条线?在这种情况下,对rep() 的语法用法非常困惑。
【问题讨论】:
-
有人吗?......
标签: r data-visualization data-analysis rep