小编Aod*_*nOL的帖子

有没有一种简单的方法可以将虚线从实线回归线的末端扩展到预测值？

以下是我的基本尝试:

x = rnorm(10)
y = 5 + x + rnorm(10,0,0.4)

my_lm <- lm(y~x)
summary(my_lm)

my_intercept <- my_lm$coef[1]
my_slope <- my_lm$coef[2]
my_pred = predict(my_lm,data.frame(x = (max(x)+1)))

ggdf <- data.frame( x = c(x,max(x)+1), y = c(y,my_pred), obs_Or_Pred = c(rep("Obs",10),"Pred") )

ggplot(ggdf, aes(x = x, y = y, group = obs_Or_Pred ) ) +
     geom_point( size = 3, aes(colour = obs_Or_Pred) ) + 
     geom_abline( intercept = my_intercept, slope = my_slope, aes( linetype = obs_Or_Pred ) )

这并没有给出我希望看到的输出.我在SO上看了一些其他的答案,并没有看到任何简单的事情.我想出的最好的是:

ggdf2 <- data.frame( x …

我在Windows 7上使用Notepad ++时遇到了麻烦 - 它将我的所有代码设置为注释(即所有代码都显示为绿色).

我已经开启了"查看所有角色"并且似乎没有任何隐藏的#来实现它.

我的机器上没有管理员权限,所以我无法更新到更新版本的Windows,也无法轻松更改任何内置设置,但我可以在必要时寻求帮助.

非常感谢,Aodhán