R 语言经典实例（原书第 2 版）

输入与输出

｜

105

并选择我们想要的一个表。在此示例中，我们所使用的 Excel 表名为 example_table：

tables <- getTables(wb, 'input_data')

table_range_str <- names(tables[tables == 'example_table'])

table_range_refs <- strsplit(table_range_str, ':')[[1]]

# use a regex to extract out the row numbers

table_range_row_num <- gsub("[^0-9.]", "", table_range_refs)

# extract out the column numbers

table_range_col_num <- convertFromExcelRef(table_range_refs)

现在，向量 col_vec 包含我们指定表的列数，而 table_range_row_num 包含我们

指定表的行数。然后我们可以使用 read.xlsx 函数仅导入我们需要的行和列：

df <- read.xlsx(

xlsxFile = "data/excel_table_data.xlsx",

sheet = 'input_data',

cols = table_range_col_num[1]:table_range_col_num[2],

rows = table_range_row_num[1]:table_range_row_num[2] ...