我希望使用以下脚本将乘法文件的内容（文件名存储在lfFolder中）读取到列表（myList）。如何根据读取文件名的前5个字母重命名列表元素名称？
脚本：
folderLocation<-"E:/"
lfFolder <- list.files(folderLocation, pattern = "\\.txt$",full.names=TRUE)
myList <- lapply(lfFolder, function(readFName) { read.table(readFName, header=T, sep=",")$xGIS})