如何在R中合并列表和data.frame？

Question

I have a list named data3 , like this (from JSON file).

data3 <- list(structure(c(14, 7, 10, 4, 7), .Names = c("0", "3", "2", "14", "7")), structure(c(16, 10, 12, 6, 7), .Names = c("0", "3", "2", "14", "7")), structure(c(77708, 39434, 45489, 30223, 34829 ), .Names = c("0", "3", "2", "14", "7")), structure(c(9828, 6855, 7967, 5638, 6263), .Names = c("0", "3", "2", "14", "7")), structure(c(7626, 5783, 6406, 5074, 5348), .Names = c("0", "3", "2", "14", "7")), structure(c(1012, 404, 546, 251, 300), .Names = c("0", "3", "2", "14", "7")))

and it has some missing values like

 data3[4]
[[1]]
   0    3    2   14    7 
9828 6855 7967 5638 6263 

> data3[400]
[[1]]
 0  3  2 
44 35 38 

And I have a data.frame named data1 , like this:

       date  d1     d2  d3               d4
 3 20150402   4   5693   0              NEW             
 4 20150402   4   5693   0     UPGRADE(OEM)    
 5 20150402   4   5693   0  UPGRADE(ONLINE) 
 ...

I need to combine them like

    date  d1    d2  d3   d4     0     2     3     7    14
20150402   4  5693   0  NEW 77708 39434 45489 30223 34829 

The problem is that not all of data3 has the same number of elements.

I have tried this:

aaa <- NULL
for (i in 1:482){
  aaa <- cbind(data1[i, ],data3[[i]])
}

but it didn't work. May be there is another way to do this but I have no idea.

Answer 1

I can not reproduce your data1 data.frame so I am posting an example that uses first 6 rows of popular iris dataset:

> data3 <- list(structure(c(14, 7, 10, 4, 7), .Names = c("0", "3", "2", "14", "7")), structure(c(16, 10, 12, 6, 7), .Names = c("0", "3", "2", "14", "7")), structure(c(77708, 39434, 45489, 30223, 34829 ), .Names = c("0", "3", "2", "14", "7")), structure(c(9828, 6855, 7967, 5638, 6263), .Names = c("0", "3", "2", "14", "7")), structure(c(7626, 5783, 6406, 5074, 5348), .Names = c("0", "3", "2", "14", "7")), structure(c(1012, 404, 546, 251, 300), .Names = c("0", "3", "2", "14", "7")))
> 
> 
> t(as.data.frame(data3)) -> x
> rownames(x) <- NULL
> x
         0     3     2    14     7
[1,]    14     7    10     4     7
[2,]    16    10    12     6     7
[3,] 77708 39434 45489 30223 34829
[4,]  9828  6855  7967  5638  6263
[5,]  7626  5783  6406  5074  5348
[6,]  1012   404   546   251   300
> cbind(iris[1:6,],x)
  Sepal.Length Sepal.Width Petal.Length Petal.Width Species     0     3     2    14     7
1          5.1         3.5          1.4         0.2  setosa    14     7    10     4     7
2          4.9         3.0          1.4         0.2  setosa    16    10    12     6     7
3          4.7         3.2          1.3         0.2  setosa 77708 39434 45489 30223 34829
4          4.6         3.1          1.5         0.2  setosa  9828  6855  7967  5638  6263
5          5.0         3.6          1.4         0.2  setosa  7626  5783  6406  5074  5348
6          5.4         3.9          1.7         0.4  setosa  1012   404   546   251   300