Discussion :

[AlexFERLD]

Bonjour

Je possède une matrice que je dois "nettoyer" avant analyses. Chaque fin de chaîne de donnée est marquée du code "S", ensuite la ligne affiche 0 jusqu'à la fin du tableur. J'aimerais supprimer ces zéros, par ligne, selon une expressions du type if (valeur cellule précédente = S) {valeur de la cellule suivante jusqu'à la dernière = rien, suppression des zéros}

et accessoirement remplacer ensuite tous les S par des "vrais" zéros mais je pense que je peux manager ça !

Quelqu'un a-t'il une idée ?

Un grand merci d'avance je viens de SAS et débute sous R parce qu'il faut bien
Alex

[tototode]

Bonjour,

pour moi ta question est trop vague, on ne voit pas clairement ce que tu cherches à faire. Peut-être qu'en donnant un exemple clair de l'objet que tu as au départ et de ce que tu souhaites obtenir ça t'aiderait à avoir une réponse.

cdlt

[AlexFERLD]

Bonjour,
un exemple visuel de la structure de mes données :

colonnes : années
lignes : échantillons

ID	2017	2016	2015	2014	2013	2012	2011	2010	2009	2008	2007	etc...
ECH1	1	0	1	1	0	1	1	0	S	0	0	0
ECH2	1	0	1	0	1	S	0	0	0	0	0	0

La fin de chaque série de données est signalé par un "S" : la ligne affiche des 0 sur les colonnes suivantes. La position du S change à chaque ligne.

PROBLÈME : les 0 sont une valeur en soit, que je vais analyser dans mes intervalles [début - S] : Je ne peux pas faire une recherche textuelle pour les supprimer parce qu'il y a des "vrais" (intervalle [début - S]) et des "faux" zéros (après le S).

OBJECTIF 1 : la matrice doit afficher NA (= case vide, absence de données) à la place des 0 qui suivent le S sur chaque ligne.

OBJECTIF 2 : le signe S n'a également pas sa place dans les données à analyser, et doit être remplacer par un seul 0.

Le rendu devrait donc donner :

ID	2017	2016	2015	2014	2013	2012	2011	2010	2009	2008	2007	etc...
ECH1	1	0	1	1	0	1	1	0	0(new)	NA	NA	NA
ECH2	1	0	1	0	1	0(new)	NA	NA	NA	NA	NA	NA

Je n'arrive pas à écrire une boucle for / if / else qui se tienne sous R, pour réaliser ça...
J'espère que c'est plus clair maintenant

[olivier.decourt]

Bonjour.
Il y a très probablement quelque chose de beaucoup plus élégant à faire, mais voici une première solution avec des boucles for, des if et des else comme tu cherchais.

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
21
# exemple fourni
test <- rbind(t(c(1, 	0, 	1, 	1, 	0, 	1, 	1, 	0, 	"S", 	0, 	0, 	0)),
              t(c(1, 	0, 	1, 	0, 	1, 	"S", 	0, 	0, 	0, 	0, 	0, 	0)))
colnames(test) <- as.character(2017:2006)
 
# on boucle sur les lignes, puis sur les colonnes
# pos_s contient le n° de la colonne avec un S
for (i in 1:nrow(test)){
  pos_s <- NA
  for (j in 1:ncol(test)){
    if(!is.na(pos_s)) {
      test[i,j] <- NA
    }
    else {
      if(test[i,j]=="S"){
      pos_s <- j
      test[i,j] <- 0
      }
    }
  }
}

Et puis une alternative qui évite les boucles : éclater avec split les données en liste (1 élément = 1 ligne de données). Avec sapply, appliquer sur chaque élément une fonction qui repère le S et modifie le contenu du vecteur en fonction de sa position. Réagréger le tout (avec une transposition bonus car sapply crée une matrice tournée d'un quart de tour par rapport aux données initiales).

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
# exemple fourni
test <- rbind(t(c(1, 	0, 	1, 	1, 	0, 	1, 	1, 	0, 	"S", 	0, 	0, 	0)),
              t(c(1, 	0, 	1, 	0, 	1, 	"S", 	0, 	0, 	0, 	0, 	0, 	0)))
colnames(test) <- as.character(2017:2006)
rownames(test) <- c("ECH1","ECH2")
 
test <- t(sapply(split(test,rownames(test)), 
               function(vect){
                 pos_s <- which(vect == "S")
                 res <- vect
                 res[pos_s:length(vect)] <- NA
                 res[pos_s] <- 0
                 return(res)
                 }
               )
  )

[AlexFERLD]

Merci Olivier, ça fonctionne parfaitement et de nouvelles perspectives pour moi avec tes fonctions sapply et split!