> dR <- d[d$treatment == "QRC" & !is.na(d$OV),] # データ subset > sort(dR$OV[flist$QRC.OV[[2]]@cluster == 1]) [1] 1.1591 1.2629 1.2746 1.2750 1.3287 1.3405 > sort(dR$OV[flist$QRC.OV[[2]]@cluster == 2]) [1] 1.6938 1.8513 2.0734 2.0862 2.1939 2.3647 2.3798 ...