Question

我正在合并小标题列表，尤其是80000。我认为其中有些是null或空的数据框，但是我很难充实它们。

我正在使用以下代码，但未成功

category_data_non_empty <- Filter(Negate(is.null), category_data_names)
category_data_df <- reduce(function(x ,y) merge(x, y, by=names(x)[1]), category_data_non_empty)

我还能做什么其他整洁的方式？

Answer 1

获胜者是：谢谢大家的帮助

category_data_non_empty     <- lapply(category_data_names, function(x) !is.null(dim(x))) %>% unlist(use.names = FALSE) # %>% unlist(use.names = FALSE) 

category_data_df            <- category_data_names[category_data_non_empty] %>% bind_rows

Answer 2

请考虑NROW中的Filter，以删除列表中的NULL或NA元素或空数据框。

category_data_non_empty <- Filter(NROW, category_data_names)

category_data_df <- Reduce(function(x ,y) merge(x, y, by=names(x)[1]),
                           category_data_non_empty)

否则，您当前的尝试需要传递一个匿名函数参数，因为您运行了两个嵌套方法。但是，这留下了空的（零行）数据帧：

Filter(function(df) Negate(is.null(df)), category_data_names)

R-合并小标题列表

2 个答案: