frame <- na.omit(data) %>%
  mutate(Cmax = max(C)) %>%                                            # 这一步应产生了一个Cmax列，但是不知道为啥到后面就消失了
  do(fit = lm(log(C)  ~ TIME, 参数。。。)) %>%                                         #拟合是正确的，就是拟合完就剩两列了
#附加问题：这里我想用最大值到最后的来拟合，有没有办法通过filter在前面就筛选出每（以ID）组最大值及后面的值
  mutate(A = as.numeric(coef(fit)[2])) %>%
  select(A, Cmax)  %>%  #这里没有Cmax了

各位大神：我写的如上代码，但是do 完了以后就只剩 ID 和fit 两列了， 后面再选C就没有C可选了，要怎么办啊？？
原始data类似：
ID.   C.   X
01.  3.    R
01.  4.   T
01.  5.  R
01.  2.  E
01.  NA R
.........连续好几个ID的数据
目标：
ID。C。X  Cmax。 A。