Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/list/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
迭代数据帧列表,并在R中获得每个数据帧的子集_R_List_Dataframe_Iteration - Fatal编程技术网

迭代数据帧列表,并在R中获得每个数据帧的子集

迭代数据帧列表,并在R中获得每个数据帧的子集,r,list,dataframe,iteration,R,List,Dataframe,Iteration,我有一个数据帧列表(mylist),我想对它们进行迭代,并从每个数据帧中获取特定列中没有某些值的所有行(“上游”或“下游”)!我想将数据帧的子集(对于其余的值)返回到列表中! 目前我正在这样做: mylist<- lapply(mylist, function(df){ if (df$column != "upstream" | "downstream"){ mylist <- df } }) 提前感谢您提供的任何帮助 正如PeterDee所指出的:您使用的|不正

我有一个数据帧列表(mylist),我想对它们进行迭代,并从每个数据帧中获取特定列中没有某些值的所有行(“上游”或“下游”)!我想将数据帧的子集(对于其余的值)返回到列表中! 目前我正在这样做:

mylist<- lapply(mylist, function(df){
  if (df$column != "upstream" | "downstream"){
     mylist <- df
  }
})

提前感谢您提供的任何帮助

正如PeterDee所指出的:您使用的
|
不正确。使用%中的
%

myfun <- function(df, words) {
  good_col <- which(! df$column %in% words)
  df[good_col,]
}

我基本上是这样做的,但谢谢你的回答<代码>用于(i in 1:length(mylist)){mylist[[i]]
myfun <- function(df, words) {
  good_col <- which(! df$column %in% words)
  df[good_col,]
}
lapply(mylist, myfun, c("upstream", "downstream"))