使用擬合模型預測Y值的X值

Question

我需要使用擬合模型來預測新值y的相應x值。

從一個新的x值預測y價值的通常情況下是通過使用predict功能簡單，但我無法弄清楚如何做反向。

對於具有多個x解決方案的情況，我希望獲得x值範圍內的所有解決方案，即1-10。並且新的y將始終在用於擬合模型的y值的範圍內。

查看下面的示例代碼，我需要找到新的x值（new_x）。

x = seq(1:10) 
y = c(60,30,40,45,35,20,10,15,25,10) 

fit = lm(y ~ poly(x, 3, raw=T)) 

plot(x, y) 
lines(sort(x), predict(fit)[order(x)], col='red') 

new_y = 30 
new_x = predict(fit, data.frame(y=new_y)) #This line does not work as intended. 

編輯1：反轉配件

擬合反演關係不會產生相同的模式，因爲我們得到了一個不同的模型/擬合線。

rev_fit = lm(x ~ poly(y, 3, raw=T)) 

plot(x, y) 
lines(sort(x), predict(fit)[order(x)], col='red') 
lines(predict(rev_fit)[order(y)], sort(y), col='blue', lty=2) 

Answer 1

正如在this answer你應該能夠使用approx()您的任務暗示。例如。像這樣：

xval <- approx(x = fit$fitted.values, y = x, xout = 30)$y 

points(xval, 30, col = "blue", lwd = 5) 

爲您提供：