특정 형식의 텍스트 파일을로드하십시오. 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 

이미 예를 들어, 형식의 데이터를 읽을 경우 : R의 배열과 같이 구성되어

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