Загрузите текстовые файлы с определенным форматом в R

Question

У меня есть набор данных, который имеет следующий формат. Я хочу загрузить его в R в виде списка, но не понял, как это сделать. Какие-либо предложения?

, , RUN1 

      V1 V2 V3 V4 
    MWMT 0.027 0.002 0.002 0.007 
    MSP 0.029 0.004 0.002 0.012 

    , , RUN2 

      V1 V2 V3 V4 
    MWMT 0.029 0.003 0.005 0.006 
    MSP 0.031 0.004 0.006 0.017 

    , , RUN3 
    ... ... 

Answer 1

Вы можете сделать:

lines1 <- readLines(textConnection(", , RUN1 

     V1 V2 V3 V4 
MWMT 0.027 0.002 0.002 0.007 
MSP 0.029 0.004 0.002 0.012 

, , RUN2 

     V1 V2 V3 V4 
MWMT 0.029 0.003 0.005 0.006 
MSP 0.031 0.004 0.006 0.017")) 

indx <- grepl(",",lines1) 

lst1 <- lapply(split(lines1[-which(indx)],cumsum(indx)[-which(indx)]),function(x) read.table(text=x, header=T)) 
names(lst1) <- gsub("[, ]","", lines1[indx]) 


lst1 
#$RUN1 
#  V1 V2 V3 V4 
#MWMT 0.027 0.002 0.002 0.007 
#MSP 0.029 0.004 0.002 0.012 

#$RUN2 
#  V1 V2 V3 V4 
#MWMT 0.029 0.003 0.005 0.006 
#MSP 0.031 0.004 0.006 0.017 

Если вы уже прочитали данные в формате, например:

a1 <- array(1:60, c(2,5,6)) 
lapply(1:dim(a1)[3], function(i) a1[,,i])