Discussion :

[valkyrie11]

Bonjour,

J'ai des deux fichier au format .txt A et B:
Le fichier A contient des valeurs l'un au-dessous l'autre (391 valeurs).
Le fichier B contient des valeurs sous forme de pls. colonnes ( 17 colonnes) et chaque colonne contient 23 valeurs (les valeurs séparées par deux points)
J’aimerai d'écrire un code en R, qui permettre :
1/ pour le fichier B: copie les colonne l'une au-dessous l'autre pour former une seul colonne
2/ recopie cette colonne résultante dans le fichier A
3/puis calculer la différence entre les deux colonnes.
Cette opération sera répétée pour plusieurs fichiers.

Voir les fichiers attachés

[xavier-Pierre]

bonjour , une solution avec le tidyverse

Code :

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

1
2
3
4
5
6
7
8
9
10
 
library(tidyverse)
## les fichiers A.txt et B.txt sont dans le répertoire courant
## import fichier
a <- read.csv("A.txt", header = FALSE,col.names = "col_A")
b <- read.delim("B.txt",header = FALSE, sep = ":")
##on transforme b en une colonne
b <- pivot_longer(b,cols = starts_with("V"),values_to = "col_B" ) %>% select(col_B)
## on lie les 2 dataframes et on calcule la difference des 2 premières colonnes
a <- a %>% bind_cols(b) %>% mutate(diff = col_A - col_B)

cldt

[valkyrie11]

Est-ce que c'est possible de le modifier pour répéter le script sur plusieurs fichiers :1A, 2A, 2A...etc 1B,2B,3B...etc. puis sauvegarder tous les fichiers dans un répertoire.

[xavier-Pierre]

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
20
 
## tu crèe une fonction qui fait le m^me traitement que précédemment les parametres sont les noms de fichier A et B
traiter_fichier <- function(fichier_a,fichier_b){
  a <- read.csv(fichier_a, header = FALSE,col.names = "col_A")
  b <- read.delim(fichier_b,header = FALSE, sep = ":")
  b <- pivot_longer(b,cols = starts_with("V"),values_to = "col_B" ) %>% select(col_B)
  a <- a %>% bind_cols(b) %>% mutate(diff = col_A - col_B)  
}
 
## tu crèes les 2 listes de fichiers A et B
## les 2 listes ont la même taille
liste_fichier_a=c("A1.txt","A2.txt",...)
liste_fichier_b=c("B1.txt","B2.txt",...)
 
## cette commande génère les dataframes que tu souhaites
## la fonction map2 prends au minimum 3 arguments , 2 listes de même tailles sur lesquelles la fonction va itérer ,le troisième  paramètre est la fonction qui prend elle-même en paramètres un élément de chacune des listes
liste_resultat <- map2(liste_fichier_a,liste_fichier_b,traiter_fichier)
 
##jour accéder au premier dataframe
liste_resultat[[1]]

[valkyrie11]

...

ça n'a pas marché....
je dois ajouter les chemins de mes fichiers?

[xavier-Pierre]

oui ou tu définis le répertoire courant où se trouvent les fichiers

Code :

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

1
2
 
setwd("le_chemin_de mes_fichiers")