| source | dataset | .html | .RData |
|---|---|---|---|
| insee | CNA-2014-CPEB | 2024-10-29 | 2024-11-05 |
| insee | CNA-2014-PIB | 2024-10-29 | 2024-11-05 |
Comptes de production et d’exploitation par branche
Data - Insee
Info
Données sur la macroéconomie en France
| source | dataset | .html | .RData |
|---|---|---|---|
| bdf | CFT | 2024-09-30 | 2024-07-01 |
| insee | CNA-2014-CONSO-MEN | 2024-11-05 | 2024-11-05 |
| insee | CNA-2014-CONSO-SI | 2024-11-05 | 2024-11-05 |
| insee | CNA-2014-CSI | 2024-10-29 | 2024-11-05 |
| insee | CNA-2014-FBCF-BRANCHE | 2024-10-29 | 2024-11-05 |
| insee | CNA-2014-FBCF-SI | 2024-06-07 | 2024-11-05 |
| insee | CNA-2014-PIB | 2024-10-29 | 2024-11-05 |
| insee | CNA-2014-RDB | 2024-10-29 | 2024-11-05 |
| insee | CNT-2014-CB | 2024-10-29 | 2024-11-05 |
| insee | CNT-2014-CSI | 2024-10-29 | 2024-11-05 |
| insee | CNT-2014-OPERATIONS | 2024-10-29 | 2024-11-05 |
| insee | CNT-2014-PIB-EQB-RF | 2024-10-29 | 2024-11-05 |
| insee | CONSO-MENAGES-2014 | 2024-10-29 | 2024-11-05 |
| insee | conso-mensuelle | 2024-06-07 | 2023-07-04 |
| insee | ICA-2015-IND-CONS | 2024-10-29 | 2024-11-05 |
| insee | t_1101 | 2024-10-29 | 2022-01-02 |
| insee | t_1102 | 2024-10-29 | 2020-10-30 |
| insee | t_1105 | 2024-10-29 | 2020-10-30 |
LAST_UPDATE
Code
`CNA-2014-CPEB` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(desc(LAST_UPDATE)) %>%
print_table_conditional()| LAST_UPDATE | Nobs |
|---|---|
| 2023-05-31 | 83590 |
| 2022-06-14 | 32257 |
LAST_COMPILE
| LAST_COMPILE |
|---|
| 2024-11-05 |
Last
Code
`CNA-2014-CPEB` %>%
group_by(TIME_PERIOD) %>%
summarise(Nobs = n()) %>%
arrange(desc(TIME_PERIOD)) %>%
head(1) %>%
print_table_conditional()| TIME_PERIOD | Nobs |
|---|---|
| 2022 | 831 |
CNA_ACTIVITE
Code
`CNA-2014-CPEB` %>%
left_join(CNA_ACTIVITE, by = "CNA_ACTIVITE") %>%
group_by(CNA_ACTIVITE, Cna_activite) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}INDICATEUR
Code
`CNA-2014-CPEB` %>%
group_by(INDICATEUR) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| INDICATEUR | Nobs |
|---|---|
| CNA_CPEB | 115847 |
OPERATION
Code
`CNA-2014-CPEB` %>%
left_join(OPERATION, by = "OPERATION") %>%
group_by(OPERATION, Operation) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}NATURE
Code
`CNA-2014-CPEB` %>%
left_join(NATURE, by = "NATURE") %>%
group_by(NATURE, Nature) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| NATURE | Nature | Nobs |
|---|---|---|
| VALEUR_ABSOLUE | Valeur absolue | 93750 |
| INDICE | Indice | 22097 |
TITLE_FR
Code
`CNA-2014-CPEB` %>%
group_by(IDBANK, TITLE_FR) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}UNIT_MEASURE
Code
`CNA-2014-CPEB` %>%
group_by(UNIT_MEASURE) %>%
summarise(Nobs = n()) %>%
{if (is_html_output()) print_table(.) else .}| UNIT_MEASURE | Nobs |
|---|---|
| EUR2014 | 22007 |
| EUROS_COURANTS | 71743 |
| SO | 22097 |
Excédent Brut d’Exploitation, Revenu Mixte Brut
Deux + Somme
Code
`CNA-2014-CPEB` %>%
left_join(OPERATION, by = "OPERATION") %>%
filter(CNA_ACTIVITE == "NNTOTAL",
OPERATION %in% c("B3G", "B2G", "B2GEB3G")) %>%
year_to_date() %>%
select(date, OPERATION, Operation, OBS_VALUE, UNIT_MEASURE) %>%
ggplot + geom_line(aes(x = date, y = OBS_VALUE/1000, color = Operation)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.9),
legend.title = element_blank()) +
scale_y_continuous(breaks = seq(0, 2000, 100),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Deux
Code
`CNA-2014-CPEB` %>%
left_join(OPERATION, by = "OPERATION") %>%
filter(CNA_ACTIVITE == "NNTOTAL",
OPERATION %in% c("B3G", "B2G")) %>%
year_to_date() %>%
select(date, OPERATION, Operation, OBS_VALUE, UNIT_MEASURE) %>%
ggplot + geom_line(aes(x = date, y = OBS_VALUE/1000, color = Operation)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.25, 0.9),
legend.title = element_blank()) +
scale_y_continuous(breaks = seq(0, 2000, 100),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Rémunération des Salariés
Code
`CNA-2014-CPEB` %>%
left_join(OPERATION, by = "OPERATION") %>%
filter(CNA_ACTIVITE == "NNTOTAL",
OPERATION %in% c("D1", "D11", "D12")) %>%
year_to_date() %>%
select(date, OPERATION, Operation, OBS_VALUE, UNIT_MEASURE) %>%
ggplot + geom_line(aes(x = date, y = OBS_VALUE/1000, color = Operation)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.9),
legend.title = element_blank()) +
scale_y_continuous(breaks = seq(0, 2000, 100),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Production
Code
`CNA-2014-CPEB` %>%
left_join(OPERATION, by = "OPERATION") %>%
filter(CNA_ACTIVITE == "NNTOTAL",
OPERATION %in% c("P1", "P11", "P12"),
NATURE == "VALEUR_ABSOLUE",
UNIT_MEASURE == "EUROS_COURANTS") %>%
year_to_date() %>%
select(date, OPERATION, Operation, OBS_VALUE, UNIT_MEASURE) %>%
ggplot + geom_line(aes(x = date, y = OBS_VALUE/1000, color = Operation)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.9),
legend.title = element_blank()) +
scale_y_continuous(breaks = seq(0, 7000, 500),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))