自定义 readWorksheet

为了在不打开 Excel 文件的情况下快速了解 urbanpop.xlsx（查看），您可以运行以下代码：

my_book <- loadWorkbook("urbanpop.xlsx")
sheets <- getSheets(my_book)
all <- lapply(sheets, readWorksheet, object = my_book)
str(all)

假设我们只关心 1968、1969 和 1970 年的城市人口数据。这些年份的数据位于第二个工作表的第 3、4、5 列。仅选择这些列会让我们无法知道这些数字分别属于哪些国家。

在 readWorksheet() 命令中加入 startCol 和 endCol 参数，仅导入第二个工作表的第 3、4、5 列。
现在 urbanpop_sel 已不包含国家信息。请再写一个 readWorksheet() 命令，只从第二个工作表导入第 1 列。将得到的数据框保存为 countries。
使用 cbind() 按此顺序将 countries 与 urbanpop_sel 合并。将结果保存为 selection。