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

Data - INSEE

Auteur

François Geerolf

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 307
variation_taux_marge 306
Cotisations sociales 190
Salaires réels 190
Autres éléments 102
Productivité 102
Ratio du prix de la VA et du prix de la conso 102

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.6663603
variation_taux_marge 1.7093802
Productivité 0.0862731
Salaires réels 0.4075771
Cotisations sociales 0.0882886
Ratio du prix de la VA et du prix de la conso -0.3064816
Autres éléments 1.4337230

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