图片没有显示，但是我能理解你的意思，大概就是

library(tidyverse)
data.frame %>% group_by(ID) %>% summarize(Cmax = max(concentration)) %>% ungroup() %>% inner_join(data.frame)

不用循环，但是你的数据量如果实在是大，tidyverse的包也会很慢，所以可以转到data.table包进行类似的操作

感谢老铁！！！！！
如果我想再求出线性拟合max connection 以后的（且非零的）connection和t （lnC = a + k*t）也可以在group by后面拟合么
原数据类似：
ID       TIME     Concentration
Pat1     1          1
Pat1     2          5
Pat1     3          3
Pat1     4          2
Pat1     5          0
Part1    6          0
(这样竖着的一堆pat）