识别曲线中的点

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(uf$unimod.func, maximum=TRUE, interval=range(P0mM$Time)) #$maximum #[1] 29.27168 # #$objective # [,1] #[1,] 14444.85 或<q:qbe xmlns:q="http://marklogic.com/appservices/querybyexample"> <q:query><ALBUM>Pop</ALBUM></q:query> <q:response><q:extract><TITLE></TITLE></q:extract></q:response> </q:qbe> 的情况（取决于您与英国或美​​国英语的亲和力）：

{{1}}