读取工作簿

在上一个练习中，您生成了一个包含 3 个已导入 Excel 工作表的列表。不过，手动逐个加载每个工作表，然后再把它们合并到列表中，会相当繁琐。幸运的是，您可以用 lapply() 来自动完成。

请查看下面的示例代码：

my_workbook <- lapply(excel_sheets("data.xlsx"),
                      read_excel,
                      path = "data.xlsx")

read_excel() 函数会在 "data.xlsx" 文件上被多次调用，每个工作表依次被读入。结果是一个由数据框组成的列表，其中每个数据框对应 data.xlsx 里的一个工作表。

您仍将使用 urbanpop.xlsx（查看）文件。

将 lapply() 与 excel_sheets() 和 read_excel() 结合使用，读取 "urbanpop.xlsx" 中的所有 Excel 工作表。把得到的列表命名为 pop_list。
打印 pop_list 的结构。