我有一个具有特定系数的data.frame。为了MWE的目的,
DF <- data.frame(a = rnorm(100), b = rnorm(100))我想在指定的x间隔内为a和b的每个值绘制方程y = a*x + b。函数stat_function与我想要的很接近,但它似乎不接受具有可变参数的函数。
我认为我可以沿着间隔创建一个足够精细的序列,然后将数据帧连接到序列中,然后使用mutate手动获取y。然而,我很好奇是否有更直接的方法。
更一般地,给定一个包含参数的函数f(x; a1, a2, ..., an) : \R \to \R,我们如何让data.frame在x的一个区间内为每一行参数绘制一条直线?
发布于 2015-02-18 17:10:05
以下是我的方法:
linear_fun <- function(x, a, b) {
a*x + b
}
stat_linear_fun <- function(x_range, a, b)
stat_function(data = data.frame(x = x_range),
mapping = aes(x),
fun = linear_fun,
args = list(a = a, b = b))
plot_ab <- function(DF, x_range) {
p <- ggplot()
for (i in 1:nrow(DF)) {
p <- p + stat_linear_fun(x_range, DF$a[i], DF$b[i])
}
p
}
DF <- data.frame(a = -2:2, b = c(0, -3, 2, -5, 6))
plot_ab(DF, c(0, 10))

https://stackoverflow.com/questions/28553387
复制相似问题