여러 파일에 대해 strsplit 함수를 적용하십시오.

Question

누군가 제 코드의 4 단계에서 잘못하고있는 것을 발견 할 수 있습니까? (strsplit)?

나는, '102_E46_N76.csv'이름 '101_E45_N66.csv'과 디렉토리에 3 개 개의 파일이 '103_E47_N86.csv'

나는 목록에을 읽고 이름을 분할하고 3를 추가하는 것을 시도하고있다 예를 들어, '아이디'= (101), 'Y 좌표'= E904690, 각 파일의 새로운 coloumns N936410

내가 개별 파일에 대해 수행 할 수있는 방법에 대한 내 앞의 질문에서 알

= 'X 좌표'는 다음과 같이한다 :

filename <- '101_E45_N66.csv' 
    ## spliting name "101_E45_N66.csv" to create 3 new coloumn within dataframe 
      s = strsplit(filename,"_",,fixed=TRUE)[[1]] 
    df1= cbind(df[,c("type","date")],ID=s[1],name1=s[2],name2=s[3],df[,3:ncol(df)]) 

하지만 lis에 적용 할 lapply 함수를 만들려고 할 때 t 내가 잘못하고있는 것이 확실하지 않은 이유는 파일 이름을 1 개만 사용하고 디렉토리에 파일을 다시 작성할 때 같은 이름의 3 개 파일 모두에 coloumns를 추가하는 것입니다 (제 4 단계의 코드를 참조하십시오) , 내가 사용하고있는 코드는 다음과 같습니다.

mycsv = dir(pattern=".csv") 

n <- length(mycsv) 

## step 1 - read file 
mylist <- vector("list", n) 

for(i in 1:n) mylist[[i]] <- read.csv(mycsv[i],header = TRUE,skip =5, nrow = length(count.fields(mycsv[i])) - 12) 

## step 2 - Change coloumn name 
mylist <- lapply(mylist, function(x) {names(x) <- c("type","date","v1","v2","v3","v4","v5","v6","v7") ; return(x)}) 

## step 3 - changing type coloumn for weekday/weekend 

mylist <- lapply(mylist, function(x) { 
    f = c("wd", "we", "we", "wd", "wd", "wd", "wd") 
    x$type = rep(f,52, length.out = 30) 
    return(x) 
}) 

## Step 4 - spliting filename to create 3 new coloumn within dataframe 

    mylist <- lapply(mylist, function(x) { 
      s = strsplit(mycsv[i],"_",,fixed=TRUE)[[1]] 
    d = cbind(x[,c("type","date")],ID=s[1],Easting=s[2],Northing=s[3],x[,3:ncol(x)]) 
    return(d) 
}) 
    ## Step 5- writre the data back in the directory 
     for(i in 1:n)  
     write.csv(file = paste("file", i, ".csv", sep = ""), mylist[i], row.names = F) 

4 단계에서 제가 잘못하고있는 것을 제안 할 수 있습니까?

많은 감사,
Ayan

내 샘플 데이터 :

