1）请读取“一、车次上车人数统计表.xlsx”中的sheet2数据，用一个数据框df1来表示； 2）请读取文本文件txt1中的数据，用一个数据框df2来表示； 3）大容量文件的读取需要采用分块读取的方式来处理数据，比如csv文件常用来存放大容量文件。请采用分块读取的方式读取“data.csv”文件，每次读取20000行，读取出来的数据分别用数据框A1，A2，A3，A4……等来表示

1）读取“一、车次上车人数统计表.xlsx”中的sheet2数据，用一个数据框df1来表示：

library(readxl)
df1 <- read_excel("一、车次上车人数统计表.xlsx", sheet = 2)

2）读取文本文件txt1中的数据，用一个数据框df2来表示：

df2 <- read.table("txt1.txt", header = TRUE)

3）采用分块读取的方式读取“data.csv”文件，每次读取20000行，读取出来的数据分别用数据框A1，A2，A3，A4……等来表示：

# 先计算数据总共有多少行
con <- file("data.csv", "r")
num_lines <- 0
while (length(readLines(con, n = 20000)) == 20000) {
  num_lines <- num_lines + 20000
}
close(con)
num_lines <- num_lines + length(readLines("data.csv")) - 1  # 减去表头行

# 分块读取数据
chunk_size <- 20000
num_chunks <- ceiling(num_lines / chunk_size)
for (i in 1:num_chunks) {
  start <- (i - 1) * chunk_size + 1
  end <- min(i * chunk_size, num_lines)
  df_chunk <- read.csv("data.csv", nrows = end - start + 1, skip = start - 1)
  assign(paste0("A", i), df_chunk)
}