1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
#Je crée mon jeu de données simulés pour l'exemple
ID<-as.factor(rep(c("1","2","3","4"),times=30))
Diago<-as.Date(rep(c("2012-07-21","2011-06-12","2012-06-21","2014-05-09"),times=30),format="%Y-%m-%d")
Test<-as.Date(rep(c("2012-07-29","2011-06-10","2012-07-24","2013-08-10"),each=30),format="%Y-%m-%d")
score<-sample(1:10,120,replace=T)
data<-cbind(as.data.frame(ID),Diago,Test,score)
#je récupère l'individu dont je veux afficher les points
sub<-data[data$ID=="3",]
library(ggplot2)
p<-ggplot(NULL)+geom_smooth(data=data,aes(x=Test,y=score,group=ID,colour=ID))
p<-p+geom_point(data=sub,aes(x=Test,y=score,colour=ID))
p |
Partager