[Stacomir-commits] r227 - in pkg/stacomir: R data
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Sun Oct 2 20:45:00 CEST 2016
Author: briand
Date: 2016-10-02 20:45:00 +0200 (Sun, 02 Oct 2016)
New Revision: 227
Modified:
pkg/stacomir/R/BilanFonctionnementDC.r
pkg/stacomir/R/BilanFonctionnementDF.r
pkg/stacomir/data/bMM_Arzal.rda
pkg/stacomir/data/bM_Arzal.rda
pkg/stacomir/data/bfDC.rda
pkg/stacomir/data/bfDF.rda
pkg/stacomir/data/bilanFonctionnementDC.rda
pkg/stacomir/data/bilanFonctionnementDC_bM.rda
pkg/stacomir/data/bilanFonctionnementDF_bM.rda
pkg/stacomir/data/bilanOperation.rda
pkg/stacomir/data/bilanOperation_bM.rda
Log:
Final change to BilanFonctionnementDF and DC, adapting to different languages.
Modified: pkg/stacomir/R/BilanFonctionnementDC.r
===================================================================
--- pkg/stacomir/R/BilanFonctionnementDC.r 2016-10-02 17:15:45 UTC (rev 226)
+++ pkg/stacomir/R/BilanFonctionnementDC.r 2016-10-02 18:45:00 UTC (rev 227)
@@ -229,18 +229,17 @@
progress_bar$setFraction(1)
if (is.null(main)) main<-paste(get("msg",envir_stacomi)$BilanFonctionnementDC.12,bilanFonctionnementDC at dc@dc_selectionne)
# graphic
- t_periodefonctdispositif_per_mois<-stacomirtools::chnames(t_periodefonctdispositif_per_mois,
- old_variable_name=c("sumduree","per_tar_code","per_etat_fonctionnement"),
- new_variable_name=get("msg",envir_stacomi)$BilanFonctionnementDF.6)
- #modification of the order
+ #modification of the order
- t_periodefonctdispositif_per_mois=t_periodefonctdispositif_per_mois[order(t_periodefonctdispositif_per_mois$type_fonct., decreasing = TRUE),]
+ t_periodefonctdispositif_per_mois=t_periodefonctdispositif_per_mois[order(t_periodefonctdispositif_per_mois$per_etat_fonctionnement, decreasing = TRUE),]
g<- ggplot(t_periodefonctdispositif_per_mois,
- aes(x=mois,y=duree,fill=libelle))+
+ aes(x=mois,y=sumduree,fill=libelle))+
facet_grid(annee~.)+
ggtitle(main)+
+ ylab(get("msg",envir_stacomi)$BilanFonctionnementDF.6[1])+
+ xlab(get("msg",envir_stacomi)$BilanFonctionnementDC.3)+
geom_bar(stat='identity')+
- scale_fill_manual(values = c("#FF6700","#EE1874", "#9E0142","#76BEBE","#999999"))+
+ scale_fill_manual(get("msg",envir_stacomi)$BilanFonctionnementDF.6[2],values = c("#FF6700","#EE1874", "#9E0142","#76BEBE","#999999"))+
theme(
plot.background = element_rect(fill ="white"),
panel.background = element_rect(fill="white"),
@@ -255,12 +254,15 @@
axis.text=element_text(colour="black")
)
- t_periodefonctdispositif_per_mois=t_periodefonctdispositif_per_mois[order(t_periodefonctdispositif_per_mois$fonctionnement),]
- t_periodefonctdispositif_per_mois$fonctionnement=as.factor( t_periodefonctdispositif_per_mois$fonctionnement)
- g1<- ggplot(t_periodefonctdispositif_per_mois,aes(x=mois,y=duree))+facet_grid(annee~.)+
+ t_periodefonctdispositif_per_mois=t_periodefonctdispositif_per_mois[order(t_periodefonctdispositif_per_mois$per_etat_fonctionnement),]
+ t_periodefonctdispositif_per_mois$per_etat_fonctionnement=as.factor(t_periodefonctdispositif_per_mois$per_etat_fonctionnement)
+ g1<- ggplot(t_periodefonctdispositif_per_mois,aes(x=mois,y=sumduree))+
+ facet_grid(annee~.)+
ggtitle(main)+
- geom_bar(stat='identity',aes(fill=fonctionnement))+
- scale_fill_manual(values = c("#0F313A","#CEB99A") ) +
+ ylab(get("msg",envir_stacomi)$BilanFonctionnementDF.6[1])+
+ xlab(get("msg",envir_stacomi)$BilanFonctionnementDC.3)+
+ geom_bar(stat='identity',aes(fill=per_etat_fonctionnement))+
+ scale_fill_manual(get("msg",envir_stacomi)$BilanFonctionnementDF.6[3],values = c("#0F313A","#CEB99A") ) +
theme(
plot.background = element_rect(fill ="white"),
panel.background = element_rect(fill="white"),
Modified: pkg/stacomir/R/BilanFonctionnementDF.r
===================================================================
--- pkg/stacomir/R/BilanFonctionnementDF.r 2016-10-02 17:15:45 UTC (rev 226)
+++ pkg/stacomir/R/BilanFonctionnementDF.r 2016-10-02 18:45:00 UTC (rev 227)
@@ -37,7 +37,7 @@
df="RefDF",
horodatedebut="RefHorodate",
horodatefin="RefHorodate"
- ),
+ ),
prototype=prototype(data=data.frame(),df=new("RefDF"),
horodatedebut=new("RefHorodate"),
horodatefin=new("RefHorodate")
@@ -178,7 +178,7 @@
#&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
# PLOT OF TYPE BARCHART (plot.type=1 (true/false) or plot.type=2)
#&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
- #bilanFonctionnementDF<-bfDF; require(RGtk2); require(lubridate);require(ggplot2);title=NULL;silent=FALSE;plot.type="1"
+ #bilanFonctionnementDF<-bfDF; require(RGtk2); require(lubridate);require(ggplot2);main=NULL;silent=FALSE;plot.type="1"
bilanFonctionnementDF<-x
plot.type<-as.character(plot.type)# to pass also characters
if (!plot.type%in%c("1","2","3","4")) stop('plot.type must be 1,2,3 or 4')
@@ -237,25 +237,27 @@
progress_bar$setFraction(1)
if (is.null(main)) main<-paste(get("msg",envir_stacomi)$BilanFonctionnementDF.7,bilanFonctionnementDF at df@df_selectionne)
# graphic
- t_periodefonctdispositif_per_mois<-stacomirtools::chnames(t_periodefonctdispositif_per_mois,
- old_variable_name=c("sumduree","per_tar_code","per_etat_fonctionnement"),
- new_variable_name=get("msg",envir_stacomi)$BilanFonctionnementDF.6)
- #modification of the order
+ t_periodefonctdispositif_per_mois=t_periodefonctdispositif_per_mois[order(t_periodefonctdispositif_per_mois$per_tar_code, decreasing = TRUE),]
- t_periodefonctdispositif_per_mois=t_periodefonctdispositif_per_mois[order(t_periodefonctdispositif_per_mois$type_fonct., decreasing = TRUE),]
g<- ggplot(t_periodefonctdispositif_per_mois,
- aes(x=mois,y=duree,fill=libelle))+
+ aes(x=mois,y=sumduree,fill=libelle))+
facet_grid(annee~.)+
+ ylab(get("msg",envir_stacomi)$BilanFonctionnementDF.6[1])+
+ xlab(get("msg",envir_stacomi)$BilanFonctionnementDC.3)+
ggtitle(main)+
geom_bar(stat='identity')+
- scale_fill_manual(values = c("#E41A1C","#E6AB02", "#9E0142","#1B9E77","#999999"))
+ scale_fill_manual(get("msg",envir_stacomi)$BilanFonctionnementDF.6[2],
+ values = c("#E41A1C","#E6AB02", "#9E0142","#1B9E77","#999999"))
- t_periodefonctdispositif_per_mois=t_periodefonctdispositif_per_mois[order(t_periodefonctdispositif_per_mois$fonctionnement),]
- t_periodefonctdispositif_per_mois$fonctionnement=as.factor( t_periodefonctdispositif_per_mois$fonctionnement)
- g1<- ggplot(t_periodefonctdispositif_per_mois,aes(x=mois,y=duree))+facet_grid(annee~.)+
+ t_periodefonctdispositif_per_mois=t_periodefonctdispositif_per_mois[order(t_periodefonctdispositif_per_mois$per_etat_fonctionnement),]
+ t_periodefonctdispositif_per_mois$per_etat_fonctionnement=as.factor( t_periodefonctdispositif_per_mois$per_etat_fonctionnement)
+
+ g1<- ggplot(t_periodefonctdispositif_per_mois,aes(x=mois,y=sumduree))+facet_grid(annee~.)+
+ ylab(get("msg",envir_stacomi)$BilanFonctionnementDF.6[1])+
+ xlab(get("msg",envir_stacomi)$BilanFonctionnementDC.3)+
ggtitle(main)+
- geom_bar(stat='identity',aes(fill=fonctionnement))+
- scale_fill_manual(values = c("#E41A1C","#4DAF4A"))
+ geom_bar(stat='identity',aes(fill=per_etat_fonctionnement))+
+ scale_fill_manual(get("msg",envir_stacomi)$BilanFonctionnementDF.6[3],values = c("#E41A1C","#4DAF4A"))
if (plot.type=="1")
print(g)
@@ -393,9 +395,9 @@
g<-ggplot(tpp)+
geom_rect(aes(xmin=xmin,xmax=xmax,ymin=Hdeb,ymax=Hfin,col=factor(per_tar_code),fill=factor(per_tar_code)),alpha=0.5)+
scale_fill_manual("type",values=c("1"="#40CA2C","2"="#C8B22D","3"="#AB3B26","4"="#B46BED","5"="#B8B8B8"),
- labels = get("msg",envir=envir_stacomi)$BilanFonctionnementDF.11)+
- scale_colour_manual("type",values=c("1"="#40CA2C","2"="#C8B22D","3"="#AB3B26","4"="#B46BED","5"="#B8B8B8"),
- labels = get("msg",envir=envir_stacomi)$BilanFonctionnementDF.11)+
+ labels = get("msg",envir=envir_stacomi)$BilanFonctionnementDF.11)+
+ scale_colour_manual("type",values=c("1"="#40CA2C","2"="#C8B22D","3"="#AB3B26","4"="#B46BED","5"="#B8B8B8"),
+ labels = get("msg",envir=envir_stacomi)$BilanFonctionnementDF.11)+
ylab("Heure")+theme(
plot.background = element_rect(fill ="black"),
panel.background = element_rect(fill="black"),
@@ -406,8 +408,8 @@
line = element_line(colour = "grey50"),
legend.key=element_rect(fill="black",colour="black"),
axis.text=element_text(colour="white")
- )
-
+ )
+
print(g)
}
Modified: pkg/stacomir/data/bMM_Arzal.rda
===================================================================
(Binary files differ)
Modified: pkg/stacomir/data/bM_Arzal.rda
===================================================================
(Binary files differ)
Modified: pkg/stacomir/data/bfDC.rda
===================================================================
(Binary files differ)
Modified: pkg/stacomir/data/bfDF.rda
===================================================================
(Binary files differ)
Modified: pkg/stacomir/data/bilanFonctionnementDC.rda
===================================================================
(Binary files differ)
Modified: pkg/stacomir/data/bilanFonctionnementDC_bM.rda
===================================================================
(Binary files differ)
Modified: pkg/stacomir/data/bilanFonctionnementDF_bM.rda
===================================================================
(Binary files differ)
Modified: pkg/stacomir/data/bilanOperation.rda
===================================================================
(Binary files differ)
Modified: pkg/stacomir/data/bilanOperation_bM.rda
===================================================================
(Binary files differ)
More information about the Stacomir-commits
mailing list