> dput (mylist) 
list(structure(list(type = c("wd", "we", "we", "wd", "wd", "wd", 
"wd", "wd", "we", "we", "wd", "wd", "wd", "wd", "wd", "we", "we", 
"wd", "wd", "wd", "wd", "wd", "we", "we", "wd", "wd", "wd", "wd", 
"wd", "we"), date = structure(c(1L, 11L, 18L, 9L, 26L, 30L, 22L, 
5L, 14L, 15L, 6L, 23L, 27L, 19L, 2L, 10L, 16L, 7L, 24L, 28L, 
20L, 3L, 12L, 17L, 8L, 25L, 29L, 21L, 4L, 13L), .Label = c("Fri 1 Jan", 
"Fri 15 Jan", "Fri 22 Jan", "Fri 29 Jan", "Fri 8 Jan", "Mon 11 Jan", 
"Mon 18 Jan", "Mon 25 Jan", "Mon 4 Jan", "Sat 16 Jan", "Sat 2 Jan", 
"Sat 23 Jan", "Sat 30 Jan", "Sat 9 Jan", "Sun 10 Jan", "Sun 17 Jan", 
"Sun 24 Jan", "Sun 3 Jan", "Thu 14 Jan", "Thu 21 Jan", "Thu 28 Jan", 
"Thu 7 Jan", "Tue 12 Jan", "Tue 19 Jan", "Tue 26 Jan", "Tue 5 Jan", 
"Wed 13 Jan", "Wed 20 Jan", "Wed 27 Jan", "Wed 6 Jan"), class = "factor"), 
    v1 = c(322L, 89L, 242L, NA, 136L, 113L, 70L, 134L, 232L, 
    NA, 127L, 124L, 120L, 162L, 179L, 374L, 477L, NA, 147L, 136L, 
    152L, 196L, 384L, 491L, 136L, NA, 143L, 172L, 226L, 509L), 
    v2 = c(409L, 71L, 206L, NA, 104L, 57L, NA, 98L, 201L, NA, 
    74L, 94L, 69L, 98L, 117L, 277L, 445L, NA, 131L, 90L, 83L, 
    NA, 329L, 473L, 73L, NA, 104L, 113L, 136L, 427L), v3 = c(367L, 
    54L, 211L, NA, 107L, 69L, 51L, 63L, 157L, NA, 56L, 115L, 
    96L, 100L, 118L, 250L, 388L, NA, 124L, 85L, 96L, 118L, 313L, 
    431L, 79L, NA, 93L, 135L, 134L, 290L), v4 = c(343L, 60L, 
    183L, NA, 110L, 53L, 32L, 77L, 123L, NA, 37L, 100L, 64L, 
    68L, 99L, 199L, 333L, NA, 107L, 71L, 81L, 89L, 219L, 393L, 
    43L, NA, 72L, 96L, 127L, NA), v5 = c(231L, 42L, 79L, NA, 
    74L, 58L, 48L, 59L, 78L, NA, 62L, 74L, 63L, 59L, 74L, 110L, 
    134L, NA, 74L, 82L, 59L, 73L, 135L, 170L, 53L, NA, 61L, 72L, 
    67L, 186L), v6 = c(140L, 41L, 57L, NA, 104L, 92L, 89L, 94L, 
    68L, NA, 116L, 131L, NA, 110L, 125L, 89L, 89L, NA, 113L, 
    124L, 115L, 116L, 95L, 77L, 126L, NA, 110L, 122L, 119L, 122L 
    ), v7 = c(90L, 104L, 82L, NA, 368L, 258L, NA, 289L, 117L, 
    NA, 395L, 416L, 397L, 391L, 400L, 132L, 101L, NA, 397L, 426L, 
    418L, 411L, 151L, 66L, 396L, NA, 457L, 437L, 428L, 128L)), .Names = c("type", 
"date", "v1", "v2", "v3", "v4", "v5", "v6", "v7"), row.names = c(NA, 
-30L), class = "data.frame"), structure(list(type = c("wd", "we", 
"we", "wd", "wd", "wd", "wd", "wd", "we", "we", "wd", "wd", "wd", 
"wd", "wd", "we", "we", "wd", "wd", "wd", "wd", "wd", "we", "we", 
"wd", "wd", "wd", "wd", "wd", "we"), date = structure(c(1L, 11L, 
18L, 9L, 26L, 30L, 22L, 5L, 14L, 15L, 6L, 23L, 27L, 19L, 2L, 
10L, 16L, 7L, 24L, 28L, 20L, 3L, 12L, 17L, 8L, 25L, 29L, 21L, 
4L, 13L), .Label = c("Fri 1 Jan", "Fri 15 Jan", "Fri 22 Jan", 
"Fri 29 Jan", "Fri 8 Jan", "Mon 11 Jan", "Mon 18 Jan", "Mon 25 Jan", 
"Mon 4 Jan", "Sat 16 Jan", "Sat 2 Jan", "Sat 23 Jan", "Sat 30 Jan", 
"Sat 9 Jan", "Sun 10 Jan", "Sun 17 Jan", "Sun 24 Jan", "Sun 3 Jan", 
"Thu 14 Jan", "Thu 21 Jan", "Thu 28 Jan", "Thu 7 Jan", "Tue 12 Jan", 
"Tue 19 Jan", "Tue 26 Jan", "Tue 5 Jan", "Wed 13 Jan", "Wed 20 Jan", 
"Wed 27 Jan", "Wed 6 Jan"), class = "factor"), v1 = c(322L, 89L, 
242L, NA, 136L, 113L, 70L, 134L, 232L, NA, 127L, 124L, 120L, 
162L, 179L, 374L, 477L, NA, 147L, 136L, 152L, 196L, 384L, 491L, 
136L, NA, 143L, 172L, 226L, 509L), v2 = c(409L, 71L, 206L, NA, 
104L, 57L, NA, 98L, 201L, NA, 74L, 94L, 69L, 98L, 117L, 277L, 
445L, NA, 131L, 90L, 83L, NA, 329L, 473L, 73L, NA, 104L, 113L, 
136L, 427L), v3 = c(367L, 54L, 211L, NA, 107L, 69L, 51L, 63L, 
157L, NA, 56L, 115L, 96L, 100L, 118L, 250L, 388L, NA, 124L, 85L, 
96L, 118L, 313L, 431L, 79L, NA, 93L, 135L, 134L, 290L), v4 = c(343L, 
60L, 183L, NA, 110L, 53L, 32L, 77L, 123L, NA, 37L, 100L, 64L, 
68L, 99L, 199L, 333L, NA, 107L, 71L, 81L, 89L, 219L, 393L, 43L, 
NA, 72L, 96L, 127L, NA), v5 = c(231L, 42L, 79L, NA, 74L, 58L, 
48L, 59L, 78L, NA, 62L, 74L, 63L, 59L, 74L, 110L, 134L, NA, 74L, 
82L, 59L, 73L, 135L, 170L, 53L, NA, 61L, 72L, 67L, 186L), v6 = c(140L, 
41L, 57L, NA, 104L, 92L, 89L, 94L, 68L, NA, 116L, 131L, NA, 110L, 
125L, 89L, 89L, NA, 113L, 124L, 115L, 116L, 95L, 77L, 126L, NA, 
110L, 122L, 119L, 122L), v7 = c(90L, 104L, 82L, NA, 368L, 258L, 
NA, 289L, 117L, NA, 395L, 416L, 397L, 391L, 400L, 132L, 101L, 
NA, 397L, 426L, 418L, 411L, 151L, 66L, 396L, NA, 457L, 437L, 
428L, 128L)), .Names = c("type", "date", "v1", "v2", "v3", "v4", 
"v5", "v6", "v7"), row.names = c(NA, -30L), class = "data.frame"), 
    structure(list(type = c("wd", "we", "we", "wd", "wd", "wd", 
    "wd", "wd", "we", "we", "wd", "wd", "wd", "wd", "wd", "we", 
    "we", "wd", "wd", "wd", "wd", "wd", "we", "we", "wd", "wd", 
    "wd", "wd", "wd", "we"), date = structure(c(1L, 11L, 18L, 
    9L, 26L, 30L, 22L, 5L, 14L, 15L, 6L, 23L, 27L, 19L, 2L, 10L, 
    16L, 7L, 24L, 28L, 20L, 3L, 12L, 17L, 8L, 25L, 29L, 21L, 
    4L, 13L), .Label = c("Fri 1 Jan", "Fri 15 Jan", "Fri 22 Jan", 
    "Fri 29 Jan", "Fri 8 Jan", "Mon 11 Jan", "Mon 18 Jan", "Mon 25 Jan", 
    "Mon 4 Jan", "Sat 16 Jan", "Sat 2 Jan", "Sat 23 Jan", "Sat 30 Jan", 
    "Sat 9 Jan", "Sun 10 Jan", "Sun 17 Jan", "Sun 24 Jan", "Sun 3 Jan", 
    "Thu 14 Jan", "Thu 21 Jan", "Thu 28 Jan", "Thu 7 Jan", "Tue 12 Jan", 
    "Tue 19 Jan", "Tue 26 Jan", "Tue 5 Jan", "Wed 13 Jan", "Wed 20 Jan", 
    "Wed 27 Jan", "Wed 6 Jan"), class = "factor"), v1 = c(322L, 
    89L, 242L, NA, 136L, 113L, 70L, 134L, 232L, NA, 127L, 124L, 
    120L, 162L, 179L, 374L, 477L, NA, 147L, 136L, 152L, 196L, 
    384L, 491L, 136L, NA, 143L, 172L, 226L, 509L), v2 = c(409L, 
    71L, 206L, NA, 104L, 57L, NA, 98L, 201L, NA, 74L, 94L, 69L, 
    98L, 117L, 277L, 445L, NA, 131L, 90L, 83L, NA, 329L, 473L, 
    73L, NA, 104L, 113L, 136L, 427L), v3 = c(367L, 54L, 211L, 
    NA, 107L, 69L, 51L, 63L, 157L, NA, 56L, 115L, 96L, 100L, 
    118L, 250L, 388L, NA, 124L, 85L, 96L, 118L, 313L, 431L, 79L, 
    NA, 93L, 135L, 134L, 290L), v4 = c(343L, 60L, 183L, NA, 110L, 
    53L, 32L, 77L, 123L, NA, 37L, 100L, 64L, 68L, 99L, 199L, 
    333L, NA, 107L, 71L, 81L, 89L, 219L, 393L, 43L, NA, 72L, 
    96L, 127L, NA), v5 = c(231L, 42L, 79L, NA, 74L, 58L, 48L, 
    59L, 78L, NA, 62L, 74L, 63L, 59L, 74L, 110L, 134L, NA, 74L, 
    82L, 59L, 73L, 135L, 170L, 53L, NA, 61L, 72L, 67L, 186L), 
     v6 = c(140L, 41L, 57L, NA, 104L, 92L, 89L, 94L, 68L, 
     NA, 116L, 131L, NA, 110L, 125L, 89L, 89L, NA, 113L, 124L, 
     115L, 116L, 95L, 77L, 126L, NA, 110L, 122L, 119L, 122L 
     ), v7 = c(90L, 104L, 82L, NA, 368L, 258L, NA, 289L, 117L, 
     NA, 395L, 416L, 397L, 391L, 400L, 132L, 101L, NA, 397L, 
     426L, 418L, 411L, 151L, 66L, 396L, NA, 457L, 437L, 428L, 
     128L)), .Names = c("type", "date", "v1", "v2", "v3", 
    "v4", "v5", "v6", "v7"), row.names = c(NA, -30L), class = "data.frame")) 

Answer 1

문제는 당신이 파일 이름이 아닌 lapply 호출에 존재 않습니다 i에 의해 색인 당신이하려고한다는 것입니다. mycsv 내가 할 수없이

이

lapply(1:length(mylist), function(i) { 
    mylist.i <- mylist[[i]] 
    s = strsplit(mycsv[i], "_" , fixed = TRUE)[[1]] 
    d = cbind(mylist.i[, c("type", "date")], ID = s[1], Easting = s[2], Northing = s[3], mylist.i[, 3:ncol(mylist.i)]) 
    return(d) 
}) 

있다는 점 유의 하시길 바랍니다 : 당신이 mylist 및 mycsv에 대한 공통 인덱스를 필요로하는 당신은 다음과 같은 것을 시도 여기 lapply를 호출 주장하려는 경우

, 당신은 간단한 루프를 사용하거나 수 이것을 테스트하지 않고 코드의 다른 부분을 확인하려고하지 않았습니다.