rbind 和 cbind 一起列出答案

【问题标题】：rbind and cbind lists togetherrbind 和 cbind 一起列出
【发布时间】：2017-02-17 19:13:26
【问题描述】：

我有下面的代码，其中我将列表 SampleDf 和 sampleDF2 rbind 在一起，然后将两个字符向量 cbind 到它上面。我想做的是创建一个函数，在其中我可以将另一个 sampleDF3、Recipe3 和成分列表传递给它，并将它们类似地 rbind 和 cbind 放在一起。有没有像 lapply 或 do.call 这样的简单方法？我的最终目标是能够向函数传递 sampleDF、Recipe 和成分的列表，并将它们全部 rbind 和 cbind 组合在一起，类似于下面的示例。

Code:
try1<-cbind(cbind(RecipeName<-c("Recipe1","Recipe2"),ingredients<-c("","Beans"))
          ,rbind(
                  SampleDf
                 ,sampleDf2

                  )
             )


Data:

dput(SampleDf)
structure(c(45.8490717149901, 75.6532220962743, 49.4757541141121, 
21.7923657299986, 153.255016847245), .Dim = c(1L, 5L), .Dimnames = list(
    "Test set", c("ME", "RMSE", "MAE", "MPE", "MAPE")))

dput(sampleDf2)
structure(c(-1.39930351254246, 65.1992541962796, 46.5664097914753, 
-364.369685854671, 412.539393211685), .Dim = c(1L, 5L), .Dimnames = list(
    "Test set", c("ME", "RMSE", "MAE", "MPE", "MAPE")))

dput(sampleDf3)
structure(c(0, 65.1992541962796, 1, 
-364.369685854671, 10), .Dim = c(1L, 5L), .Dimnames = list(
    "Test set", c("ME", "RMSE", "MAE", "MPE", "MAPE")))

【问题讨论】：

如果您查看try1 的输出，它是所有字符列。我想这不是你想要的，对吧？将sample 数据集放在list 中，转换为data.frame，然后使用do.call(rbind，即res <- do.call(rbind, lapply(mget(ls(pattern="(?i)SampleDf\\d*")), as.data.frame))

标签： r lapply rbind cbind

【解决方案1】：

您可以执行以下操作：

require(dplyr)
bind_all <- function(rows, cols){
  rows <- lapply(rows, as.data.frame)
  cols <- vapply(cols, as.data.frame, list(1))
  bind_cols(bind_rows(rows), cols)
}

bind_all(list(SampleDf, sampleDf2), 
         list(RecipeName=c("Recipe1","Recipe2"),ingredients=c("","Beans")))

这给了你：

         ME     RMSE      MAE        MPE     MAPE RecipeName ingredients
1 45.849072 75.65322 49.47575   21.79237 153.2550    Recipe1            
2 -1.399304 65.19925 46.56641 -364.36969 412.5394    Recipe2       Beans

【讨论】：