循环读取文件，然后把它赋值给由文件名来的相应名称变量。需要assign()函数
通过get()函数获取变量内容
需要用print()打印，不然不输出结果
for (i in grep(".count$", list.files(), value = T)) {
assign(strsplit(i, split = ".", fixed = T)[[1]][1], read.table(i, header = T, sep = "\t"))
print(head(get(strsplit(i, split = ".", fixed = T)[[1]][1])))
}
