画一个圆以突出显示R中曲线的最大值

Question

我试图画一个小圆圈，以突出显示使用该curve()方法绘制的函数的最大值。我已经知道该点的坐标，因此不必使用R来计算它们。这是我编写的绘制曲线的代码：

curve(expr=exp(-((sum(s1, s2, s3, s4, s10, s599)-x*1599)^2)/
                 (2*1599*x))/sqrt(2*pi*1599*x), xlim=c(0.5, 1.5), 
      xlab=expression("rate"~~"[ "*s^-1*" ]"), ylab="")

我还会附上我所拥有和我想做什么的图像。

我可以绘制的曲线：

带小圆圈的曲线：

在此先感谢大家的帮助。

洛伦佐

Answer 1

我们可以使用points。

例：

curve(x^2)
points(x=.5, y=.25, cex=2, col="red")

或者，更复杂的...

v <- curve(-x^2, xlim=c(-1, 1))
points(max(v$y), v$x[which.max(v$y)], cex=2, col=2)