识别曲线中的点

Question

我觉得这是一个简单的问题......

你如何识别图中的坐标？我绘制了一些数据,使用unireg(uniReg包)制作样条曲线,并想从一个点中提取数据.

library(uniReg)
P0mM <- read.table(text="
Time           FeuM
0.04    138.8181818
   7    1258.636364
  14    1320.545455
  21     2110.37037
  28    13730.37037
  35    1550.909091",header=TRUE)

z=seq(min(P0mM$Time),max(P0mM$Time),length=201)
uf=with(P0mM,unireg(Time,FeuM,g=5,sigma=1))
plot(FeuM~Time,P0mM,ylim=c(0,16000),ylab="Fe2+ uM", xlab="Time", main="0mM P")
lines(z,uf$unimod.func(z))

我能够找到曲线的最大y值(即14444)

max((uf$unimod.func(z)))

我想确定x轴在哪里发生.(应该是30左右,但我想确切).

你怎么做到这一点？

谢谢!

Answer 1

似乎是一个案例optimise或optimize(取决于你与英国或美​​国英语的亲和力):

optimise(uf$unimod.func, maximum=TRUE, interval=range(P0mM$Time))
#$maximum
#[1] 29.27168
#
#$objective
#         [,1]
#[1,] 14444.85