1199 résultats trouvés

Aller à la recherche avancée

par Serge Rapenne
17 Sep 2018, 09:09
Forum : Questions en cours
Sujet : supprimer les chiffres consecutifs qui se repetent
Réponses : 10
Vues : 762

Re: supprimer les chiffres consecutifs qui se repetent

Simple, efficace, j'aime bcp

Serge
par Serge Rapenne
16 Sep 2018, 16:17
Forum : Questions en cours
Sujet : Rapports automatiques
Réponses : 6
Vues : 383

Re: Rapports automatiques

Bonjour,

cf rmarkdown : https://rmarkdown.rstudio.com/

Serge
par Serge Rapenne
14 Sep 2018, 14:43
Forum : Questions en cours
Sujet : supprimer les chiffres consecutifs qui se repetent
Réponses : 10
Vues : 762

Re: supprimer les chiffres consecutifs qui se repetent

Toutafé, il faut effectivement remplacer lead par lag dans la fonction : first_occur<-function(x) x!=lag(x, default="") ligne<-first_occur(X[ ,2]) > X[ligne,] A B 1 A 1 4 D 600 5 E 3 6 F 4 7 G 9 8 H 3 12 L 1 13 M 3 14 N 650 merci pour la remarque Eric Bon WE Serge
par Serge Rapenne
14 Sep 2018, 14:00
Forum : Questions en cours
Sujet : supprimer les chiffres consecutifs qui se repetent
Réponses : 10
Vues : 762

Re: supprimer les chiffres consecutifs qui se repetent

Bonjour, une solution avec le package dplyr : library(dplyr) X <- data.frame(A=LETTERS[1:14], B=c(1,1,1,600,3,4,9,3,3,3,3,1,3,650)) first_occur<-function(x) x!=lead(x, default="") ligne<-first_occur(X[ ,2]) X[ligne,] A B 3 C 1 4 D 600 5 E 3 6 F 4 7 G 9 11 K 3 12 L 1 13 M 3 14 N 650 Serge
par Serge Rapenne
13 Sep 2018, 15:47
Forum : Questions en cours
Sujet : transformer de 1 à 001
Réponses : 3
Vues : 202

Re: transformer de 1 à 001

bonjour, cf la fonction sprintf : x<-1:15 > sprintf("%03d",x) [1] "001" "002" "003" "004" "005" "006" "007" "008" "009" "010" "011" "012" "013" [14] "014&q...
par Serge Rapenne
27 Aoû 2018, 18:19
Forum : Questions en cours
Sujet : Identifier l'évolution dans le temps d'une variable factorielle
Réponses : 2
Vues : 67

Re: Identifier l'évolution dans le temps d'une variable factorielle

bonjour, sans un exemple du jeu de données, il va être difficile de données une solution precise à ta question. au vue des informations données, je pense qu'il faut aller voir du coté des fonction du type by, aggragate, tapply lié à la recherche du max(date) des données groupées (ou avec la fonction...
par Serge Rapenne
23 Aoû 2018, 10:43
Forum : Questions en cours
Sujet : Recoder les modalités de plusieurs variables qualitatives
Réponses : 7
Vues : 146

Re: Recoder les modalités de plusieurs variables qualitatives

