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

Code
t_txmargeenf_val %>%
  group_by(variable) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
variable Nobs
taux_marge 306
variation_taux_marge 305
Cotisations sociales 189
Salaires réels 189
Autres éléments 101
Productivité 101
Ratio du prix de la VA et du prix de la conso 101

date

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

2021, Trimestre 1

Code
t_txmargeenf_val %>%
  filter(date == as.Date("2021-01-01")) %>%
  select(-date) %>%
  print_table_conditional()
variable value
taux_marge 41.6643468
variation_taux_marge 1.7258292
Productivité 0.0984343
Salaires réels 0.4069685
Cotisations sociales 0.0914113
Ratio du prix de la VA et du prix de la conso -0.3061957
Autres éléments 1.4352108

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

Code
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))