gmane.comp.lang.r.user.french

Re: question interval de dates

Emiliano Grossman — 2012-04-02T20:37:44

merci beaucoup, en partant de lapply, j'y suis finalement parvenu. une fois
de plus, les différentes variantes de apply permettent pratiquement de tout
résoudre en évitant les boucles. je m'en souviendrai.

merci beaucoup.

Le 2 avril 2012 17:10, Julien Barnier <julien.barnier-vYW+cPY1g1pWj0EZb7rXcA< at >public.gmane.org> a écrit :

Re: question interval de dates

Julien Barnier — 2012-04-02T15:10:44

Bonjour,


Effectivement, il était difficile de deviner ce que vous vouliez faire
exactement à partir de votre premier message :-)


Êtes-vous sûr qu'il n'y a qu'une seule ligne dans la matrice 2 pour une ligne
de la matrice 1 donnée ? Si les intervalles de la matrice 2 ne se chevauchent
pas, c'est certainement le cas, à moins qu'une date se trouve sur une journée
«frontière» entre deux intervalles.

Dans ce cas, en reprenant vos données :

R> m1 <- data.frame(date=as.Date(c("2002-10-21","2002-11-12","2002-12-15")), a=1:3)
R> m1
        date a
1 2002-10-21 1
2 2002-11-12 2
3 2002-12-15 3
R> m2 <- data.frame(debut=as.Date(c("2002-10-01","2002-11-05","2002-11-27")), fin=as.Date(c("2002-11-05","2002-11-27","2002-11-15")), x=c(12,14,11))
R> m2
       debut        fin  x
1 2002-10-01 2002-11-05 12
2 2002-11-05 2002-11-27 14
3 2002-11-27 2002-11-15 11


On peut utiliser «lapply» de la sorte :

R> m1$x <- lapply(m1$date, function(d) { m2$x[m2$debut < d & m2$fin > d] })
R> m1
        date a  x
1 2002-10

Re: question interval de dates

Emiliano Grossman — 2012-04-02T09:33:52

merci, mais je n'y arrive toujours pas. j'essaie d'être plus explicite:

ma matrice 1 est comme suit:

date            a  b
2002-10-21  1  8
2002-11-12  2  9
2002-12-15  5  4

La matrice 2 contient plusieurs variables dont celles-ci:

début           fin                 x
2002-10-01   2002-11-05    12
2002-11-05   2002-11-27    14
2002-11-27   2002-12-15    11

maintenant je voudrais écrire une commande qui rajoute x à la matrice 1 en
fonction de l'interval de date début-fin dans lequel tombe "date".

effectivement, la décision logique fonctionne au niveau de chaque
comparaison, mais j'ai du mal à écrire une commande qui fasse cela pour les
1388 observations auxquels je veux l'attribuer. il va sans dire que la
matrice 2 n'est pas de la même longueur (108 contre 1388).

merci d'avance,

Le 2 avril 2012 09:42, Julien Barnier <julien.barnier-vYW+cPY1g1pWj0EZb7rXcA< at >public.gmane.org> a écrit :

Re: question interval de dates

Julien Barnier — 2012-04-02T07:42:20

Re,


Si je comprends bien, vous essayez d'appliquer votre test à une série de dates
avec une boucle for ?

Si c'est bien ça, le plus simple est de ne pas utiliser une boucle for mais de
profiter du fait que les fonctions de test sont «vectorisées» :

R> debut <- c("2003-03-30", "2003-03-31")
R> debut <- as.Date(debut)
R> debut
[1] "2003-03-30" "2003-03-31"
R> fin <- as.Date(c("2004-04-01", "2004-04-05"))
R> date <- as.Date("2004-04-02")
R> date > debut & date < fin
[1] FALSE  TRUE

Et si vous voulez vraiment utiliser une boucle for, peut-être qu'en remplaçant
«&» par «&&» (la version non vectorisée de l'opération «and») ça fonctionne
mieux ?

Cordialement,

Re: question interval de dates

Emiliano Grossman — 2012-04-02T07:31:53

Merci. Les dates sont en format "date". c'est plutôt la répétition (y
compris avec une boucle "for") qui ne marche pas...

