Skip to content
GitLab
Commit bc0d22b5 authored by Heraut Louis's avatar Heraut Louis
Browse files

Map

parent 02c8aecf
master
No related merge requests found
Expand all Hide whitespace changes
Inline Side-by-side
Showing
with 549 additions and 356 deletions
+549 -356
plotting/layout.R
+ 39
− 32
View file @ bc0d22b5
...@@ -14,7 +14,7 @@ library(RColorBrewer) ...@@ -14,7 +14,7 @@ library(RColorBrewer)
source('plotting/panel.R', encoding='latin1') source('plotting/panel.R', encoding='latin1')
panels_layout = function (df_data, df_meta, layout_matrix, figdir='', filedir_opt='', filename_opt='', variable='', df_trend=NULL, p_threshold=0.1, unit2day=365.25, type='', trend_period=NULL, mean_period=NULL, axis_xlim=NULL, missRect=FALSE, time_header=NULL, info_header=TRUE, time_ratio=2, var_ratio=3, shpdir=NULL, fr_shpname=NULL, rv_shpname=NULL, computer_data_path=NULL) { panels_layout = function (df_data, df_meta, layout_matrix, figdir='', filedir_opt='', filename_opt='', variable='', df_trend=NULL, p_threshold=0.1, unit2day=365.25, type='', trend_period=NULL, mean_period=NULL, axis_xlim=NULL, missRect=FALSE, time_header=NULL, info_header=TRUE, time_ratio=2, var_ratio=3, fr_shpdir=NULL, fr_shpname=NULL, bs_shpdir=NULL, bs_shpname=NULL, rv_shpdir=NULL, rv_shpname=NULL, computer_data_path=NULL) {
outfile = "Panels" outfile = "Panels"
if (filename_opt != '') { if (filename_opt != '') {
...@@ -343,49 +343,56 @@ panels_layout = function (df_data, df_meta, layout_matrix, figdir='', filedir_op ...@@ -343,49 +343,56 @@ panels_layout = function (df_data, df_meta, layout_matrix, figdir='', filedir_op
} }
# By # # By
slice = 12 # slice = 12
nMat = as.integer(nCode/slice) + 1 # nMat = as.integer(nCode/slice) + 1
sublist_df2plot = list_df2plot # sublist_df2plot = list_df2plot
for (i in 1:nMat) { # for (i in 1:nMat) {
subdf_meta = df_meta[(slice*(i-1)+1):(slice*i),] # subdf_meta = df_meta[(slice*(i-1)+1):(slice*i),]
subdf_meta = subdf_meta[!is.na(subdf_meta$code),] # subdf_meta = subdf_meta[!is.na(subdf_meta$code),]
subCode = subdf_meta$code # subCode = subdf_meta$code
for (j in 1:nbp) { # for (j in 1:nbp) {
df_datatmp = list_df2plot[[j]]$data # df_datatmp = list_df2plot[[j]]$data
df_trendtmp = list_df2plot[[j]]$trend # df_trendtmp = list_df2plot[[j]]$trend
subdf_data = df_datatmp[(df_datatmp$code %in% subCode),] # subdf_data = df_datatmp[(df_datatmp$code %in% subCode),]
subdf_trend = df_trendtmp[(df_trendtmp$code %in% subCode),] # subdf_trend = df_trendtmp[(df_trendtmp$code %in% subCode),]
sublist_df2plot[[j]]$data = subdf_data # sublist_df2plot[[j]]$data = subdf_data
sublist_df2plot[[j]]$trend = subdf_trend # sublist_df2plot[[j]]$trend = subdf_trend
} # }
mat = matrice_panel(sublist_df2plot, # mat = matrice_panel(sublist_df2plot,
subdf_meta, # subdf_meta,
trend_period=trend_period) # trend_period=trend_period)
# Saving matrix plot # Saving matrix plot
ggsave(plot=mat, # ggsave(plot=mat,
path=outdirTmp, # path=outdirTmp,
filename=paste('matrix_', i, '.pdf', sep=''), # filename=paste('matrix_', i, '.pdf', sep=''),
width=29.7, height=21, units='cm', dpi=100) # width=29.7, height=21, units='cm', dpi=100)
} # }
map = map_panel(computer_data_path=computer_data_path,
shpdir=shpdir,
fr_shpname=fr_shpname,
rv_shpname=rv_shpname)
matrice_panel(list_df2plot, df_meta, trend_period,
slice=12, outdirTmp=outdirTmp)
map_panel(list_df2plot,
df_meta,
computer_data_path=computer_data_path,
fr_shpdir=fr_shpdir,
fr_shpname=fr_shpname,
bs_shpdir=bs_shpdir,
bs_shpname=bs_shpname,
rv_shpdir=rv_shpdir,
rv_shpname=rv_shpname,
outdirTmp=outdirTmp)
# PDF combine # PDF combine
pdf_combine(input=file.path(outdirTmp, list.files(outdirTmp)), pdf_combine(input=file.path(outdirTmp, list.files(outdirTmp)),
output=file.path(outdir, outfile)) output=file.path(outdir, outfile))
......
plotting/panel.R
+ 474
− 299
View file @ bc0d22b5
This diff is collapsed.
script.R
+ 36
− 25
View file @ bc0d22b5
...@@ -74,8 +74,13 @@ p_thresold = 0.1 #c(0.01, 0.05, 0.1) ...@@ -74,8 +74,13 @@ p_thresold = 0.1 #c(0.01, 0.05, 0.1)
### MAP ### ### MAP ###
shpdir = 'map' fr_shpdir = 'map/france'
fr_shpname = 'gadm36_FRA_0.shp' fr_shpname = 'gadm36_FRA_0.shp'
bs_shpdir = 'map/bassin'
bs_shpname = 'BassinHydrographique.shp'
rv_shpdir = 'map/river'
rv_shpname = 'CoursEau_FXX.shp' rv_shpname = 'CoursEau_FXX.shp'
...@@ -229,30 +234,36 @@ res_VCN10trend = get_VCN10trend(df_data, df_meta, ...@@ -229,30 +234,36 @@ res_VCN10trend = get_VCN10trend(df_data, df_meta,
# figdir=figdir, # figdir=figdir,
# filename_opt='time') # filename_opt='time')
# panels_layout(list(res_QAtrend$data, res_QMNAtrend$data, panels_layout(list(res_QAtrend$data, res_QMNAtrend$data,
# res_VCN10trend$data), res_VCN10trend$data),
# layout_matrix=c(1, 2, 3), layout_matrix=c(1, 2, 3),
# df_meta=df_meta, df_meta=df_meta,
# df_trend=list(res_QAtrend$trend, res_QMNAtrend$trend, df_trend=list(res_QAtrend$trend, res_QMNAtrend$trend,
# res_VCN10trend$trend), res_VCN10trend$trend),
# type=list(bquote(Q[A]), bquote(Q[MNA]), bquote(V[CN10])), type=list(bquote(Q[A]), bquote(Q[MNA]), bquote(V[CN10])),
# missRect=list(TRUE, TRUE, TRUE), missRect=list(TRUE, TRUE, TRUE),
# trend_period=trend_period, trend_period=trend_period,
# mean_period=mean_period, mean_period=mean_period,
# info_header=TRUE, info_header=TRUE,
# time_header=df_data, time_header=df_data,
# time_ratio=2, time_ratio=2,
# var_ratio=3, var_ratio=3,
# computer_data_path=computer_data_path, computer_data_path=computer_data_path,
# shpdir=shpdir, fr_shpdir=fr_shpdir,
# fr_shpname=fr_shpname, fr_shpname=fr_shpname,
# rv_shpname=rv_shpname, bs_shpdir=bs_shpdir,
# figdir=figdir, bs_shpname=bs_shpname,
# filename_opt='') rv_shpdir=rv_shpdir,
rv_shpname=rv_shpname,
figdir=figdir,
filename_opt='')
map_panel(computer_data_path, shpdir, fr_shpname, rv_shpname)
# map_panel(computer_data_path,
# fr_shpdir, fr_shpname,
# bs_shpdir, bs_shpname,
# rv_shpdir, rv_shpname)
### /!\ Removed 185 row(s) containing missing values (geom_path) -> remove NA ### ### /!\ Removed 185 row(s) containing missing values (geom_path) -> remove NA ###
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment