组合R中的列系列

Question

V1    V2    V3    V4    V5    V6
A     B     C     D     E     F

first second third
AD    BE     CF

为此，我尝试使用lapply和一个自定义函数：

col_unite <- c(c('V1', 'V4', 'first'), c('V2', 'V5', 'second'), c('V3', 'V6', 'third'))
#function that combines columns and gives a new name
unite_cols <- function(dataframe, col_list){
  dataframe[[col_list[3]]] <- paste0(dataframe[[col_list[1]]], ', ', 
  dataframe[[col_list[2]]])
  dataframe
}

new_df <- lapply(col_unite, function(x){
   df <- unite_cols(orig_df, x)
   # df[x[3]] <- paste0(test[x[1]], ', ', test[x[2]]) # a different attempt
   return(df)
})

我知道我可以用一堆联合声明来做到这一点，或者也许有一种方法可以用循环和联合来做到这一点。但是考虑到需要遍历的列数，我想尝试用一种更优雅的方式来完成它。

Answer 1

像这样的怎么样

n <- 4
rbind.data.frame(apply(matrix(df, nrow = n - 1), 1, paste0, collapse = ""))
#   X.AD. X.BE. X.CF.
#1    AD    BE    CF

在这里，我们通过将data.frame转换为n-1行、paste0ing行的n=4个条目来组合每个n=4个条目，并将生成的矩阵转换回data.frame条目。

唯一剩下的就是想出合适的列名。

df <- read.table(text =
    "V1    V2    V3    V4    V5    V6
A     B     C     D     E     F", header = T, colClasses = "character")