Le 2 avril 2012 09:00, Julien Barnier <julien.barnier-vYW+cPY1g1pWj0EZb7rXcA< at >public.gmane.org> a écrit :

Re: question interval de dates

Julien Barnier — 2012-04-02T07:00:00

Bonjour,


Sous quel format sont vos dates ?

En les transformant en objet de classe «Date» ça a l'air de fonctionner en
tous cas :

R> debut <- as.Date("2012-03-30")
R> fin <- as.Date("2012-04-02")
R> as.Date("2012-04-01")>debut
[1] TRUE
R> as.Date("2012-04-01")>fin
[1] FALSE


Cordialement,

question interval de dates

Emiliano Grossman — 2012-04-01T21:57:27

bonjour,

je voudrais attribuer une valeur en fonction d'un interval de dates.

dans la matrice 1 j'ai une date "d1".
dans la matrice 2 j'ai une date "début" et une date "fin" et une valeur "x".
maintenant, je voudrais rajouter "x" à la matrice 1. pour cela il faut
trouver la valeur de x, dont l'interval comprend "d1".

j'ai essayé avec

test<-if(d1>=début & d1<fin) x

mais ça donne rien.

des suggestions?

merci d'avance,

Re: redressement échantillon par quota

Julien Barnier — 2012-03-29T10:07:29

Bonjour,


Je ne suis pas sûr que le chapitre répondra directement à votre question, par
contre ça vaut sans doute le coup de regarder du côté de l'extension
«survey» :

http://faculty.washington.edu/tlumley/survey/

J'en profite pour signaler le billet de blog suivant (en anglais), qui liste
des extensions pouvant être utiles pour l'usage de R en sciences sociales :

http://www.drewconway.com/zia/?p=1614

Les commentaires contiennent également quelques références intéressantes.

Cordialement,

Julien

Re: redressement échantillon par quota

Joel GOMBIN — 2012-03-29T10:00:09

Bonjour,

Julien Barnier consacre le chapitre 7 de son *R pour sociologues* à cette
question : http://alea.fr.eu.org/pages/intro-R

Bien cordialement,

Joël

On Thursday, March 29, 2012, Cuadros wrote:

redressement échantillon par quota

Cuadros — 2012-03-29T08:41:51

Bonjour,
Savez vous comment on doit s'y prendre pour redresser un échantillon par
quota sous R ?
Par avance merci pour vos réponses.
Daniela Cuadros

Re: Re: Lissage spatial de données

Julien Barnier — 2012-03-27T11:56:11

Bonjour,


Si tu as essayé avec mon adresse < at >ens-lsh.fr, c'est normal, nous sommes passés
au domaine < at >ens-lyon.fr suite à la fusion des ENS il y a quelques mois.

Cordialement,

Julien

Re: Re: Lissage spatial de données

Joel GOMBIN — 2012-03-27T10:59:13

Merci Laurent,

c'est drôle de te croiser ici après s'être croisés IRL jeudi !

