让我们以以下数据为例，
data(cars)
xyplot(dist ~ speed, cars)
我想添加一个指数/双曲线函数，就像下面的代码一样，
而是使用与指数/双曲函数有关的模型函数.为了使它更清楚，我知道可以绘制几个模型感谢panel.abline()of lattice包，通过添加以下选项到xyplot.你知道吗，我怎么能做同样的事情—通过显式模型函数在dist and speed variables之间绘制双曲线—就像lm()/panel.abline()做的那样？
panel.abline(lm(dist ~ speed, data = cars), col.line = "red")
panel.abline(lm(dist ~ I(speed^2), data = cars), col.line = "green")
panel.abline(lm(dist ~ I(speed^3), data = cars), col.line = "blue")
panel.superpose(x, y, ..., type = c("p", "r"), pch = 16, lty = 1:3, lwd = 2)
panel.curve(
fun(x/ line_scale),
from = from,
to = to,
type = "l",
col = "blue",
lwd = 3
)
}
谢谢
