Séparer les valeurs moyennes et médianes des colonnes 4 dans une liste de bases de données?

Question

J'ai 30 fichiers csv, nommés 101.csv, 102.csv etc. avec quatre colonnes chacun, mais avec un nombre variable de lignes. Mon intention est de calculer la moyenne et la valeur médiane de la quatrième colonne dans chaque fichier csv.

j'ai commencé en faisant un ListofDataFrames avec:

listOfDataframes <- lapply(paste0(101:130, ".csv"), read.csv) 

Il ressemble à ceci:

[[1]]    
1    contig02534_1_120507-bin0\t477\t585\t50  
2    contig02534_1_120507-bin0\t585\t2695\t0    
3    contig06975_1_120507-bin0\t0\t732\t100 
... 

[[2]] 
... 

Je voudrais terminer avec une nouvelle table de données résumant 1) la valeur moyenne de la colonne quatre et 2) la valeur médiane de la colonne quatre. Et cela devrait être pour chaque trame de données séparément, comme celui-ci par exemple:

  mean  median 
[[1]]  75  50 
[[2]]  65  100 

J'ai essayé différentes approches publiées ici mais ne peut pas les amener à travailler comme je veux. Toute aide serait très appréciée!

Answer 1

Mon approche habituelle de cela va quelque chose comme

library(dplyr) 
lapply(101:130), 
        function(x){ 
        D <- read.csv(paste0(x, ".csv", sep = "\t") 
        D$set <- x 
       ) %>% 
    do.call("rbind", .) %>% 
    setNames(c("col1", "col2", "col3", "col4", "set")) %>% 
    group_by(set) %>% 
    summarise(mean = mean(col4), 
      median = median(col4)) 

Votre exemple n'était pas reproductible, c'est donc non testé.