Business enterprise R&D personnel in high-tech sectors - NACE Rev. 2 - htec_sti_pers2
Data - Eurostat
Info
Last observation: Annual: 2024 (N = 164)
First observation: Annual: 2005 (N = 284)
Last data update: 23 jul 2026, 22:08. Last compile: 24 jul 2026, 01:54
Structure
R&D Researchers in High-Tech Manufacturing
France, Germany, Italy, Spain, Poland
Code
htec_sti_pers2 %>%
filter(geo %in% c("FR", "DE", "IT", "ES", "PL"),
nace_r2 == "C_HTC",
unit == "HC",
prof_pos == "RSE") %>%
year_to_date %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(2000, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("R&D researchers, high-tech manufacturing (head count)")
France: High-Tech vs. Low-Tech Manufacturing
Code
htec_sti_pers2 %>%
filter(geo == "FR",
nace_r2 %in% c("C_HTC", "C_HTC_M", "C_LTC", "C_LTC_M"),
unit == "HC",
prof_pos == "RSE") %>%
year_to_date %>%
ggplot + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(2000, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("R&D researchers (head count)")
Latest Year by Country
Code
latest_y <- htec_sti_pers2 %>%
filter(geo %in% c("FR", "DE", "IT", "ES", "PL", "NL", "BE", "SE"),
nace_r2 %in% c("C_HTC", "C"),
unit == "HC",
prof_pos == "RSE",
!is.na(values)) %>%
summarise(m = max(time)) %>%
pull(m)
htec_sti_pers2 %>%
filter(geo %in% c("FR", "DE", "IT", "ES", "PL", "NL", "BE", "SE"),
nace_r2 %in% c("C_HTC", "C"),
unit == "HC",
prof_pos == "RSE",
time == latest_y) %>%
select(Geo, Nace_r2, values) %>%
spread(Nace_r2, values) %>%
arrange(-`High-technology manufacturing`) %>%
print_table_conditional()| Geo | High-technology manufacturing | Manufacturing |
|---|---|---|
| France | 66357 | 135378 |
| Germany | 47147 | 252550 |
| Italy | 15529 | NA |
| Spain | 9238 | 27636 |
| Belgium | 7920 | NA |
| Poland | 5325 | 36575 |
| Netherlands | NA | NA |
| Sweden | NA | 46451 |
nace_r2
Code
htec_sti_pers2 %>%
group_by(nace_r2, Nace_r2) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional| nace_r2 | Nace_r2 | Nobs |
|---|---|---|
| TOTAL | Total - all NACE activities | 2969 |
| C | Manufacturing | 2154 |
| C_HTC | High-technology manufacturing | 2126 |
| G-N | Services of the business economy | 2116 |
| C_HTC_M | Medium high-technology manufacturing | 2071 |
| C_LTC | Low-technology manufacturing | 1953 |
| C_LTC_M | Medium low-technology manufacturing | 1852 |
unit
Code
htec_sti_pers2 %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional| unit | Unit | Nobs |
|---|---|---|
| FTE | Full-time equivalent (FTE) | 8170 |
| HC | Head count | 7071 |
prof_pos
Code
htec_sti_pers2 %>%
group_by(prof_pos, Prof_pos) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional| prof_pos | Prof_pos | Nobs |
|---|---|---|
| TOTAL | Total | 7700 |
| RSE | Researchers | 7541 |