r - Rで条件が満たされたときに行を分割する方法

Question

一意の値に関連付けられた手段がたくさんあります。固有の値は、2 つの異なる素材でテストしたラインです。RI では、一意の値を取り、基質 A の平均 (pheno_output) を基質 B で除算し、これを新しいベクトルに吐き出すループを構築したいと考えています。

これは私が取り組んでいるものです。

tmpmeans<-  rep(NA, 2);

for (i in unique(SplitnonMEANs$Line)){
  tmpmeans<- SplitnonMEANs$pheno_output[i]/SplitnonMEANs$pheno_output[i]
}

サンプルデータ:

s;

Line phenotype FoodSource pheno_output
1    non        A           123
2    non        A           456
1    non        B           789
2    non        B           159

誰でも私がこれを行うのを手伝ってもらえますか?

Answer 1

使っdata.tableたほうが早い

 library(data.table)
  setDT(df)[,list(pheno_output=ifelse(.N==2, pheno_output[1]/pheno_output[2], NA_real_)), by=Line]
  #  Line pheno_output
 #1:    1 0.1558935
 # 2:   2 2.8679245