Подсчитать строки в кадре данных по факторам, сохранить порядок?

Question

У меня есть задача сделать функцию, которая принимает путь к каталогу, читает много файлов .csv и возвращает data.frame с числом полных случаев для каждого файла в виде:

## id nobs 
## 1 2 1041 
## 2 4 474 
## 3 8 192 
## 4 10 148 
## 5 12 96 

я следующее решение (функция подписи дается):

complete <- function(directory, id = 1:332) { 
    myFiles <- list.files(path=directory,pattern=".csv",recursive=T,full.names=T) 
    data <- lapply(myFiles[id],read.csv) 
    frame <- do.call("rbind",data) 
    frame <- frame[complete.cases(frame),] 
    frame$ID <- factor(frame$ID, ordered=T) 
    by <- by(frame,frame$ID,nrow,simplify=F) 
    complete <- data.frame(id=names(by),nobs=unlist(by)) 

    return(complete) 
} 

Это дает мне правильный выход, за исключением одного situtation. Если вызов функции - это что-то вроде complete(directory, 30:25), то ожидается, что порядок столбца data.frame id сохраняется (здесь 30,29 и т. Д.). Но это не удается, потому что by сортирует выходной список по факторам. Есть ли лучшее решение для моей проблемы (с использованием стандартных пакетов)? Или я могу заблокировать заказ?

Answer 1

Я не думаю, что ordered= параметр делает то, что вы думаете. Когда вы устанавливаете ordered=T, он создает упорядоченный множитель, который аналогичен порядковой переменной, где в качестве регулярного фактора ведет себя скорее как категориальная переменная. Он не предполагает, что вектор уже упорядочен и никак не влияет на сортировку вектора.

Если вы хотите задать данный заказ, вы должны использовать

frame$ID <- factor(frame$ID, levels=unique(frame$ID)) 

, а затем by должны вести себя, как ожидалось.