Merci Bastien, Effectivement, un petit oubli dans la fonction Recode (il manque un as.character): La version correcte : Recode<-function(dta,var_poid){ resu<-apply(dta[,var_poid$colonne],2,function(y) as.integer(as.character(factor(y,levels=colnames(var_poid$poid),labels=var_poid$poid,ordered=F)))) ...
par Serge Rapenne
22 Aoû 2018, 20:07
Forum : Questions en cours
Sujet : Recoder les modalités de plusieurs variables qualitatives
Réponses : 7
Vues : 146

Re: Recoder les modalités de plusieurs variables qualitatives

bonjour, un approche assez différente : #creation d'un jeu de données pour l'ex dta<-data.frame(ID=1:3, X1=c("oui","non","non"), X2=c("souvent","non","oui"), X3=c("oui","souvent","souvent"), X4=c("non"...
par Serge Rapenne
02 Aoû 2018, 17:36
Forum : Questions en cours
Sujet : Commande Tableau Alignement valeurs identiques
Réponses : 3
Vues : 133

Re: Commande Tableau Alignement valeurs identiques

Bon si j'ai bien compris, dans ton exemple initial, la valeur F qui est dans dta$x2[5] n'est pas présente dans x1 donc il devrait apparaitre comme 0 dans la sortie. Si c'est ça, ceci doit faire ce que tu veux : l_elem<-unique(d1$x1) data.frame(t(apply(d1,1,function(x) ifelse(x %in% l_elem,x[1],0) ))...
par Serge Rapenne
02 Aoû 2018, 14:57
Forum : Questions en cours
Sujet : Commande Tableau Alignement valeurs identiques
Réponses : 3
Vues : 133

Re: Commande Tableau Alignement valeurs identiques

Bonjour,

je ne comprend pas quand il faut mettre 0,
sinon n'est ce pas tout simplement :

Code : Tout sélectionner

d2<-d1
d2[,2:3]<-d2[,1]
> d2
  x1 x2 x3
1  A  A  A
2  B  B  B
3  C  C  C
4  D  D  D
5  E  E  E


Serge
par Serge Rapenne
02 Aoû 2018, 14:20
Forum : Questions en cours
Sujet : Autour de la fonction AGGREGATE
Réponses : 7
Vues : 180

Re: Autour de la fonction AGGREGATE

Bonjour,

Il n'est pas indispensable d'extraire mois et annee :

Code : Tout sélectionner

aggregate(capteur3 ~ format(date,"%Y-%m"), tab, table)


Serge
par Serge Rapenne
31 Juil 2018, 13:52
Forum : Questions en cours
Sujet : convertir list en data frame
Réponses : 4
Vues : 122

Re: convertir list en data frame

Sinon une méthode classique pour transformer une liste en df, c'est de passer par do.call. Par ex : listDF <- vector(mode = "list", length = 3) for (i in 1:3) { listDF[[i]] <- data.frame(a=sample(letters, 10, rep=T), b=rnorm(10), c=rnorm(10)) } df <- do.call("rbind", listDF) Serge
par Serge Rapenne
31 Juil 2018, 13:43
Forum : Questions en cours
Sujet : convertir list en data frame
Réponses : 4
Vues : 122

Re: convertir list en data frame

Bonjour, quel est la structure de ton df d'origine parce que : dta<-data.frame(matrix(sample(c(TRUE,FALSE),10,replace=T),nrow=2)) > dta X1 X2 X3 X4 X5 1 FALSE TRUE TRUE TRUE FALSE 2 TRUE TRUE TRUE FALSE TRUE > res <- apply(dta, 1, table) > res [,1] [,2] FALSE 2 1 TRUE 3 4 point de liste pour res, c'...
par Serge Rapenne
23 Juil 2018, 15:12
Forum : Questions en cours
Sujet : Calcul nombre occurences d'une chaine de caractères
Réponses : 3
Vues : 166

Re: Calcul nombre occurences d'une chaine de caractères

Bonjour, cf la fonction table. J'ai changé le nom des colonnes car les espaces et les ' ne sont pas pratique à gérer. dta<-structure(list(No = 1:10, Type_IR = structure(c(1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L), .Label = c(" Fluoroscopy", " Stationary Acquisition" ), class = &quo...
par Serge Rapenne
20 Juil 2018, 12:06
Forum : Questions en cours
Sujet : [Résolu] mettre titre légende en gras
Réponses : 2
Vues : 98

Re: mettre titre légende en gras

Bonjour, Tu peux passer par une "expression" par ex : dta <- c(1,2,6,10,20) col=seq_along(dta) plot(dta,col=col,pch=20) legtext <- dta legend("topleft", legend=legtext,col=col,text.col=col, pch=20,cex=1.1,ncol=3, title = expression(bold("Données")),title.col="black...

Aller à la recherche avancée