library(ggplot2)
x<-1:10
y<-5*exp(2*x)+3
df<-data.frame(x=x,y=y)
exp_fun<-function(x,a,b,d){
a*exp(b*x)+d
}
ggplot(data=df,aes(x=x,y=y))+
geom_point()+
stat_function(fun=exp_fun,
args=list(a=5,b=2,d=3))
library(ggplot2)
x<-1:10
y<-5*exp(2*x)+3
df<-data.frame(x=x,y=y)
exp_fun<-function(x,a,b,d){
a*exp(b*x)+d
}
ggplot(data=df,aes(x=x,y=y))+
geom_point()+
stat_function(fun=exp_fun,
args=list(a=5,b=2,d=3))
本文标题：R语言ggplot2如果已知拟合方程添加拟合曲线
本文链接：https://www.haomeiwen.com/subject/ixcbrdtx.html
网友评论