问题遇到的现象和发生背景
2. 读入多个txt数据文件
## (1) 试通过if循环读取RBook中以.txt为后缀的所有文件，打印出所有文件名，
以及各数据集的行数，并将所有的数据依次保存在D列表下。
(2)将列表中的各个数据的名称更改为去掉后缀后的文件名。
例如：若读取的第一个文件为"Antarcticbirds.txt"，它被存放在D列表中的第一个元素中，
将其在列表中的名字更改为"Antarcticbirds"。
(3)获取列表中的Sparrows数据框的前六行。
(4)试查询各个数据集中的缺失数据的比例。
用代码块功能插入代码，请勿粘贴截图
运行结果及报错内容
（1）Error in read.table(file = i, header = TRUE) : 输入中没有多出的行
我的解答思路和尝试过的方法
（1）setwd("C:/Users/huawei/Desktop/R/RBook")
D = list()
for (i in filenames)
{D[[i]] <- read.table(file = i, header = TRUE)}
print(D)
nrow(D)
（2）cat(file="Antarcticbirds.txt",sep="",fill = FALSE ,labels=NULL,append=FALSE)
（3）
（4）mean(is.na(D))
