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

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)



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