Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

création d'un jeu de donnée ANTARES : une étude simple : le thermique : 5. Soit rajouter certaines filières en créant des groupes en mustRun (par exemple Nuclear) et pour les autres filières on rajoutera les groupes mais pas en mustRun. #73

Open
jalazawa opened this issue Feb 22, 2018 · 0 comments
Assignees

Comments

@jalazawa
Copy link
Member

  1. Soit rajouter certaines filières en créant des groupes en mustRun (par exemple Nuclear) et pour les autres filières on rajoutera les groupes mais pas en mustRun.

Avec ces données

library(antaDraft)
perso_data_type<-"D:\\Users\\jalazawa\\Documents\\2_ANTARES\\Dev\\packages\\transparency\\data_20180104\\B-PRODUCTION\\B01-Production_réalisée_par_filière\\2016"

perso_data_type_capa2016<-"D:\\Users\\jalazawa\\Documents\\2_ANTARES\\Dev\\packages\\transparency\\data_20180104\\B-PRODUCTION\\B06-Capacité_installée_par_filière\\2016"

global_options <- getOption("global_options")


res2016<-read_prod_type(
 production_dir =perso_data_type,
 capacity_dir = perso_data_type_capa2016,
 production_file =global_options$thermal_production_per_country
)

resValid<-augment_validation(res2016)
resValidAgg<-agg_data(resValid)
resValidAggValid<-augment_validation(resValidAgg)
resValidAggValidCorrect<-data_correct_with_rules(resValidAggValid)

Pour chaque pays, on peut adapter la stratégie. On prend ici l'exemple de la Belgique.

Les filières de la Belgique

unique(resValidAggValidCorrect[
+   resValidAggValidCorrect$country=="BELGIUM", ]$production_type )
[1] "Fossil Gas"       "Fossil Hard coal" "Fossil Oil"       "Nuclear"         
[5] "Other"

L'utilisateur pourra décider d'utiliser la stratégie 1, cf #69, uniquement pour les filières "Nuclear" et "Other" pour la Belgique.

L'utilisateur pourra utiliser la stratégie 3, cf #71, uniquement pour les groupes dans les filières
"Fossil Gas", "Fossil Hard coal" et "Fossil Oil" .

Donc pour les groupes ci-dessous, on utilisera la stratégie 3

> resSubset<-subset(prod_by_group ,country=="BELGIUM" & production_type %in% c("Fossil Gas" , "Fossil Hard coal", "Fossil Oil"))
> unique(resSubset$production_type)
[1] "Fossil Gas"       "Fossil Hard coal" "Fossil Oil"      
> unique(resSubset$group_name)
 [1] "Amercoeur 1 R GT"            "Amercoeur 1 R ST"           
 [3] "DROGENBOS GT1"               "DROGENBOS GT2"              
 [5] "DROGENBOS ST"                "HERDERSBRUG GT1"            
 [7] "HERDERSBRUG GT2"             "HERDERSBRUG ST"             
 [9] "INESCO WKK"                  "Marcinelle Energie (Carsid)"
[11] "RINGVAART STEG"              "SAINT-GHISLAIN STEG"        
[13] "Scheldelaan Exxonmobil"      "T-power Beringen"           
[15] "Zandvliet Power"             "Zelzate 2 Knippegroen"      
[17] "LANGERLO 1"                  "LANGERLO 2"                 
[19] NA

bien sur il faut utiliser les données groupes comme ici

library(antaDraft)
perso_data_prod2016<-"D:\\Users\\jalazawa\\Documents\\2_ANTARES\\Dev\\packages\\transparency\\data_20180104\\B-PRODUCTION\\B02-Production_réalisée_par_groupe\\2016"

global_options <- getOption("global_options")

prod_by_group <- read_prod_group(production_dir = perso_data_prod2016,
                                 production_file = global_options$thermal_production_per_country)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Development

No branches or pull requests

2 participants