Merci pour la solution, entre-temps j'avais rédigé une fonction faisant
exactement ce que je voulais. Quand j'aurais deux minutes, je les enverrai
à Julien pour qu'il puisse les rajouter à rgrs, s'il le souhaite. (Au fait
Julien, j'avais essayé il y a quelques temps de t'envoyer des mails, mais
ils m'étaient tous revenus en erreur ?)

Bonne journée,

Joël

2012/3/27 Laurent Beauguitte <beauguittelaurent-PkbjNfxxIARBDgjK7y7TUQ< at >public.gmane.org>

Re: Latex et "%"

Julien Barnier — 2012-03-27T09:25:51

Bonjour,

On peut aussi appliquer la fonction «latexTranslate», de Hmisc, sur le nom des
colonnes :

R> library(rgrs)
R> library(Hmisc)
R> x <- 1:5
R> freq(x)
   n  %
1  1 20
2  1 20
3  1 20
4  1 20
5  1 20
NA 0  0

R> tab <- freq(x)
R> names(tab)
[1] "n" "%"
R> names(tab) <- latexTranslate(names(tab))
R> tab
   n \\%
1  1  20
2  1  20
3  1  20
4  1  20
5  1  20
NA 0   0

R> latex(tab, file="")
% latex.default(tab, file = "") 
%
\begin{table}[!tbp]
 \begin{center}
 \begin{tabular}{lrr}\hline\hline
\multicolumn{1}{l}{tab}&\multicolumn{1}{c}{n}&\multicolumn{1}{c}{\%}\tabularnewline
\hline
1&$1$&$20$\tabularnewline
2&$1$&$20$\tabularnewline
3&$1$&$20$\tabularnewline
4&$1$&$20$\tabularnewline
5&$1$&$20$\tabularnewline
NA&$0$&$ 0$\tabularnewline
\hline
\end{tabular}

\end{center}

\end{table}



Ça doit être car les accolades sont des symboles spécifiques dans les
expressions régulières, il faut donc les échapper également :

R> gsub("{%}", "", "foo{%}bar")
Erreur dans gsub("{%}", "", "foo{%}bar") : 
  e

Re: Lissage spatial de données

Laurent Beauguitte — 2012-03-27T07:59:59

données spatiales, sous forme de polygones ? J'ai trouvé pas mal de choses sur
le krieging de points, mais rien sur des polygones...
36.000 communes, que je souhaiterais lisser pour dégager les grandes tendances,
de sorte que la valeur que prend la variable d'intérêt d'une commune soit une
moyenne locale (en configurant la distance à prendre en compte et l'intensité du
lissage...). 
la fonction loess ?
Université de Picardie Jules Verne

Bonjour,

il semblerait que la fonction smooth.map (package maps) puisse faire cela. Mais
elle le fait en utilisant la solution suggérée par Julien Barnier : passage du
polygone au point puis lissage et interpolation.
Voir la documentation
http://www.stat.ucl.ac.be/ISdidactique/Rhelp/library/maps/html/smooth.map.html

Bonne journée,

Laurent Beauguitte
Post-doctorant
UMR IDEES

Re: Latex et "%"

Joel GOMBIN — 2012-03-26T23:06:19

Merci, ça marche ! Pour ma part, j'essayais :

gsub("{%}", "{\%}", latex(freq(x)), fixed=T)

mais sans succès (et sans plus de succès en mettant deux, trois ou quatre
backslash).

A plus,

Joël

2012/3/27 Alexandre Hobeika <alexandre.hobeika-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>

Re: Latex et "%"

Alexandre Hobeika — 2012-03-26T22:53:58

Salut Joël,

Essaie "\\\\%" . C'est tordu, mais pour R un backslash s'écrit "\\" (essaie
d'exécuter simplement "\", tu verras), ce qui devient "\\\\" dans les
patterns.
Par curiosité, comment tu écris ton gsub() ?

Le plus pédestre, mais qui va marcher :

y <- freq(x)
names(y) <- gsub("%", "\\\\%", names(y))
latex(y, file="")

Ça donne ce qui t'intéresse ici.
A plus tard,

Alexandre



Le lundi 26 mars 2012, Joel GOMBIN <joel.gombin-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org> a écrit :
latex, que je passe ensuite à la moulinette de knitr.
rgrs, par exemple) mettent un signe "%" dans leur sortie, qui est mis tel
quel par latex() dans le code généré, de sorte que le compileur latex le
voit ensuite comme un signe de commentaire...
\multicolumn{1}{l}{freq}&\multicolumn{1}{c}{n}&\multicolumn{1}{c}{%}\tabularnewline
précédé d'un \, afin qu'il soit compris par le compilateur latex ?
problème lié au fait que le "\%" est un escape character...

Latex et "%"

Joel GOMBIN — 2012-03-26T16:36:23

Bonjour,

j'utilise la fonction latex() du package Hmisc afin de générer du code
latex, que je passe ensuite à la moulinette de knitr.

Mon problème est que certaines fonctions (la fonction freq() du package
rgrs, par exemple) mettent un signe "%" dans leur sortie, qui est mis tel
quel par latex() dans le code généré, de sorte que le compileur latex le
voit ensuite comme un signe de commentaire...

Un exemple pour être plus clair :

library(rgrs)
library(Hmisc)
x <- c(1,2,3)
latex(freq(x), file="")

le résultat est :

% latex.default(freq(x), file = "")


Y a-t-il un moyen quelconque de faire en sorte que le caractère % soit
précédé d'un \, afin qu'il soit compris par le compilateur latex ?
J'ai essayé de m'en sortir avec un gsub(), mais apparemment il y a un
problème lié au fait que le "\%" est un escape character...

Merci d'avance !

Cordialement,

Joël

Re: compléter une data.frame par des valeurs d'une autre data.frame plus volumineuse ou structurée différemment

Julien Barnier — 2012-03-20T13:06:14

Bonjour,


La question n'est absolument pas idiote, et la réponse pas spécialement
triviale. 

R dispose de la fonction «reshape», qui permet de faire passer un data frame
d'un format «long» (plusieurs lignes pour une même observation) à un format
«large» (plusieurs colonnes pour une même observation).

Si on imagine le data frame suivant, où id serait l'identifiant, obs le numéro
de l'observation pour un identifiant et v les valeurs d'une variable :

R> d <- data.frame(id=c(1, 1, 2, 3, 3, 3), obs=c(1, 2, 1, 1, 2, 3), v=1:6)
R> d
  id obs v
1  1   1 1
2  1   2 2
3  2   1 3
4  3   1 4
5  3   2 5

On peut passer ce data frame d'un format long à un format large («wide») de la
manière suivante :

R> reshape(d, idvar="id", timevar="obs", v.names="v", direction="wide")
  id v.1 v.2 v.3
1  1   1   2  NA
3  2   3  NA  NA
4  3   4   5   6

Si vous utilisez fréquemment ce genre de transformation, l'extension
«reshape2», de Hadley Wickham, est particulièrement conseillée :

http://cran.r-project.o

Re: compléter une data.frame par des valeurs d'une autre data.frame plus volumineuse ou structurée différemment

sylvie celerier — 2012-03-20T05:19:08

Pour clore notre échange et vous remercier encore, j'ajoute une précision
qui pourrait intéresser d'autres débutant-e-s R

la formule est bien : nouvellebase<-merge(base1, base2, by ="nomcommun",
all.x=FALSE, all.y=TRUE)

nouvellebase présentait cependant plus de lignes que base2, ce qui n'était
pas normal et s'explique par les doublons dans base1 et une erreur de ma
part.

base2$nomcommun de type = a, b, c, d, e, f, g, (sans doublon)
base1$nomcommun de type = a, a, b, c, d,d, d, d etc...

Donc Base2 n'était pas la bonne base de tirage de base 1. En reconstituant
la bonne base (des individus interrogés à un certain moment), la première
formule marche parfaitement.

Pour le compteur, il est très utile et je parviens à mettre les
informations concernant un même individu à la suite les unes des autres,
mais pas sur une même ligne :
a=1
a=2
a=5
b=2
c=5
c=3
etc...

alors que je cherche :
a= 1, 2, 5
b=2
c=5, 3

Ma question doit être idiote.
quoi qu'il en soit, merci à nouveau et bonne journée
syl

Re: compléter une data.frame par des valeurs d'une autre data.frame plus volumineuse ou structurée différemment

sylvie celerier — 2012-03-19T14:46:29

merci de cette réponse rapide, je tente immédiatement les solutions
proposées.
cordialement,
sylvie célérier

Le 19 mars 2012 15:03, Julien Barnier <julien.barnier-vYW+cPY1g1pWj0EZb7rXcA< at >public.gmane.org> a écrit :

Re: compléter une data.frame par des valeurs d'une autre data.frame plus volumineuse ou structurée différemment

Julien Barnier — 2012-03-19T14:03:48

Bonjour,


En utilisant les options «all.x» et «all.y» de la fonction «merge», vous
devriez pouvoir faire un «merge» de vos deux bases de données en ne conservant
que les individus que vous souhaitez, il me semble.

Par exemple, si vous fusionnez x=base1 sur y=base2, mettre all.x=FALSE et
all.y=TRUE devrait ne garder que les identifiants présents dans base2. 

Voir peut-être la partie «Fusion de tables» page 69 de cette introduction à
R :

http://alea.fr.eu.org/git/doc_intro_r.git/blob_plain/HEAD:/intro.pdf


Je ne sais pas si ceci correspond à votre demande :

http://alea.fr.eu.org/post/2011/01/14/Cr%C3%A9er-un-compteur-d-identifiants

Cordialement,