我有两列数据，存于附件（），现列出头几行数据作为例子：

1 7.38
2 9.23
3 7.06
4 8.18
5 8.21
6 9.02
7 9.19
8 9.74
9 8.87
10 7.44
11 8.72
12 8.72
13 9.09

我根据这个数据先画散点图，接着通过abline做一个线性回归图。结果线性图非常陡峭，因为看散点图，应该没这么陡峭的。我的代码如下：

rt <- read.delim("data.txt", head=TRUE)
lm.sol<-lm(Num~Close, data=rt)
attach(rt)
plot(Close~Num); abline(lm.sol)



不知道是什么地方出现问题，出现了如此陡峭的直线。新人谢谢大家了！