使用R预测磁盘空间

Question

I have 2 vectors 
days = c(1, 2, 3, 4, 5, 6, 7)
pct_used = c(22.3, 22.1, 22.1, 22.1, 55.660198413, 56.001746032, 55.988769841)

fit <- lm(days ~ poly(pct_used,2,raw=TRUE))
prediction <- predict(fit, data.frame(pct_used=85))
days_remain <- (prediction - tail(days,1)) 

pct_used基本上是磁盘空间。因此，此代码预测磁盘空间何时达到85 返回的预测值是325.something我感觉很奇怪。这是否意味着它需要325天到达pct_used = 85？
我哪里错了？

Answer 1

试试看看发生了什么：

plot(pct_used, days)
lines(pct_used, predict(fit

plot(pct_used, days, xlim=c(min(pct_used), 85) ,ylim= c(-50,350))
lines(seq(min(pct_used), 85, length=50), predict(fit, newdata=data.frame( 
                                        pct_used=seq( min(pct_used), 85, length=50))))