R软件 作图 最简单的线性回归

sales <- c(430,335,520,490,470,210,195,270,400,480)
temp <- c(30,21,35,42,37,20,8,17,35,25)
line.fit <- lm(sales~temp)
plot(sales,temp)
abline(line.fit)


只出散点图 拟合的直线出不来
求高手帮忙