Modérateur : Groupe des modérateurs
Code : Tout sélectionner
donnees[grep("FR", donnees$nuts3), ]
Code : Tout sélectionner
donnees[grep("^FR.*", donnees$nuts3), ]
Code : Tout sélectionner
library(rbenchmark)
library(dplyr)
debut<-c("FR","US","CA")
dta<-data.frame(A=paste0(sample(debut,10000,replace=T)),valeur=runif(10000)) #Je construis un jeu test de 10000 lignes
benchmark(dta[grep("^FR.*", dta$A), ],dta[substr(dta$A,1,2=="FR"),],dplyr::filter(dta,substr(dta$A,1,2)=="FR"),dplyr::filter(dta,grepl("^FR.*", dta$A)))
test replications elapsed relative user.self sys.self user.child sys.child
4 dplyr::filter(dta, grepl("^FR.*", dta$A)) 100 0.563 3.163 0.516 0.008 0 0
3 dplyr::filter(dta, substr(dta$A, 1, 2) == "FR") 100 0.514 2.888 0.476 0.000 0 0
1 dta[grep("^FR.*", dta$A), ] 100 0.178 1.000 0.180 0.000 0 0
2 dta[substr(dta$A, 1, 2 == "FR"), ] 100 0.837 4.702 0.836 0.000 0 0
Code : Tout sélectionner
dta[substr(dta$A, 1, 2 == "FR"), ]
Code : Tout sélectionner
dta[substr(dta$A, 1, 2) == "FR", ]
Code : Tout sélectionner
test replications elapsed relative
4 dplyr::filter(dta, grepl("^FR.*", dta$A)) 100 0.572 3.763
3 dplyr::filter(dta, substr(dta$A, 1, 2) == "FR") 100 0.564 3.711
1 dta[grep("^FR.*", dta$A), ] 100 0.172 1.132
2 dta[substr(dta$A, 1, 2) == "FR", ] 100 0.152 1.000
user.self sys.self user.child sys.child
4 0.572 0 0 0
3 0.564 0 0 0
1 0.172 0 0 0
2 0.152 0 0 0
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité