Question

我正在使用R编写聚合函数，并且需要在聚合定义的函数peakdet_new中调用。

peakdet_new <- function(dmx, v, x = NULL)
{
 ....

  if(nrow(data.frame(list(maxtab = maxtab)))== 1)
  {
    data.frame(DataMatrix=c(unique(dmx)), Status=c("OK"))
  } else
  {
    data.frame(DataMatrix=c(unique(dmx)), Status=c("NOK"))
  }
  #list(maxtab = maxtab) #,mintab = mintab)
  #return(maxtab)
  # if(nrow(data.frame(list(maxtab = maxtab)) >= 1))
  #        {
  #          return(print("NOK"))
  #        } else
  #          {
  #          return(print("OK"))
  #        }

}

什么给了我输出：

peakdet_new(DMX_$DataMatrix, DMX_$X, DMX_$Y)
                        DataMatrix Status
1 00003275216311504500-A1820800306    NOK

这是我的桌子

DataMatrix  X   Y
00003275216311504500-A1812300356    0.23    30000
00003275216311504500-A1812300356    0.23    30483
00003275216311504500-A1829600367    0.41    30000
00003275216311504500-A1829600367    0.42    30483

问题是我不知道如何应用peakdet_new来聚合函数，

data.agg <- aggregate(DMX_together[c('X', 'Y')], by = DMX_together['DataMatrix'], FUN = peakdet_new(DMX_together$DataMatrix, DMX_together$X, DMX_together$Y))
Error in match.fun(FUN) : 
  'peakdet_new(DMX_together$DataMatrix, DMX_together$X, DMX_together$Y)' is not a function, character or symbol

不带参数

data.agg <- aggregate(DMX_together[c('X', 'Y')], by = DMX_together['DataMatrix'], FUN = peakdet_new)
Error in FUN(X[[i]], ...) : argument "v" is missing, with no default

我期望聚合函数的输出：

   DataMatrix                         Status
1 00003275216311504500-A1820800306    NOK
2 00003275216311504500-A1829600367    NOK

Answer 1

由于您需要在整个数据帧上运行操作，因此请考虑通过每个不同的 DataMatrix 用peakdet_new子集调用by。另一方面，aggregate通常期望由 by 因子切片的单位级别向量返回聚合的向量（以后与分组因子绑定以返回数据帧）。

调用by将对每个子数据帧运行操作以构建一个列表（等于子集的唯一值），然后您可以在其中将所有元素rbind放入单个数据帧：

df_list <- by(DMX_, DMX_$DataMatrix, function(sub) 
                peakdet_new(sub$DataMatrix, sub$X, sub$Y))

final_df <- do.call(rbind, unname(df_list))

使用R将汇总应用于定义的函数

1 个答案: