erreur dans une commande (which.min

[souad becher]

Bonjour tout le monde,
J'ai essayé ce code qui vise à sélectionner les lignes ayant la date la plus petite pour un code précis.

Code : Tout sélectionner

newTab <- do.call("rbind", by(vit, vit[, "code"], function (idta) {
  out <- idta[which.min(idta[, "dated"]), ]
  return(out)
}))


avec vit ma base de données, code est l'identifiant, j'en ai plusieurs par ligne, et dated est la date d'une analyse.
L'erreur est la suivante :

Code : Tout sélectionner

Error in which.min(idta[, "dated"]) :
  (list) object cannot be coerced to type 'double'
Called from: which.min(idta[, "dated"])


Merci pour votre aide

[Mickael Canouil]

Bonjour,

le type de votre colonne "dated" n'est pas numérique ou assimilé.
A priori, c'est même une chaîne de caractère. Il vous faut donc la convertir a minima dans un format date, avec les fonctions as.Date ou as.POSIX*

Cordialement,

[souad becher]

ma variable dated est bien de classe date

Code : Tout sélectionner

 class(vo$dated)
[1] "Date"


[Pierre-Yves Berrard]

Bonjour,

Faute de code reproductible, j'en suis réduit à supposer que idta[, "dated"] est un data.frame d'une seule colonne.

Essayer de remplacer par

Code : Tout sélectionner

idta$dated

ou

Code : Tout sélectionner

idta[["dated"]]

[souad becher]

Ce que je veux faire :
J'ai une base de données

Code : Tout sélectionner

code       sexe      examen            dated        resultat
1      F      glucose        21/04/2016     1.10
1      F         glucose        30/08/2016      0.9
1       F         HDL   
2      H   TG         04/12/2016
2      H   TG         03/02/2017



Je veux avoir une base de données contenant seulement la première visite pour chaque patient

Code : Tout sélectionner

code       sexe      examen            dated        resultat
1      F      glucose        21/04/2016     1.10
1       F         HDL   
2      H   TG         04/12/2016


[souad becher]

s'il vous plait, y a t-il une aide concernant ce topic?

[Serge Rapenne]

Un peu de lecture : viewtopic.php?f=1&t=7638

Serge

[Pierre-Yves Berrard]

Et essayer ma proposition du 23 Nov 2017, 22:53.