"prediction from a rank-deficient fit may be misleading" 在 geom_smooth()

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)))

"prediction from a rank-deficient fit may be misleading" 在 geom_smooth()

"prediction from a rank-deficient fit may be misleading" in geom_smooth()

r

ggplot2

linear-regression