如果数据框包含 X 变量，则 R 添加列数据框

Question

如何有条件地向数据帧添加一列是该数据帧具有 X 列数？

假设我有几个数据框，有的有 5 列，有的有 6 列，我想在有 5 的列中添加一个空列？

谢谢！

Answer 1

当您的数据框没有 6 时，您可以创建一个创建新列的函数：

MyFunction <- function(df){
  if(ncol(df == 5)){
    df <- df %>% 
      mutate(newcol = NA)
  }
  else{
    df <- df
    }
}

然后，创建一个数据框列表：

mylist <- list(df1,df2,...)

然后，您可以使用lapply在所有数据帧上创建列

lapply(mylist, MyFunction)