Discussion :

[mumu64]

Bonjour,

Après quelques heures de recherches infructueuses, je me permets d'ouvrir cette discussion. En espérant ne pas faire doublon.

J'ai un fichier txt avec des navires et leur activité de pêche (3 millions de lignes et 50 colonnes) = pêche.txt
D'un autre côté, j'ai une liste de navire définie (2900 navires) = navires.txt

Je voudrais extraire de mon fichier pêche.txt uniquement la donnée qui correspond à mes navires.txt
Sachant que les navires sont répétés plusieurs fois car j'ai les jours de pêche

Étant super nulle sous R mais obligée de l'utiliser à cause de la taille des fichiers, je suis incapable de vous fournir un bout de code à corriger.
Je connais la fonction subset mais je ne sais pas comment l'adapter pour qu'elle aille chercher l'info dans un txt.
Merge, cbind ou rbind ne fonctionnent pas (ou je ne sais pas les utiliser)

Je vous remercie pour votre aide !

A +
Muriel.

[fabricen26]

Bonjour,
Juste une petite inquiétude. Tu veux gérer 3 millions de lignes sur R, il faut faire attention car si tes données à la taille des données sur R bien que R ne s’améliore de plus en plus pour gérer des gros volumes de données.

je vais proposer une solution dont je suis sur qu'elle n'est pas optimale dont tu pourras l'optimiser. Je vais l'appliquer sur un jeux de données que je dispose.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
(donnee <- read.csv("arbre.csv", sep=""))
 
 
IndiceEgal=function(X,a){
  #Retourne les indices ou X est égal à a
  return(which(X==a))
}
 
#Valeurs des modalités que je recherche
nom=c("Couvert","Pluie" )
 
#Je compare chaque valeur du vecteur nom à toutes les valeurs du vecteur donnee
res=sapply(donnee[,1],funEgal,nom)
#Je recupere les indices qui sont égaux aux noms
Indice=which(is.na(as.numeric(res))==F)
 
#Je recupere le resultat
(resultat=donnee[Indice,])

Et résultat voici ce que j'obtiens





Courage

[mumu64]

Salut Fabricien26,

Je te remercie pour ton aide.
Malheureusement, ce que tu proposes est pour 2 valeurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c("Couvert","Pluie" )

Ce que je recherche c'est une liste de 2900 bateaux

J'ai finalement trouvé la solution en faisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Bato <- read.table(paste0(Chem, "liste_Navires.txt"), header=TRUE, dec=".", sep=";", stringsAsFactors = FALSE)
liste <- Bato$Var1
 
File <- subset(mydata, NAVS_COD %in% liste)

Il suffisait tout simplement de créer un objet avec ma liste de bateaux....

Merci d'avoir regardé et tes lignes de codes ne sont pas perdues, je suis sure que je pourrais les recycler un de ces 4 !
A +

Muriel.