422 résultats trouvés

Aller à la recherche avancée

par François Bonnot
16 Oct 2018, 11:31
Forum : Questions en cours
Sujet : Créer une fonction pour changer un caractère
Réponses : 5
Vues : 65

Re: Créer une fonction pour changer un caractère

Bonjour, Je propose la méthode suivante basée sur un score égal au nombre de lettre communes bien placées. Elle est rudimentaire et ne prend pas en compte les insertions/délétions placées près du début de la chaine. score <- function(word1,word2) { if (nchar(word2)>nchar(word1)) word2 <- substr(word...
par François Bonnot
17 Sep 2018, 08:01
Forum : Questions en cours
Sujet : supprimer les chiffres consecutifs qui se repetent
Réponses : 10
Vues : 1678

Re: supprimer les chiffres consecutifs qui se repetent

Bonjour,
Autre solution :

Code : Tout sélectionner

X[c(1,diff(X$B))!=0,]
par François Bonnot
29 Aoû 2018, 07:43
Forum : Questions en cours
Sujet : Créer une boucle pour changer le type de variable
Réponses : 6
Vues : 297

Re: Créer une boucle pour changer le type de variable

Bonjour, Il pourrait être plus efficace de stocker les données dans la base sous forme d' une table comprenant une colonne "patient", une seule colonne date (donc 100 lignes par patient) et des colonnes de données correspondantes. S'il n'est pas possible de modifier la base, on peut toujou...
par François Bonnot
27 Aoû 2018, 13:00
Forum : Questions en cours
Sujet : [Résolu] Noms et profondeurs d'une liste imbriquée
Réponses : 3
Vues : 208

Re: [Résolu] Noms et profondeurs d'une liste imbriquée

Bonjour, Les vacances étant terminées, voici une solution avec une seule fonction récursive : proflist <- function(z,level=0,result=NULL) { if (length(z)>0 && class(z)=="list") for (i in length(z):1) { names(level) <- names(z)[i] result <- c(level,proflist(z[[i]],level+1,result)) }...
par François Bonnot
19 Juil 2018, 12:27
Forum : Questions en cours
Sujet : Concours estival
Réponses : 17
Vues : 574

Re: Concours estival

Hum... il semble difficile de battre fun2 (qui arrive en tête) et Reduce, parce que ces deux fonctions travaillent directement sur les colonnes du data frame avec un minimum d'opérations.
par François Bonnot
19 Juil 2018, 07:14
Forum : Questions en cours
Sujet : Concours estival
Réponses : 17
Vues : 574

Re: Concours estival

Bonjour,
Une solution:

Code : Tout sélectionner

microbenchmark(as.matrix(dta) %*% rep(1,ncol(dta)))
par François Bonnot
10 Juil 2018, 06:16
Forum : Questions en cours
Sujet : stderr dans code C d'un package
Réponses : 3
Vues : 299

Re: stderr dans code C d'un package

Bonjour,
Une suggestion (sans garantie):
- ouvrir un fichier de sortie : FILE *fp=fopen("sortie.txt","w+");
- remplacer tous les printf(...) par fprintf(fp,...)
- remplacer tous les fprintf(stderr,...) par fprintf(fp,...)
par François Bonnot
02 Juil 2018, 09:48
Forum : Questions en cours
Sujet : Comparer des colonnes de dates
Réponses : 1
Vues : 176

Re: Comparer des colonnes de dates

Bonjour,
Si j'ai bien compris le problème, merge avec l'option all=TRUE devrait convenir:

Code : Tout sélectionner

df1 <- data.frame(cle=LETTERS[c(1,2,3,5,7)],x=runif(5))
df2 <- data.frame(cle=LETTERS[c(1,2,4,5,8,10)],y=runif(6))
merge(df1,df2,all=TRUE)
par François Bonnot
19 Juin 2018, 06:58
Forum : Questions en cours
Sujet : reglage GGPLOT + geom_bar avec option position
Réponses : 10
Vues : 310

Re: reglage GGPLOT + geom_bar avec option position

Une solution consiste à changer les 2 dernières lignes de la façon suivante : geom_point(aes(x= x+0.2, y = 1.5*as.numeric(nb_species)), show.legend=FALSE, stat = "identity") + scale_y_continuous(sec.axis = sec_axis(~./1.5,name="Number of species"))
par François Bonnot
24 Mai 2018, 06:41
Forum : Questions en cours
Sujet : calcul de distance entre deux dataframe de localisation gps
Réponses : 6
Vues : 361

Re: calcul de distance entre deux dataframe de localisation gps

Bonjour, Pour compléter les propos de Bertrand, la distance selon l'orthodromie sphérique est donnée dans le package geosphere par la fonction distCosine. Elle est un peu moins précise que distGeo (qui modélise la terre par un ellipsoïde au lieu d'une sphère) mais suffisante dans la plupart des cas....
par François Bonnot
22 Mai 2018, 06:16
Forum : Questions en cours
Sujet : calcul de distance entre deux dataframe de localisation gps
Réponses : 6
Vues : 361

Re: calcul de distance entre deux dataframe de localisation gps

Bonjour, Attention que dans nos régions (il semble que vos localités soient dans l'est de la France) un degré de longitude correspond à une distance beaucoup plus courte qu'un degré de latitude (rapport cos(45°) soit environ 0.7). On ne peut donc faire un calcul comme s'il s'agissait de coordonnées ...
par François Bonnot
21 Mai 2018, 13:19
Forum : Questions en cours
Sujet : reglage GGPLOT + geom_bar avec option position
Réponses : 10
Vues : 310

Re: reglage GGPLOT + geom_bar avec option position

Si on ne considère que la syntaxe de R, le code suivant est une solution (mais ce n'est peut-être pas la meilleure façon de représenter les données): ggplot(data = complet_w, aes(x = x, y = pre_value, fill = pre_type), stat = "identity") + scale_x_continuous(breaks=(1:3)+0.2, labels=unique...
par François Bonnot
21 Mai 2018, 11:57
Forum : Questions en cours
Sujet : reglage GGPLOT + geom_bar avec option position
Réponses : 10
Vues : 310

Re: reglage GGPLOT + geom_bar avec option position

Bonjour,
Je ne comprends pas la question : l'axe des y représente un nombre de jours, cela n'a pas de sens de l'utiliser pour un nombre d'espèces.
par François Bonnot
21 Mai 2018, 09:48
Forum : Questions en cours
Sujet : reglage GGPLOT + geom_bar avec option position
Réponses : 10
Vues : 310

Re: reglage GGPLOT + geom_bar avec option position

Bonjour, Une solution : complet_w$x <- rep(1:3,each=4) ggplot(data = complet_w, aes(x = x, y = pre_value, fill = pre_type), stat = "identity") + scale_x_continuous(breaks=1:3, labels=unique(complet_w$year_month)) + geom_bar(stat = "identity", width=0.5) + xlab("date") +...
par François Bonnot
18 Mai 2018, 08:36
Forum : Questions en cours
Sujet : Superposer deux barplot empilés avec ggplot
Réponses : 1
Vues : 192

Re: Superposer deux barplot empilés avec ggplot

Bonjour,
Pour insérer votre jeu de données, utiliser dput() :
http://forums.cirad.fr/logiciel-R/viewtopic.php?f=1&t=3302

Aller à la recherche avancée