如何使用 apply 排除列

Question

我想排除/复制列表中列表中多个数据帧的行/列。 该代码还不能运行。也许这里有人知道该怎么做。

Zelllysate_extr <- list()

#defining the list

Zelllysate_extr$X0809P3_extr <- X0809P3_extr

#defining the list within the list

X0809P3_extr = lapply(Zelllysate_colr[["X0809P3"]], function(x) {
  as.data.frame(x) <- Zelllysate_colr[["X0809P3_colr"]][2:1500, 1 & 3:4]
  return(x)
}) 

#defining the list for the dataframes to place in; 2:1500, 1 & 3:4 are the rows and columns to copy

谢谢

Answer 1

不要尝试迭代列表，而是迭代列表的长度。

X0809P3_extr = lapply(1: length(Zelllysate_colr[["X0809P3"]]), function(x) {
  Zelllysate_colr[["X0809P3_colr"]][[x]][2:1500, c(1, 3:4)]
}) 

您不需要 return 或将值设置为等于 lapply 中的值。

我假设 Zelllysate_colr[["X0809P3"]] 是列表 Zelllysate_colr 中的一个列表。

大多数情况下， dput(head(dataObject)) 的输出就足够了，但我认为您正在使用列表列表，因此可能不足以查看结构。