r - geom_smooth() 中的 "prediction from a rank-deficient fit may be misleading"

Question

我使用 ggplot2 绘制我的数据并得到错误 “prediction from a rank-deficient fit may be misleading”。看这里:

# Data.
temp <- structure(list(x = c(-62135599651, -62135599057, -62135598463,  -62135597869, -62135597275, -62135596681, -62135596087, -62135595493,  -62135594899, -62135594305), y = c(0.1, 0.2, 0.4, 0.3, 0.5, 0.5,  0.9, 0.9, 0.8, 1)), class = "data.frame", row.names = c(NA, -10L))
# Plot.
ggplot(temp, aes(x, y)) +
  geom_point() +
  geom_smooth(method= "lm")

图中的 geom_smooth() 线看起来不对(正如错误提示的那样):

有一个similiar question但它缺乏可重现的例子，也没有答案。我可以在这里做什么？

编辑

对于那些想进一步了解如何统计解决它的人，请参阅我的问题here .

Answer 1

您遇到了数值精度舍入问题。

您可以通过减去 mean(x) 来使 x 居中。

ggplot(temp, aes(x, y)) +
  geom_point() + 
  geom_smooth(method= "lm", formula = y ~ I(x-mean(x)))