Les moyens consacrés à la R&D par les entreprises - fr-esr-rd-moyens-entreprises

Données - SIES

Last data update: 11 oct. 2026, 21:44

Last compile: 11 oct. 2026, 21:47

Source : SIES, data.enseignementsup-recherche.gouv.fr. Dépenses, financements et personnels de R&D des entreprises implantées en France, de 2007 à 2023.

R&D des entreprises

valeur : milliers d’euros pour les dépenses et financements, équivalents temps plein pour les effectifs. Unité inférée de l’ordre de grandeur (DIRDE 2023 : 40,6 Md€) : à vérifier sur le portail.

Dépenses intérieures de R&D des entreprises (DIRDE)

`fr-esr-rd-moyens-entreprises` |>
  filter(code_indicateur == "dirde") |>
  ggplot(aes(x = date, y = valeur / 1e6)) +
  geom_line() + geom_point() + theme_minimal() + xlab("") + ylab("Milliards d'euros") +
  scale_y_continuous(limits = c(0, NA)) +
  scale_x_date(date_breaks = "2 years", labels = date_format("%Y"))

Personnels de R&D et chercheurs

`fr-esr-rd-moyens-entreprises` |>
  filter(code_indicateur %in% c("effrd_etp", "chercheur_etp")) |>
  ggplot(aes(x = date, y = valeur / 1e3, color = code_indicateur_lib)) +
  geom_line() + geom_point(size = 0.8) + theme_minimal() + xlab("") + ylab("Milliers d'ETP") +
  scale_y_continuous(limits = c(0, NA)) +
  scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
  theme(legend.position = "bottom", legend.title = element_blank())

Financement public de la R&D

`fr-esr-rd-moyens-entreprises` |>
  filter(code_indicateur %in% c("dirde", "r_financ_pub")) |>
  select(date, code_indicateur, valeur) |>
  pivot_wider(names_from = code_indicateur, values_from = valeur) |>
  ggplot(aes(x = date, y = r_financ_pub / dirde)) +
  geom_line() + geom_point() + theme_minimal() + xlab("") +
  ylab("Financement public / DIRDE") +
  scale_y_continuous(labels = percent_format(accuracy = 1), limits = c(0, NA)) +
  scale_x_date(date_breaks = "2 years", labels = date_format("%Y"))

Dépenses extérieures de R&D (DERD) par destinataire

`fr-esr-rd-moyens-entreprises` |>
  filter(str_starts(code_indicateur, "de_"), !code_indicateur %in% c("de_entrep", "de_etranger")) |>
  mutate(code_indicateur_lib = str_wrap(str_remove(code_indicateur_lib, "^DERD confiee (a|au) "), 35)) |>
  ggplot(aes(x = date, y = valeur / 1e6, fill = code_indicateur_lib)) +
  geom_area() + theme_minimal() + xlab("") + ylab("Milliards d'euros") +
  scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
  theme(legend.position = "bottom", legend.title = element_blank()) + guides(fill = guide_legend(nrow = 4))

Ressources en provenance de l’étranger

`fr-esr-rd-moyens-entreprises` |>
  filter(code_indicateur %in% c("r_etranger", "r_cee", "r_ent_etr", "r_org_etr")) |>
  mutate(code_indicateur_lib = str_wrap(code_indicateur_lib, 40)) |>
  ggplot(aes(x = date, y = valeur / 1e6, color = code_indicateur_lib)) +
  geom_line() + theme_minimal() + xlab("") + ylab("Milliards d'euros") +
  scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
  theme(legend.position = "bottom", legend.title = element_blank()) + guides(color = guide_legend(nrow = 4))