Do.Call，Rbind 数据框 - 添加列名和长到宽数据

Question

我正在分析 200 个 csv 文件中的数据。我已经在 R 中导入了文件，并创建了几个不同的函数，以便结果能够为我提供每个文件的函数（按颜色计数和求和）结果。函数结果采用数据框的形式。
对于最终结果，我使用了 do.call(rbind,result) 的组合，它产生如下输出： 因为我使用的是 rbind，所以第一列没有标题。

          Count Sum
File1.Blue  5   10
File1.Red   2   6
File2.Blue  1   3
File2.Red   1   1
File3.Blue  4
File3.Red   7   2   

列表很长。我想转置结果，使最终结果看起来像：

       Blue Count Blue Sum  Red Count   Red Sum
File 1      5       10      2       6
File 2      1       3       1       1
File 3      4       0       7       2

我想我需要使用 reshape 或 cast 功能......但我不知道如何先拆分文件名然后排列数据

Answer 1

我们可以从data.table 使用dcast。通过拆分原始数据集的行名，在原始数据集中创建两个新列（或通过cbinding 将新列与原始数据集作为新数据集）。然后，将 'data.frame' 转换为 'data.table' (setDT(df2))，并使用dcast，它可以占用多个value.var 列。

library(data.table)
 df2 <- cbind(read.table(text=row.names(df1), sep=".",
  header=FALSE, stringsAsFactors=FALSE), `row.names<-`(df1[,1:2], NULL))
dcast(setDT(df2), V1~V2, value.var= c("Count", "Sum"))
#       V1 Count_Blue Count_Red Sum_Blue Sum_Red
#1: File1          5         2       10       6
#2: File2          1         1        3       1
#3: File3          4         7       NA       2

数据

 df1 <- structure(list(Count = c(5L, 2L, 1L, 1L, 4L, 7L), Sum = c(10L,  
 6L, 3L, 1L, NA, 2L)), .Names = c("Count", "Sum"), class = "data.frame", 
 row.names = c("File1.Blue", 
 "File1.Red", "File2.Blue", "File2.Red", "File3.Blue", "File3.Red"))