Я создал график на основе этого кода:
df6<-structure(list(distance_down = c(0, 10, 20, 30, 40, 50, 60, 70, 80), downwind = c(6, 0, -1, -2, -3, -3.5, -3.5, -4, -4)), class = "data.frame", row.names = c(NA, -9L))
Используя ggplot2:
downwindplot<-ggplot(data=df6,aes(x=distance_down,y=downwind))+geom_line()+geom_point()+labs(title = "Relationship between distance from source downwind and lesions present",x="Distance from Source",y="Downwind")
Я создал этот график
Теперь я буду sh чтобы прикрепить кривую к этому графику, кривая создается с использованием этого кода:
curve2<-curve(log(a.power)-b.power*log(x))
Я попытался сделать это, чтобы заставить его работать:
downwindplot + stat_function(fun=function(curve2))
, который вернул ошибку неожиданно " ) "
Я также пытался:
downwindplot + stat_smooth(method = "nls", formula = log(a.exp)-b.exp*x)
, который возвратил" неверную формулу "
Я хочу знать, возможно ли это сделать в ggplot2.