Cor产生与LM不同的结果

Question

在rstudio中，我使用了cor函数并在Margin和TOTAL_EMPLOYEES之间得到了这个结果：-0.1033

但是，我正在尝试制作一个最适合视觉表现的散点图和线条。我宁愿不使用对（因为我运行了许多因变量;我宁愿选择要呈现的关键结果）。我尝试了这段代码：

plot(df_full$TOTAL_EMPLOYEES, df_full$Margin, xlab="TOTAL_EMPLOYEES", ylab="Margin4 ", pch=19)
abline(lm(df_full$Margin~df_full$TOTAL_REVENUE), col="red") # regression line (y~x)

为了确认最合适的线，我跑了这个：

lm(formula = df_full$Group_4 ~ df_full$TOTAL_EMPLOYEES)

但那产生了：

Coefficients:
        (Intercept)  df_full$TOTAL_EMPLOYEES  
          3.004e+00               -1.456e-05  

我是否应该预期斜率为-0.1033？