453 résultats trouvés

Aller à la recherche avancée

par François Bonnot
11 Déc 2018, 13:44
Forum : Questions en cours
Sujet : Jointure
Réponses : 4
Vues : 37

Re: Jointure

Bonjour, Une suggestion : (df1 <- data.frame(source=1,ident=c('A','B','C'),valeur=1:3)) (df2 <- data.frame(source=2,ident=c('A','B','D'),valeur=c(1,3,4))) (df <- merge(df1,df2,all=TRUE)) ## équivalent dans ce cas à df <- rbind(df1,df2) df.s <- split(df,df["ident"]) df.s2 <- lapply(df.s,fun...
par François Bonnot
10 Déc 2018, 07:34
Forum : Questions en cours
Sujet : [RESOLU] les fonctions dans la by()
Réponses : 10
Vues : 57

Re: les fonctions dans la by()

Bonjour, Le code n'est pas reproductible: > by(Don[,"Distance"],Don[,"Sexe"],sum) Error in by(Don[, "Distance"], Don[, "Sexe"], sum) : object 'Don' not found Mais avec un code reproductible, tout est normal : > Don <- data.frame(Sexe="Garçon",Distanc...
par François Bonnot
19 Nov 2018, 09:07
Forum : Questions en cours
Sujet : [resolu] Analyse combinatoire
Réponses : 5
Vues : 99

Re: Analyse combinatoire

Bonjour, Je ne sais pas si les fonctions existent sous R mais elles sont très simples à programmer : - assemblages ordonnées avec répétition Nombre : n^p Liste : utiliser expand.grid() - assemblages ordonnées sans répétition Nombre : choose(n,p)*gamma(p+1) Liste : utiliser expand.grid() et supprimer...
par François Bonnot
15 Nov 2018, 07:13
Forum : Questions en cours
Sujet : Equation de degré n
Réponses : 2
Vues : 70

Re: Equation de degré n

peut-être qu'il existe une fonction sous R...

Bonjour,
Oui : la fonction polyroot() du package base.
par François Bonnot
14 Nov 2018, 07:52
Forum : Questions en cours
Sujet : Renommer un level de variable sous conditions
Réponses : 5
Vues : 93

Re: Renommer un level de variable sous conditions

Bonjour, Je suppose qu'il ne s'agit pas de renommer le niveau d'un facteur (ce qu'on ferait avec levels(x)[i] <- ... ), mais d'affecter une nouvelle valeur à un élément d'un objet de classe factor. Cette opération provoque une erreur si le niveau du facteur n'existe pas déjà. Une solution est de tra...
par François Bonnot
08 Nov 2018, 09:57
Forum : Questions en cours
Sujet : faire un tri en gardant l'information de nom de colonne
Réponses : 24
Vues : 415

Re: faire un tri en gardant l'information de nom de colonne

Bonjour,
C'est beaucoup plus facile avec un extrait du jeu de données.
Dans votre exemple du Mer Nov 07, 2018 5:14 pm vous obtenez un vecteur positions qui vous permet d'obtenir le même résultat que votre boucle avec le code

Code : Tout sélectionner

ADCP_longformat$conc <- samplesand$sand[positions]
par François Bonnot
07 Nov 2018, 07:49
Forum : Questions en cours
Sujet : faire un tri en gardant l'information de nom de colonne
Réponses : 24
Vues : 415

Re: faire un tri en gardant l'information de nom de colonne

Bonjour, C'est mieux mais il manque des informations pour vous répondre. Pour vous aider, je dois (sans y passer plus de quelques minutes) reproduire votre code d <- dist2(ADCP_longformat1,samplesand) qui (d'après ce que j'ai compris) fonctionne mais lentement. L'extrait de samplesand avec dput est ...
par François Bonnot
05 Nov 2018, 16:56
Forum : Questions en cours
Sujet : faire un tri en gardant l'information de nom de colonne
Réponses : 24
Vues : 415

Re: faire un tri en gardant l'information de nom de colonne

Ce format ne permet pas de récupérer les données facilement.
Comme indiqué dans mon message du Ven Oct 26, 2018 6:52 am , il faut utiliser dput().
par François Bonnot
05 Nov 2018, 07:20
Forum : Questions en cours
Sujet : faire un tri en gardant l'information de nom de colonne
Réponses : 24
Vues : 415

Re: faire un tri en gardant l'information de nom de colonne

Bonjour,
Le code n'est pas reproductible :

Code : Tout sélectionner

> d <- dist2(ADCP_longformat1,samplesand)
Error in outer(df1[[1]], df2[[1]], d2) :
  object 'ADCP_longformat1' not found

Voir :
viewtopic.php?f=1&t=7638
par François Bonnot
30 Oct 2018, 07:45
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 483

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

On voit toujours cet effet "escalier" Bonjour, Vous voulez inclure des rectangles dans un cercle et qu'ils soient tangents au cercle par leurs côtés? Mais c'est géométriquement impossible! pouvez-vous m'expliquer comment vous définissez col dans cette fonction (pour que quand m=0, col soi...
par François Bonnot
29 Oct 2018, 16:10
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 483

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

Quelque chose comme ça ?

Code : Tout sélectionner

lim <- 1.55 ; ratio <- 1.02
plot(0,0,xlim=c(-lim,lim),ylim=c(-lim,lim),asp=1)
symbols(0,0,circles=r*ratio,add=TRUE,inches=FALSE,bg="gray")
image(x,x,m,col=c("gray","white"),add=TRUE)
par François Bonnot
29 Oct 2018, 14:59
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 483

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

Il ne suffit pas d'agrandir un peu le cercle ? lim <- 1.55 ; ratio <- 1.02 image(x,x,m,asp=1,col=c("gray","white"),xlim=c(-lim,lim),ylim=c(-lim,lim)) tt <- seq(0,2*pi, length.out = 200) Dom <- data.frame(x = r*cos(tt)*ratio, y = r*sin(tt)*ratio) lines(Dom, lwd = 2, col = "gr...
par François Bonnot
29 Oct 2018, 13:26
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 483

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

il faudrait un exemple reproductible (cercle tracé sur l'exemple que j'ai donné).
par François Bonnot
29 Oct 2018, 13:00
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 483

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

... mais le plus simple est d'utiliser la fonction levelplot() du package lattice : library(lattice) r <- sqrt(2) scale = 0.05 Xg <- expand.grid(X1g = seq(-r, r, scale), X2g = seq(-r, r, scale)) Xg <- Xg[sqrt(Xg[,1]^2 + Xg[,2]^2)<r,] Xg$D <- as.numeric(runif(nrow(Xg))<0.1) levelplot(D~X1g*X2g,data=X...

Aller à la recherche avancée