根据前导空格的数量将列分隔为新列

Question

这些报告来自quickbooks,下载为Excel文件.请注意,左列是基于左侧间距的嵌套层次结构.

我需要根据左侧前导空格的数量将Description列分隔为单独的列.

由于我最近一直在处理财务报告,因此这些报告非常普遍,而且非常难以使用.是否有用于导入此类数据的包或函数？

以下是可重现的输入数据框示例:

df1 <- structure(list(Description = c("asset", " current asset", "   bank acc", 
                                      "    banner", "    clearing",
                                      "   total bank accounts",
                                      " total current assets"),
                 Total = c(NA, NA, NA, 10L, 20L, 30L, 30L)),
            .Names = c("Description", "Total"), 
            class = "data.frame", 
            row.names = c(NA, -7L))

Answer 1

你可以试着tidyxl和unpivotr这些Excel的争论任务.以下是文档:

• unpivotr:https://github.com/nacnudus/unpivotr
• tidyxl:https://nacnudus.github.io/tidyxl/

这是一个很好的教程:https://blog.davisvaughan.com/post/tidying-excel-cash-flow-spreadsheets-in-r/