Figure 1 - Évolution des dépenses de R&D déclarées dans l’enquête et au titre du CIR, créance associée et e… - ENTFRA19_D1

Données - INSEE

Évolution des dépenses de R&D déclarées dans l’enquête et au titre du CIR, créance associée et effort de recherche des entreprises

Code
d1 |>
  filter(!is.na(valeur), !is.na(annee), !total100) |>
  ggplot(aes(x = annee, y = valeur, color = cle, group = cle)) +
  geom_line(linewidth = 1.1) +
  geom_point(size = 1.4) +
  scale_color_brewer(palette = "Dark2", name = NULL, labels = scales::label_wrap(45)) +
  theme_pub() +
  labs(x = NULL, y = "",
       title = str_wrap("Évolution des dépenses de R&D déclarées dans l’enquête et au titre du CIR, créance associée et effort de recherche des entreprises", 75)) +
  guides(color = guide_legend(ncol = 2))

Évolution du nombre de sociétés dans l’enquête R&D et demandant le CIR et du taux de recours au CIR depuis 2003

Code
d2 |>
  filter(!is.na(valeur), !is.na(annee), !total100) |>
  ggplot(aes(x = annee, y = valeur, color = cle, group = cle)) +
  geom_line(linewidth = 1.1) +
  geom_point(size = 1.4) +
  scale_color_brewer(palette = "Dark2", name = NULL, labels = scales::label_wrap(45)) +
  theme_pub() +
  labs(x = NULL, y = "",
       title = str_wrap("Évolution du nombre de sociétés dans l’enquête R&D et demandant le CIR et du taux de recours au CIR depuis 2003", 75)) +
  guides(color = guide_legend(ncol = 2))

Caractéristiques des sociétés réalisant des travaux de R&D en 2014 d’après l’enquête selon qu’elles déclarent ou non des dépenses éligibles CIR

Code
d3 |>
  filter(!is.na(valeur), !total100) |>
  mutate(lab = fct_inorder(libelle), serie = fct_inorder(serie)) |>
  ggplot(aes(x = valeur, y = fct_rev(lab), fill = serie)) +
  geom_col(position = position_dodge(width = 0.8), width = 0.75) +
  scale_y_discrete(labels = scales::label_wrap(40)) +
  scale_fill_brewer(palette = "Set2", name = NULL, labels = scales::label_wrap(30)) +
  theme_pub(10) +
  labs(x = "", y = NULL,
       title = str_wrap("Caractéristiques des sociétés réalisant des travaux de R&D en 2014 d'après l'enquête selon qu'elles déclarent ou non des dépenses éligibles CIR", 75)) +
  guides(fill = guide_legend(ncol = 2))

Comparaison des dépenses de R&D par poste sur un champ similaire dans les deux sources

Code
d4 |>
  filter(!is.na(valeur), !total100) |>
  mutate(lab = fct_inorder(libelle), serie = fct_inorder(serie)) |>
  ggplot(aes(x = valeur, y = fct_rev(lab), fill = serie)) +
  geom_col(position = position_dodge(width = 0.8), width = 0.75) +
  scale_y_discrete(labels = scales::label_wrap(40)) +
  scale_fill_brewer(palette = "Set2", name = NULL, labels = scales::label_wrap(30)) +
  theme_pub(10) +
  labs(x = "en millions d'euros", y = NULL,
       title = str_wrap("Comparaison des dépenses de R&D par poste sur un champ similaire dans les deux sources", 75)) +
  guides(fill = guide_legend(ncol = 2))