| Title: | AQLT Toolkit |
|---|---|
| Description: | Boîte à outils de fonctions, surtout autour des séries temporelles. |
| Authors: | Alain Quartier-la-Tente [aut, cre] (ORCID: <https://orcid.org/0000-0001-7890-3857>) |
| Maintainer: | Alain Quartier-la-Tente <[email protected]> |
| License: | GPL-2 |
| Version: | 0.1.0 |
| Built: | 2026-05-24 08:58:57 UTC |
| Source: | https://github.com/AQLT/AQLTools |
Fonction qui permet d'exporter des données (un vecteur ou un data.frame par exemple)
vers le presse-papier (pour ensuite les coller dans un tableur par exemple).
ctrl_c(data, col.names = TRUE, row.names = FALSE, memory = 2^5, dec = ",", ...)ctrl_c(data, col.names = TRUE, row.names = FALSE, memory = 2^5, dec = ",", ...)
data |
les données à exporter. |
col.names |
Booléen indiquant si l'on souhaite exporter les noms des colonnes (par défaut
|
row.names |
Booléen indiquant si l'on souhaite exporter les noms des lignes (par défaut
|
memory |
entier indiquant la taille maximale de l'objet à copier dans le presse-papier. Par défaut la limite est de 32 Kb (=2^5 Kb). |
dec |
le caractère utilisé comme séparateur décimal dans le tableur où l'on souhaite exporter les données. Par défaut la virgule est utilisée : utiliser le point pour si l'on utilise tableur non francophone. |
... |
autres paramètres de |
Il est possible qu'il y ait une ligne en trop si la fonction est utilisée sous Mac Os.
ctrl_v pour importer depuis le presse-papier.
ctrl_c(c("line 1", "line 2 \n and line 3"))ctrl_c(c("line 1", "line 2 \n and line 3"))
Fonction qui permet d'importer sous R des données depuis le presse-papiers.
Ces données peuvent par exemple venir d'un tableur (Excel, Calc, etc.) :
copier les données du tableur et ensuite lancer sous R la fonction ctr_v()
ctrl_v(header = TRUE, row.names, stringsAsFactors = FALSE, dec = ",", ...)ctrl_v(header = TRUE, row.names, stringsAsFactors = FALSE, dec = ",", ...)
header |
booléen indiquant si la première ligne doit être
interprétée comme les noms des colonnes ( |
row.names |
un vecteur contenant les noms des lignes. Cela peut être un vecteur contenant les noms des lignes,
un entier donnant le numéro de la colonne contenant les noms des lignes ou une chaîne de caractères donnant
le nom de la colonne qui contient les noms des lignes. Lorsque |
stringsAsFactors |
booléen indiquant si l'on souhaite que les chaînes de
charactères soient transformées en facteur dans la table de sortie ( |
dec |
le caractère utilisé comme séparateur décimal dans les données du presse-papiers. Par défaut la virgule est utilisée : utiliser le point pour si les données proviennent d'un tableur non francophone. Paramètre utilisé uniquement si les données du presse-papier contiennent plusieurs colonnes. |
... |
autres paramètres de |
Un vecteur de caractères s'il n'y a qu'une colonne, sinon un data.frame.
ctrl_c pour exporter vers le presse-papier.
# Après avec copié des données depuis un tableur ctrl_v()# Après avec copié des données depuis un tableur ctrl_v()
Fonctions qui permettent de convertir des tableaux en ts.
ymd_ts(x, col_date = 1, sep_date, frequence = NULL) dmy_ts(x, col_date = 1, sep_date, frequence = NULL)ymd_ts(x, col_date = 1, sep_date, frequence = NULL) dmy_ts(x, col_date = 1, sep_date, frequence = NULL)
x |
table contenant au moins deux colonnes dont une avec des dates. |
col_date |
numéro ou nom de la colonne contenant les dates (par défaut c'est la première colonne). |
sep_date |
caractère utilisé pour séparé le jour, le mois et l'année. Détection automatique par défaut. |
frequence |
fréquence de l'objet |
Les fonctions ymd_ts() et dmy_ts() permettent de convertir des tableaux (par exemple
des data.frame) en ts. Pour cela il faut dans le tableau d'entrée
une colonne contenant les dates qui est au format YYYY-MM-JJ (fonction ymd_ts()) ou au format JJ-MM-YYYY
(fonction dmy_ts()). Le séparateur utilisé entre le jour, le mois et l'année peut être modifié par le
paramètre sep_date.
Un ts.
x <- data.frame(dates=paste(rep(2000:2002, each=4), rep(c("01", "04", "07", "10"),2) ,"01", sep = "-"), donnees = 1:12, stringsAsFactors = FALSE) ymd_ts(x)x <- data.frame(dates=paste(rep(2000:2002, each=4), rep(c("01", "04", "07", "10"),2) ,"01", sep = "-"), donnees = 1:12, stringsAsFactors = FALSE) ymd_ts(x)
Fonction qui permet de calculer un indicateur synthétique par une analyse factorielle statique.
facteurStatique( data, date_deb, date_fin, normalise = FALSE, retard_contrib = -1 )facteurStatique( data, date_deb, date_fin, normalise = FALSE, retard_contrib = -1 )
data |
un objet de type |
date_deb |
date de début d'estimation. |
date_fin |
date de fin d'estimation. |
normalise |
booléen indiquant s'il faut renormaliser les données à une moyenne 100 et écart-type 10. |
retard_contrib |
nombre de retards à prendre en compte pour le calcul des contribs. |
Un objet de même type que celui en entrée.
series_cvs <- c(`Capacité d'épargne actuelle` = "000857195", `Capacité d'épargne future` = "000857198", `Évolution future du chômage` = "000857190", `Niveau de vie futur en France` = "000857189", `Niveau de vie passé en France` = "000857188", `Opportunité de faire des achats importants`= "000857193", `Situation financière future` = "000857197", `Situation financière passée` = "000857196") data <- lectureBDM(series_cvs) facteurStatique(data)series_cvs <- c(`Capacité d'épargne actuelle` = "000857195", `Capacité d'épargne future` = "000857198", `Évolution future du chômage` = "000857190", `Niveau de vie futur en France` = "000857189", `Niveau de vie passé en France` = "000857188", `Opportunité de faire des achats importants`= "000857193", `Situation financière future` = "000857197", `Situation financière passée` = "000857196") data <- lectureBDM(series_cvs) facteurStatique(data)
Fonction qui permet de faire des graphiques de séries temporelles à partir d'un objet de type ts.
graph_ts( data, titre = NULL, sous_titre = NULL, legende = NULL, afficheVolatilite = FALSE, cex = 0.6, diviserParPeriode = FALSE, x_lab = NULL, x_lab_month = FALSE, y_lab = NULL, outDec = ",", n_xlabel = length(time(data))%/%24, n_ylabel = 12, prec_plot, size = 0.7 )graph_ts( data, titre = NULL, sous_titre = NULL, legende = NULL, afficheVolatilite = FALSE, cex = 0.6, diviserParPeriode = FALSE, x_lab = NULL, x_lab_month = FALSE, y_lab = NULL, outDec = ",", n_xlabel = length(time(data))%/%24, n_ylabel = 12, prec_plot, size = 0.7 )
data |
un objet de type |
titre |
titre du graphique (par défaut pas de titre). |
sous_titre |
sous-titre du graphique (par défaut pas de sous-titre). |
legende |
légende du graphique. Par défaut le nom des variables dans l'objet |
afficheVolatilite |
booléen indiquant si l'on souhaite afficher la volatilité des séries graphées (c'est-à-dire l'écart-type
de leur variation). Par défaut |
cex |
nombre indiquant le montant par lequel le texte associé à la volatilité doit être mis à l'échelle par rapport à la
valeur par défaut. Par défaut |
diviserParPeriode |
diviser le graphique en fonction de la période : il y aura en sortie autant de graphiques que de périodes dans la série de départ. |
x_lab |
titre axe des abscisses (par défaut aucun titre). |
x_lab_month |
boolean indiquant si on veut que les x_labels soit formatés avec le moois |
y_lab |
titre axe des ordonnées (par défaut "Date"). |
outDec |
séparateur décimal utilisé pour dans la légende des axes (par défaut la virgule). |
n_xlabel |
nombre de labels pour l'axe des abscisses (par défaut une année sur deux). |
n_ylabel |
nombre de labels pour l'axe des ordonnées (par défaut 12). |
prec_plot |
graphique à ajouter avant le geom_line |
size |
taille des points. |
Un graphique ggplot.
data <- lectureBDM("001585942","001585980") legende <- c("Carnets de commandes globaux","Carnets de commandes étrangers") titre <- "Soldes d'opinion sur les carnets de commandes dans l'industrie manufacturière" graph_ts(data, titre = titre, legende = legende, afficheVolatilite = TRUE) graph_ts(data, titre = titre, legende = legende, diviserParPeriode = TRUE)data <- lectureBDM("001585942","001585980") legende <- c("Carnets de commandes globaux","Carnets de commandes étrangers") titre <- "Soldes d'opinion sur les carnets de commandes dans l'industrie manufacturière" graph_ts(data, titre = titre, legende = legende, afficheVolatilite = TRUE) graph_ts(data, titre = titre, legende = legende, diviserParPeriode = TRUE)
Fonctions qui permettent de faire des graphiques interactifs de séries temporelles à partir d'un objet de type ts.
hc_lines( data, titre = NULL, sous_titre = NULL, legende = NULL, affiche_legende = TRUE, x_lab = NULL, y_lab = NULL, outDec = ",", useHTML = FALSE, digits = 1 ) hc_stocks( data, titre = NULL, sous_titre = NULL, legende = NULL, affiche_legende = TRUE, x_lab = NULL, y_lab = NULL, outDec = ",", useHTML = FALSE, type = NULL, color = NULL, digits = 1 )hc_lines( data, titre = NULL, sous_titre = NULL, legende = NULL, affiche_legende = TRUE, x_lab = NULL, y_lab = NULL, outDec = ",", useHTML = FALSE, digits = 1 ) hc_stocks( data, titre = NULL, sous_titre = NULL, legende = NULL, affiche_legende = TRUE, x_lab = NULL, y_lab = NULL, outDec = ",", useHTML = FALSE, type = NULL, color = NULL, digits = 1 )
data |
un objet de type |
titre |
titre du graphique (par défaut pas de titre). |
sous_titre |
sous-titre du graphique (par défaut pas de sous-titre). |
legende |
légende du graphique. Par défaut le nom des variables dans l'objet |
affiche_legende |
booléen indiquant si l'on affiche la légende. |
x_lab |
titre axe des abscisses (par défaut aucun titre). |
y_lab |
titre axe des ordonnées (par défaut "Date"). |
outDec |
séparateur décimal utilisé pour dans la légende des axes (par défaut la virgule). |
useHTML |
Booléen indiquant si l'on veut utiliser du code HTML dans les titres. |
digits |
nombre de chiffres après la virgule. |
type |
vecteur contenant le type à utiliser pour les séries (par défaut |
color |
vecteur contenant les couleurs à utiliser (par défaut on garde les couleurs de highchart). |
Un graphique highcharter.
data <- lectureBDM("001585942","001585980") legende <- c("Carnets de commandes globaux","Carnets de commandes étrangers") titre <- "Soldes d'opinion sur les carnets de commandes dans l'industrie manufacturière" hc_lines(data, titre = titre, legende = legende) hc_stocks(data, titre = titre, legende = legende)data <- lectureBDM("001585942","001585980") legende <- c("Carnets de commandes globaux","Carnets de commandes étrangers") titre <- "Soldes d'opinion sur les carnets de commandes dans l'industrie manufacturière" hc_lines(data, titre = titre, legende = legende) hc_stocks(data, titre = titre, legende = legende)
Fonction qui permet d'importer des séries de la Banque de données macro-économiques (BDM) de l'Insee à partir de son idbank. L'idbank d'une série peut être trouvé sur le site de la bdm (https://www.bdm.insee.fr/bdm2/index). permet également l'utilisation de régressions quantiles.
lectureBDM(idbank, ...)lectureBDM(idbank, ...)
idbank |
un vecteur d'un ou plusieurs idbank à télécharger. |
... |
d'autres vecteurs d'un ou plusieurs idbank à télécharger. |
La fonction permet de télécharger des séries temporelles présentes la Banque de données macro-économiques (BDM) de l'Insee à partir de son idbank. Elle utilise pour cela le service web SDMX de l'Insee (voir http://www.bdm.insee.fr/bdm2/statique?page=sdmx pour plus d'informations). Elle utilise le package rsdmx pour la lecture des données et reshape2 pour la mise en forme. Les idbank en paramètre doivent correspondre à des séries qui ont la même périodicité. Si un des idbank en entrée n'est pas trouvé alors la fonction renvoit également un message d'avertissement.
Retourne un objet de type ts ou mts, en fonction du nombre d'idbank en entrée,
de la même fréquence que les séries en entrée.
# Pour télécharger l'IPI manufacturier CVS : 001654241 lectureBDM("001654241") # Pour télécharger les IPI dans l'industrie manufacturière et dans l'agroalimentaire : lectureBDM(c("001654241","001654289")) # ou bien : lectureBDM("001654241","001654289")# Pour télécharger l'IPI manufacturier CVS : 001654241 lectureBDM("001654241") # Pour télécharger les IPI dans l'industrie manufacturière et dans l'agroalimentaire : lectureBDM(c("001654241","001654289")) # ou bien : lectureBDM("001654241","001654289")
Fonctions qui permettent, pour une série temporelle, de calculer l'évolution par rapport à la
dernière période (i.e. : évolution mensuelle pour des séries mensuelles, évolution trimestrielle
pour des séries trimestrielles, etc. ; avec ev) ou le glissement annuel
(avec ga()) .
ev(x) ga(x)ev(x) ga(x)
x |
Un objet de même type que celui en entrée.
x <- ts(1:10, frequency = 4, start = c(1959, 2)) ev(x) ga(x)x <- ts(1:10, frequency = 4, start = c(1959, 2)) ev(x) ga(x)
Fonction qui permet d'exporter des données ts vers un fichier excel
en créant une colonne date qui sera au format date.
ts2xls(x, file, sheet = "Feuille 1", format = "dd/mm/yyyy")ts2xls(x, file, sheet = "Feuille 1", format = "dd/mm/yyyy")
x |
un objet de type |
file |
nom du fichier excel (avec extension .xls ou .xlsx) |
sheet |
nom de la feuille |
format |
format en sortie dans Excel |
Fonction qui permet de calculer la volatité d'une série temporelle (i.e. : l'écart-type de sa différence). Les valeurs manquantes ne sont pas prises en compte.
volatilite(x, lag = 1)volatilite(x, lag = 1)
x |
|
lag |
nombre de retards à utiliser pour le calcul de la différence (par défaut |
Un objet de même type que celui en entrée.
x <- ts(1:10, frequency = 4, start = c(1959, 2)) volatilite(x)x <- ts(1:10, frequency = 4, start = c(1959, 2)) volatilite(x)