使用ggplot2曲线拟合R中的函数

Question

我有以下示例：

seed(123)
x<-runif(100)
y<-runif(100)

f <- function(x) { return(4 * x * (1 - x)) }

我想显示函数f的假设依赖关系以及x和y的数据点，如下图所示。

任何人都可以帮忙使用ggplot2吗？

谢谢。

Answer 1

使用stat_function()

df <- data.frame(x= runif(100), y = runif(100))
f <- function(x) { return(4 * x * (1 - x)) }

ggplot(aes(x,y), data = df) + geom_point() +
stat_function(fun=f)