1029 résultats trouvés

Aller à la recherche avancée

par Pierre-Yves Berrard
06 Avr 2018, 11:57
Forum : Questions en cours
Sujet : Diagramme en barres empilé après fusion de variables qualitatives
Réponses : 2
Vues : 531

Re: Diagramme en barres empilé après fusion de variables qualitatives

Devrais-je regrouper ces variables qualitatives en une nouvelle variable ? Oui, et créer une variable Etape prenant les valeurs "Etape1", "Etape2", "Etape3". Cette manipulation peut être faite facilement avec la fonction gather du package tidyr. Voir dans le sujet post...
par Pierre-Yves Berrard
05 Avr 2018, 10:51
Forum : Questions en cours
Sujet : Interpolation de raster
Réponses : 4
Vues : 665

Re: Interpolation de raster

Un exemple avec une boucle for : donnees <- read.table(header = TRUE, check.names = FALSE, text = "x y 1990 1995 2000 2005 2010 2015 3115000 5665000 0.00354375597089529 0.0034868239890784 0 0 0 0 3125000 5665000 0.00354375597089529 0.0034868239890784 0 0 0 0 3135000 5665000 0.00354375597089529 ...
par Pierre-Yves Berrard
05 Avr 2018, 09:12
Forum : Questions en cours
Sujet : Interpolation de raster
Réponses : 4
Vues : 665

Re: Interpolation de raster

Bonjour, Si quelqu'un a une piste ou quelque chose pour m'aider je suis preneur ! Je commencerais par fusionner (merge) les data.frames pour avoir quelque chose du style : x y info_1990 info_1995 ... ... ... ... ... L'interpolation sera ensuite un simple calcul vectoriel sur les colonnes info_.
par Pierre-Yves Berrard
04 Avr 2018, 13:08
Forum : Questions en cours
Sujet : Sélection de nombre à partir de même échantillonnage
Réponses : 9
Vues : 1427

Re: Sélection de nombre à partir de même échantillonnage

Ma solution semble marcher. Tester avec :

Code : Tout sélectionner

tailles <- c(1000, 900, 800, 500, 1200, 300, 450, 100)
par Pierre-Yves Berrard
04 Avr 2018, 12:20
Forum : Questions en cours
Sujet : Sélection de nombre à partir de même échantillonnage
Réponses : 9
Vues : 1427

Re: Sélection de nombre à partir de même échantillonnage

Je crois avoir compris un peu différemment d'Eric, donc :

Code : Tout sélectionner

tailles <- sample(100:1200, 10, replace = TRUE)

sapply(
  tailles / 1.9,
  function(t) sum(tailles < t)
)
par Pierre-Yves Berrard
23 Mar 2018, 09:02
Forum : Questions en cours
Sujet : Syntaxe R
Réponses : 4
Vues : 960

Re: Syntaxe R

C'est une formule qui sert à spécifier sur quelle variable d'intérêt (ici DeltaCt) on veut appliquer une fonction (ici mean) selon quelles variables de regroupement (ici TheGene). Voir l'aide de la fonction aggregate (en particulier l'argument formula).
par Pierre-Yves Berrard
19 Mar 2018, 23:27
Forum : Questions en cours
Sujet : Réattribuer la même variable plusieurs fois en fonction de la variable d'une autre colonne
Réponses : 4
Vues : 1090

Re: Réattribuer la même variable plusieurs fois en fonction de la variable d'une autre colonne

Bonjour,

Merci d'avoir simplifié la problématique. ;-)

Code : Tout sélectionner

library(dplyr)
library(tidyr)
df %>% arrange(V7, V8) %>% fill(V8)
par Pierre-Yves Berrard
19 Mar 2018, 16:29
Forum : Questions en cours
Sujet : Syntaxe R
Réponses : 4
Vues : 960

Re: Syntaxe R

Bonjour, Une solution en utilisant un appariement (merge) : moy_NT <- aggregate( data = df[df$Samples2 == "NT", ], DeltaCt ~ TheGene, FUN = mean ) res <- merge( df, moy_NT, by = "TheGene", all.x = TRUE, suffixes = c("", "_MoyNT") ) res$DDeltaCt <- res$DeltaCt ...
par Pierre-Yves Berrard
12 Mar 2018, 15:25
Forum : Questions en cours
Sujet : Syntaxe for / if
Réponses : 8
Vues : 1301

Re: Syntaxe for / if

Pour peaufiner, comme on a deux conditions qui s'excluent l'une l'autre, on peut aussi utiliser la fonction ifelse pour s'épargner d'écrire le complémentaire logique :

Code : Tout sélectionner

data1$Attention <- ifelse(data1$GCQ < 0.4 & data1$RefCQ < 0.4, "ok", "Redo")
par Pierre-Yves Berrard
12 Mar 2018, 13:33
Forum : Questions en cours
Sujet : fonction rle()
Réponses : 5
Vues : 1398

Re: fonction rle()

Une autre possibilité :

Code : Tout sélectionner

fins <- cumsum(b$lengths)
debuts <- fins - b$lengths + 1
indices <- mapply(seq, debuts, fins)

indices_4x1 <- indices[b$values == 1 & b$lengths >= 4]
(res <- unlist(indices_4x1))
par Pierre-Yves Berrard
10 Mar 2018, 14:21
Forum : Questions en cours
Sujet : Syntaxe for / if
Réponses : 8
Vues : 1301

Re: Syntaxe for / if

Bonjour, Pas besoin d'une boucle for pour créer une variable en fonction d'autres. Voir un exemple ici (sujet créé par vous-même). Sinon le fait que "Attention" ne change pas est dû à l'utilisation des opérateurs && et || qui ne prennent en compte que le premier élément de chaque o...
par Pierre-Yves Berrard
10 Mar 2018, 10:15
Forum : Questions en cours
Sujet : distance entre deux localisations extremes
Réponses : 6
Vues : 1133

Re: distance entre deux localisations extremes

Bonjour, Une solution avec le package dplyr : library(dplyr) DF %>% group_by(Date) %>% summarise(DIST = ma_distance(first(X), first(Y), last(X), last(Y))) Il faut bien sûr définir au préalable la formule adéquate pour ma_distance ma_distance <- function(x1, y1, x2, y2) { # ... }
par Pierre-Yves Berrard
09 Mar 2018, 13:21
Forum : Questions en cours
Sujet : [RÉSOLU] tirage sans remise
Réponses : 11
Vues : 1694

Re: tirage sans remise

Édite le titre du premier message en le préfixant par [RÉSOLU].
par Pierre-Yves Berrard
09 Mar 2018, 13:19
Forum : Questions en cours
Sujet : Code R
Réponses : 4
Vues : 997

Re: Code R

Bonjour,

Tapez ?purtest pour accéder à l'aide de la fonction.

Aller à la recherche avancée