un groupe de colonnes en une seule colonne

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

bonjour , une solution avec le tidyverse

Code:

---

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

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.

Code:

---

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]]

---

Citation:

---

Envoyé par xavier-Pierre

...

---

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

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

Code:

---

1 2	setwd("le_chemin_de mes_fichiers")

---