Addition dans colonne grâce à une variable compteur

Version imprimable

10/07/2018, 13h32
quentinvvk

1 pièce(s) jointe(s)

Addition dans colonne grâce à une variable compteur

Bonjour,

Grâce à la variable compteur, je souhaiterais compter le nombre de 255 présent dans la colonne Y ou alors faire une soustraction dans la colonne X entre chaque 1. Je ne trouve pas de formule pour résoudre ce problème.

Merci de votre aide,
QV

Pièce jointe 395317

Bonjour,

Tu peux utiliser la fonction "summary", c'est plus simple si tu veux forcement utiliser la variable x, je peux te proposer ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
datatest = data.frame( x = 0:18 , y = c(rep(255,6), rep(0,13)),
                       tot = c(1, rep(0,5),1, rep(0,12)))
 
#avec la fonction summary 
summary(as.factor(datatest$y))
 
#sinon 
temp = subset(datatest, datatest$tot == 1 )
 
comptage255 = datatest$x[2] - datatest$x[1]
 
#si plusieurs valeurs tu peux faire une boucle for sur les lignes de ta table temp.

10/07/2018, 22h44
faubry

Citation:

compter le nombre de 255 présent dans la colonne Y

Code:

sum( dataset$Y == 255)

Citation:

soustraction dans la colonne X entre chaque 1

- si c'est entre deux lignes consécutives, alors il suffit d'utiliser la fonction diff :

Code:

diff( dataset$X)

- si c'est faire la différence entre les valeurs de X pour les lignes dont une autre colonne (par exemple TOT) vaut 1 :

Code:

diff <- with( dataset, diff( X[TOT == 1]))

- mais est-ce exactement cela que tu veux ?
17/07/2018, 08h23
quentinvvk

Réponse

Bonjour,

Tout d'abord merci à tous pour vos réponses.

Code:

diff <- with( dataset, diff( X[TOT == 1]))

Faubry j'arrive à m'en sortir avec ta formule. Seulement dans mon tableau, je voudrais connaitre le nombre de 255 par série sachant qu'il peut contenir jusqu'à 500 valeurs. Chaque valeur de 255 vaut 1 pixel = 1cm. Je cherche à séparer mes lots de 255 afin de connaitre en cm ce que je cherche à mesurer. Ta formule est utile Faubry, seulement je ne veux pas que les 0 entre les 255 soient comptés...

merci pour votre aide,
QV
17/07/2018, 08h37
quentinvvk

1 pièce(s) jointe(s)

Réponse Marou

Re-bonjour,

Avec ta formule Marou, temp = subset(b, b$tot == 1) j'obtient le tableau suivant : Pièce jointe 397049

Ce que je souhaite, comme je l'ai dit précédemment, c'est compter le nombre de 255, c'est possible ici avec la colonne X en faisant des différences. Comment monter la formule tout est la question ?

Merci d'avance pour votre aide,
QV
17/07/2018, 20h24
irema94

Moi ce que je ferai pour être vraiment simple c'est

Code:

table(y[y==255])

Entre crochets il est sélectionné les y ayant une valeur de 255. La fonction table permet de compter le nombre de fois qu'apparait la valeur 255.
J'espère que cela va t'aider.

1 pièce(s) jointe(s)

Réponse

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
b=read.csv("Y1X10rg2.csv", header=T, sep=",", dec=".")
b$y[b$y>=1]<-255
 
b$tot <- c(TRUE, b$y[-1]!=b$y[-nrow(b)])*1
temp = subset(b, b$tot==1)
r<- 1
r<-data.frame(r)
for(i in 1:nrow(temp)){
  if(temp[i,2] == 255){
    r[i,1] <- (temp[i+1,1]-temp[i,1])-1
    r <- data.frame(r)
  }
  else{}
}
r <- subset(r, r != 0)

Pièce jointe 397362

Bonjour à tous,

Voici comment j'ai réussi à m'en sortir. Je voudrais maintenant l'appliquer à une multitude de fichiers et les regrouper en un seul à la fin. J'ai un problème pour renommer ma colonne avec le Y1X10rg2.csv de départ. voici le code que j'ai fabriqué pour l'appliquer à tous mes fichiers. j'obtient bien ma liste mais je n'arrive pas à renommer chaque élément de la liste par son nom de départ.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
library(here)
library(readr)
setwd(here(paste("data1", sep="",collapse = NULL)))
files <- list.files(here(paste("data1",sep="",collapse=NULL)))
nb_files <- length(files)
m <- data.frame(files)
 
b <- sapply(files, read.table, header=T, sep=",", dec=".")
b <- data.frame(b)
b <- t(b)
 
 
 
 
 
temp<-1
temp <- list(temp)
 
 
for(j in 1:nb_files){
 
  b[[j]]$y[b[[j]]$y>=10]<-255
  b[[j]]$tot <- c(TRUE, b[[j]]$y[-1]!=b[[j]]$y[-nrow(b[[j]])])*1
  temp[[j]] <- subset(b[[j]],  b[[j]]$tot==1)
  temp[[j]]$V4 <-0
  for(i in 1:nrow(temp[[j]])){
  if(temp[[j]][i,2] == 255){
    temp[[j]][i,4] <- temp[[j]][i+1,1]-temp[[j]][i,1]-1
}
  else{}
}
}
 
 
for(j in 1:nb_files){
  #temp[[j]]$x<-NULL
  #temp[[j]]$y<-NULL
  #temp[[j]]$tot<-NULL
  temp[[j]] <- replace(temp[[j]],is.na(temp[[j]]),0)
  temp[[j]] <- subset(temp[[j]], temp[[j]]$V4 != 0)
 
}