Décomposition du taux de marge des entreprises non financières - t_txmargeenf_val

Data - INSEE

Structure

Info

• Comptes trimestriels. html

• PIB et ses composantes. html

• Secteurs et ses composantes. html

variable

t_txmargeenf_val %>%
  group_by(variable) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional

variable	Nobs
taux_marge	308
variation_taux_marge	307
Cotisations sociales	191
Salaires réels	191
Autres éléments	103
Productivité	103
Ratio du prix de la VA et du prix de la conso	103

date

t_txmargeenf_val %>%
  group_by(date) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(date)) %>%
  print_table_conditional()

2021, Trimestre 1

t_txmargeenf_val %>%
  filter(date == as.Date("2021-01-01")) %>%
  select(-date) %>%
  print_table_conditional()

variable	value
taux_marge	41.6921181
variation_taux_marge	1.7423172
Productivité	0.1046758
Salaires réels	0.4061112
Cotisations sociales	0.0923867
Ratio du prix de la VA et du prix de la conso	-0.2943268
Autres éléments	1.4340342

Décomposition du taux de marge des entreprises non financières

t_txmargeenf_val %>%
  filter(variable == "taux_marge") %>%
  mutate(version = "Estimation INSEE, 28 Juillet 2021") %>%
  ggplot + geom_line(aes(x = date, y = value / 100)) +
  xlab("") + ylab("Taux de marge des entreprises non financières (%)") +
  theme_minimal() +
  scale_x_date(breaks = seq(1870, 2022, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 80, 5),
                     labels = scales::percent_format(accuracy = 1))