R - Cách tránh vòng lặp trong danh sách các tệp

Question

Mục tiêu học tập hiện tại của tôi trong R là tránh các vòng for. Tôi thường phải liệt kê các tập tin trong một thư mục (hoặc vòng qua các thư mục) để thực hiện các thao tác đa dạng trên các tệp đó.

Một ví dụ về nhiệm vụ của tôi là như sau: Tôi phải gọi một ứng dụng hệ thống được gọi là cdo để hợp nhất hai tệp. Cú pháp của lệnh này, giả sử: cdo merge input_file1 input_file2 output_file.

đang R hiện tại của tôi trông như thế này:

# set lists of files 
u.files <- c("uas_Amon_ACCESS1-3.nc", "uas_Amon_CMCC-CESM.nc", "uas_Amon_CMCC-CESM.nc") 
v.files <- c("vas_Amon_ACCESS1-3.nc", "vas_Amon_CMCC-CESM.nc", "vas_Amon_CMCC-CESM.nc") 

for (i in 1:length(u.files)) { 

    # set input file 1 to use on cdo 
    input1 <- paste(u.files[i], sep='') 

    # set input file 2 to use on cdo 
    input2 <- paste(v.files[i], sep='') 

    # set output file to use on cdo 
    output <- paste('output_', u.files[i], sep='') 

    # assemble the command string 
    comm <- paste('cdo merge', input1, input2, output, collapse='') 

    # submit the command 
    system(comm) 

} 

mà làm việc ok mặc dù trông không phải là tốt.

Tuy nhiên, tôi thường nghe mọi người nói rằng các vòng lặp for trong R chậm và cần tránh càng nhiều càng tốt.

Có cách nào để tránh các vòng lặp và làm cho mã hiệu quả hơn/dễ đọc hơn trong các trường hợp như thế này không?

Answer 1

Đây là chi tiết R-thành ngữ:

u.files <- c("uas_Amon_ACCESS1-3.nc", "uas_Amon_CMCC-CESM.nc", "uas_Amon_CMCC-CESM.nc") 
v.files <- c("vas_Amon_ACCESS1-3.nc", "vas_Amon_CMCC-CESM.nc", "vas_Amon_CMCC-CESM.nc") 
output <- paste('output_', u.files, sep='') 
comm <- paste('cdo merge', u.files, v.files, output) 
lapply(comm,system) 

Hãy nhớ rằng hầu hết các chức năng được vector hóa trong R, vì vậy bạn không cần phải gọi paste cho mỗi lần lặp trong vòng lặp. Cuối cùng, bạn có được một vectơ các lệnh và thực thi từng lệnh một thông qua lapply ở dòng cuối cùng.