# 安装包并加载包
package_list = c("dplyr","openxlsx")
for(p in package_list){
if(!suppressWarnings(suppressMessages(require(p, character.only = TRUE, quietly = TRUE, warn.conflicts = FALSE)))){
install.packages(p)
suppressWarnings(suppressMessages(library(p, character.only = TRUE, quietly = TRUE, warn.conflicts = FALSE)))
}
}
options(scipen = 200)
data1<-read.table("test.txt",header = FALSE, sep = "",fill=T)
data2<-filter(data1,V1=='Frame-')
title<-paste(data2$V1, data2$V2)
x <- setNames(seq_len(nrow(data1)), paste(data1[, 1], data1[, 2]))
lineNO<-x[paste(data2[, 1], data2[, 2])]
lineNO<-as.numeric(lineNO)
n<-length(title)
m<-nrow(data1)
d<-m/n
list<-list()
for (y in 1:n) {
j<-lineNO[y]+1
k<-lineNO[y]+d-1
data1[j:k,]$V1<-as.numeric(data1[j:k,]$V1)
z<-data1[j:k,]
z$V1<-as.numeric(z$V1)
assign(title[y],value=arrange(z, V1))
list<-c(list,list(assign(title[y],value=arrange(z, V1))))
}
for (i in 1:n) {
names(list)[i] <- title[i]
}
write.xlsx(list, file = "file2.xlsx")
我捣鼓出来了,最后导出到不同的sheet里了,给有需要的人吧~