Skip to content

Instantly share code, notes, and snippets.

View pachevalier's full-sized avatar

Paul-Antoine pachevalier

  • Paris
View GitHub Profile
View commerce.R
library(tidyverse)
# Source https://www.douane.gouv.fr/la-douane/opendata?f%5B0%5D=categorie_opendata_facet%3A459&recherche_opendata=&op=
# https://www.douane.gouv.fr/sites/default/files/2022-03/14/202201-stat-national-ce-import.zip
"data/stat-national-ce-import/Libelle_PAYS.txt" %>%
read_csv2()
"data/stat-national-ce-import/NATIONAL_NC8PAYSI.txt" %>%
read_csv2(
.,
View datadouanes.R
library(tidyverse)
# Source https://www.douane.gouv.fr/la-douane/opendata?f%5B0%5D=categorie_opendata_facet%3A459&recherche_opendata=&op=
# https://www.douane.gouv.fr/sites/default/files/2022-03/14/202201-stat-national-ce-import.zip
"data/stat-national-ce-import/Libelle_PAYS.txt" %>%
read_csv2()
"data/stat-national-ce-import/NATIONAL_NC8PAYSI.txt" %>%
read_csv2(
.,
View wikidata-egapro.R
library("tidyverse")
library("tricky")
library("httr")
library("jsonlite")
read_csv2("index-egalite-fh.csv") %>%
set_standard_names() %>%
glimpse()
read_csv2("index-egalite-fh.csv") %>%
set_standard_names() %>%
View gender_count.R
# This script is quick and dirty code. It is very preliminary and may be improved one day ;)
library("jsonlite")
library("tidyverse")
library("httr")
library("WikidataR")
paste0(
"https://www.wikidata.org/w/api.php?action=wbgetentities&",
"ids=Q6581097|Q6581072",
"&languages=fr&props=labels&format=json"
View transparence-remuneration-fonction-publique.md

Contexte

En application de la loi n°2019-828 du 6 août 2019 :

  • les ministères ;
  • les collectivités territoriales ;
  • les EPCI de plus de 80 000 habitants ;
  • et les établissements hospitaliers avec un budget de plus de 200 millions d'euros

doivent publient annuellement la somme des 10 plus grosses rémunérations brutes, le nombre de femmes et le nombre d'hommes concernés.

View tuto_avionic.Rmd
---
title: "Tuto Avionic"
output: html_notebook
---
```{r setup}
library("tidyverse")
source(file = "fonctions.R")
source(file = "contenus.R")
source(file = "variation_df.R")
View budget_cnil.R
library("tidyverse")
library("tricky")
library("hrbrthemes")
url <- "https://static.data.gouv.fr/resources/budget-de-la-cnil-1/20200706-112019/opencnil-budget-depuis-2000.csv"
read_csv2(file = url) %>%
filter(is.na(Année) == FALSE) %>%
pivot_longer(-Année, names_to = "year") %>%
rename(budget = Année) %>%
View Covid-19.R
library(yaml)
library(httr)
library(tidyverse)
library(magrittr)
library(lubridate)
library(ggthemes)
GET("https://raw.githubusercontent.com/opencovid19-fr/data/master/sante-publique-france/2020-03-04.yaml") %>%
content() %>%
yaml.load() %>%
View decp.md

Rapide exploration des données decp

Téléchargement des données

$ mkdir decp
$ cd decp
$ wget https://static.data.gouv.fr/resources/fichiers-consolides-des-donnees-essentielles-de-la-commande-publique/20200123-053915/decp.json

Nombre de marchés

View flexdashboard.Rmd
---
title: "Test"
output:
flexdashboard::flex_dashboard:
vertical_layout: scroll
---
Chiffres clés {data-icon="fa-tachometer" data-orientation="columns"}
=====================================