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

我想我需要使用重塑或转换功能…但是我不确定如何先分割文件名然后排列数据

Answer 1

我们可以使用dcast的data.table 。 通过拆分原始数据集的行名，在原始数据集中创建两个新列（或通过将新列与原始数据集cbind来作为新数据集）。 然后，将'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"))