From: Benjamin Auder Date: Wed, 15 Feb 2017 15:23:26 +0000 (+0100) Subject: jupyter batch; lower font size on plots X-Git-Url: https://git.auder.net/%7B%7B%20asset%28%27mixstore/images/mini-custom.min.css?a=commitdiff_plain;h=4e95ec8f70fc0c8bc50649cdadb1f47e2bcce117;p=talweg.git jupyter batch; lower font size on plots --- diff --git a/R/plot.R b/R/plot.R index a7c9395..f551ef4 100644 --- a/R/plot.R +++ b/R/plot.R @@ -10,12 +10,12 @@ plotPredReal <- function(data, pred, index) { horizon = length(pred$getSerie(1)) - par(mar=c(4.7,5,1,1), cex.axis=2, cex.lab=2, lwd=2) + par(mar=c(4.7,5,1,1), cex.axis=1.5, cex.lab=1.5, lwd=3) measure = data$getSerie(pred$getIndexInData(index)+1)[1:horizon] yrange = range( pred$getSerie(index), measure ) - plot(measure, type="l", ylim=yrange, lwd=3, xlab="Temps (en heures)", ylab="PM10") + plot(measure, type="l", ylim=yrange, xlab="Temps (en heures)", ylab="PM10") par(new=TRUE) - plot(pred$getSerie(index), type="l", col="#0000FF", ylim=yrange, lwd=3, xlab="", ylab="") + plot(pred$getSerie(index), type="l", col="#0000FF", ylim=yrange, xlab="", ylab="") } #' @title Plot filaments @@ -51,7 +51,7 @@ plotFilaments <- function(data, index, limit=60) grays = gray.colors(20, 0.1, 0.9) #TODO: 20 == magic number colors = c( grays[ floor( 20.5 * distances[indices] / (1+max(distances[indices])) ) ], "#FF0000") - par(mar=c(4.7,5,1,1), cex.axis=2, cex.lab=2, lwd=2) + par(mar=c(4.7,5,1,1), cex.axis=1.5, cex.lab=1.5, lwd=2) for (i in seq_len(length(indices)+1)) { ind = ifelse(i<=length(indices), indices[i] - first_day + 1, index) @@ -76,8 +76,8 @@ plotSimils <- function(pred, index) weights = pred$getParams(index)$weights if (is.null(weights)) stop("plotSimils only works on 'Neighbors' forecasts") - par(mar=c(4.7,5,1,1)) - hist(pred$getParams(index)$weights, nclass=20, xlab="Weight", ylab="Frequency") + par(mar=c(4.7,5,1,1), cex.axis=1.5, cex.lab=1.5) + hist(pred$getParams(index)$weights, nclass=20, xlab="Poids", ylab="Effectif") } #' @title Plot error @@ -95,7 +95,7 @@ plotError <- function(err, cols=seq_along(err)) { if (!is.null(err$abs)) err = list(err) - par(mfrow=c(2,2), mar=c(4.7,5,1,1), cex.axis=2, cex.lab=2, lwd=2) + par(mfrow=c(2,2), mar=c(4.7,5,1,1), cex.axis=1.5, cex.lab=1.5, lwd=2) L = length(err) yrange = range( sapply(1:L, function(index) ( err[[index]]$abs$day ) ), na.rm=TRUE ) for (i in seq_len(L)) @@ -162,7 +162,7 @@ plotFbox <- function(data, filter=function(index) TRUE) series_matrix = series_matrix[,-nas_indices] series_fds = rainbow::fds(seq_len(nrow(series_matrix)), series_matrix) - par(mfrow=c(1,2), mar=c(4.7,5,1,1), cex.axis=2, cex.lab=2) + par(mfrow=c(1,2), mar=c(4.7,5,1,1), cex.axis=1.5, cex.lab=1.5) rainbow::fboxplot(series_fds, "functional", "hdr", xlab="Temps (heures)", ylab="PM10", plotlegend=FALSE, lwd=2) rainbow::fboxplot(series_fds, "bivariate", "hdr", plotlegend=FALSE) diff --git a/reports/run.sh b/reports/run.sh new file mode 100644 index 0000000..a6b31ce --- /dev/null +++ b/reports/run.sh @@ -0,0 +1,3 @@ +#!/bin/sh + +jupyter-nbconvert --ExecutePreprocessor.timeout=1800 --to notebook --execute report_2017-03-01.ipynb