[Stacomir-commits] r346 - pkg/stacomir/R

[noreply at r-forge.r-project.org]

Author: briand
Date: 2017-04-07 09:37:04 +0200 (Fri, 07 Apr 2017)
New Revision: 346

Modified:
   pkg/stacomir/R/BilanMigrationCar.r
Log:


Modified: pkg/stacomir/R/BilanMigrationCar.r
===================================================================
--- pkg/stacomir/R/BilanMigrationCar.r	2017-04-06 20:28:37 UTC (rev 345)
+++ pkg/stacomir/R/BilanMigrationCar.r	2017-04-07 07:37:04 UTC (rev 346)
@@ -395,6 +395,8 @@
 				# problem with different order (set by color name) implying different order
 				# in the graph (ie by color not by car_val_identifiant
 				levels(cs$color)<-cs$color
+				bonordre<-match(levels(cs$color),cs$color)
+				cs$color = factor(cs$color,levels(cs$color)[bonordre])
 				calcdata<-bmC at calcdata
 				calcdata<-merge(calcdata,cs)
 				calcdata<-calcdata[order(calcdata$mois,calcdata$car_val_identifiant),]