Question

问题

使用R和rmongodb，如何从两个数据框创建一个mongodb文档，第二个数据框是第一个的数组元素？

数据

我的第一个data.frame始终是一行。 e.g。

df_1 <- data.frame(myVar1 = 1,
                   myVar2 = 2,
                   myVar3 = 3)

我的第二个data.frame始终是一行或多行 e.g。

df_2 <- data.frame(arrVar1 = c(1,2),
                   arrVar2 = c(1,2))

必备解决方案

我的目标是在集合中创建一个文档，其结构如下：

# {
# "_id" : ObjectId("565a939aa30fff2d67bfd492"),
# "vars" : {
#   "myVar1" : 1.0000000000000000,
#   "myVar2" : 2.0000000000000000,
#   "myVar3" : 3.0000000000000000,
#   "myArr" : [
#        {
#            "arrVar1" : 1,
#            "arrVar2" : 1
#         },
#         {
#            "arrVar1" : 2,
#            "arrVar2" : 2
#         }
#     ]
#   }  
# }

我怎样才能做到这一点？

修改

（删除了我的所有尝试）

感谢Dmitriy的回答并向我展示了我需要实现的结构。

因此，我已经通过几种不同的方式来获得解决方案。

library(microbenchmark)

fun_1 <- function(df){
  list(myArr = unname(split(df, seq(nrow(df)))))  
}

fun_2 <- function(df){
  list('myArr' = Map(function(i, d) d[i, ], 
                     seq_len(nrow(df)), 
                     MoreArgs = list('d' = df)
  ))
}

fun_3 <- function(df){
  list(myArr = (lapply(as.list(1:dim(df)[1]), function(x) df[x[1],])))
}

microbenchmark(fun_1(df_2), fun_2(df_2), fun_3(df_2),  times = 1000)


Unit: microseconds
       expr     min       lq     mean   median       uq      max neval
fun_1(df_2) 162.135 176.7315 197.8129 187.7065 201.0385 1555.802  1000
fun_2(df_2)  84.770  92.2840 102.3595  96.3135 108.8165 1441.410  1000
fun_3(df_2)  85.052  93.8675 103.7496  97.9310 109.4090 1422.860  1000

Answer 1

这里没有特别的rmongodb。正如我到处写的那样：rmongodb会将未命名的列表转换为数组并将列表命名为对象。所以你应该将你的第二个data.frame转换成正确的列表：

df2_transformed <-  list('myArr' = Map(function(i, df) df[i, ], 
                                   seq_len(nrow(df_2)), 
                                   MoreArgs = list('df' = df_2)
                                  ))
df1_df2_comb <- c(df_1, df2_transformed)
str(df1_df2_comb)
mongo.insert(mongo, paste0(db,".",coll), df1_df2_comb)

您可以使用Map，lapply，mapply - 取决于您的偏好。

rmongodb - 将两个数据框合并到一个集合中的一个文档中

1 个答案: