¿Cómo de extendido está el Teletrabajo en los paises de Europeos?
Analizamos datos de Eurostat sobre la expansión del teletrabajo en los diferentes paises europeos. Finlandia, Luxemburgo, Paises Bajos y Alemania tienen más del 30% del total de los trabajadores del pais en alguna modalidad remota. ¡Sorprende Noruega!
1. Descarga de datos
Como siempre, comenzamos accediendo a los datos. En este caso, accedemos a la base de datos de Eurostat y nos descargamos el fichero.
library(tidyverse)
download.file("https://ec.europa.eu/eurostat/api/dissemination/sdmx/2.1/data/LFSA_EHOMP/?format=SDMX-CSV&compressed=false", "data.csv")
En un primer análisis, vamos a ver cual es el TOP 5 de paises en los que los empleados tienen algún tipo de modalidad remota.
df_european_data <- read_csv(file = 'data.csv',
col_types = cols(sex = col_character())) #Especificamos el tipo de la columna sexo
df_european_data_filtered <-df_european_data %>%
filter(freq == "A" & unit == "PC" & wstatus == "EMP" & sex == "T" & age == "Y20-64" & geo != "SE") %>%
select(geo, TIME_PERIOD, OBS_VALUE, frequenc) %>%
rename(remote_perc=OBS_VALUE,
country=geo)
df_european_data_filtered %>%
filter(frequenc == "NVR") %>%
mutate(remote_perc=if_else(frequenc == "NVR",
round(1-remote_perc/100, 3)*100,
round(remote_perc/100, 3)*100)) %>%
select(-frequenc) %>%
arrange(country, TIME_PERIOD) %>%
filter(TIME_PERIOD == "2020") %>%
slice_max(n=6, order_by=remote_perc) %>%
kable()
country | TIME_PERIOD | remote_perc |
---|---|---|
LU | 2020 | 47.8 |
NL | 2020 | 42.7 |
CH | 2020 | 41.5 |
FI | 2020 | 40.4 |
IS | 2020 | 39.8 |
DK | 2020 | 36.9 |
df_european_data_filtered_bar_plot <- df_european_data_filtered %>%
filter(frequenc == "NVR" & TIME_PERIOD =="2020") %>%
mutate(highlight = if_else(country == "EU27_2020","t","f"),
remote_perc = if_else(frequenc == "NVR",
round(1-remote_perc/100,3),
round(remote_perc/100,3))) %>%
arrange(remote_perc)
df_european_data_filtered_bar_plot %>%
ggplot(aes(country, remote_perc, fill=highlight)) +
geom_bar(stat="identity", position="dodge") +
geom_text(aes(label=paste0(remote_perc*100,"%")), size=2) +
coord_flip() +
scale_x_discrete(limits=df_european_data_filtered_bar_plot$country) +
scale_fill_manual(values=c( "t"="tomato", "f"="paleturquoise3" ),
guide=FALSE) +
scale_y_continuous(labels=scales::percent) +
labs(title="Porcentaje de empleados con alguna modalidad de teletrabajo por País",
caption = "Fuente: Eurostat")
¿Y los 10 que mayor incremento han tenido?
df_european_data_filtered %>%
filter(frequenc == "NVR") %>%
mutate( remote_perc = if_else(frequenc == "NVR",
round(1-remote_perc/100,3)*100,
round(remote_perc/100,3)*100)) %>%
select(-frequenc) %>%
arrange(country, TIME_PERIOD) %>%
group_by(country) %>%
mutate(delta = (remote_perc - lag(remote_perc))/lag(remote_perc)*100) %>%
ungroup() %>%
filter(TIME_PERIOD=="2020") %>%
slice_max( n=10,order_by=delta) %>%
kable()
country | TIME_PERIOD | remote_perc | delta |
---|---|---|---|
CY | 2020 | 7.4 | 196.00000 |
IT | 2020 | 13.7 | 191.48936 |
BG | 2020 | 3.0 | 172.72727 |
HU | 2020 | 11.0 | 139.13043 |
RO | 2020 | 3.2 | 128.57143 |
MT | 2020 | 26.0 | 122.22222 |
EL | 2020 | 10.4 | 100.00000 |
LT | 2020 | 8.4 | 86.66667 |
ES | 2020 | 15.2 | 80.95238 |
DE | 2020 | 21.1 | 63.56589 |
2. Perfil del Teletrabajo alrededor de Europa
(Normalmente vs En ocasiones vs Nunca)
Una forma visual de hacernos una idea de la adopción de las diferentes modalidades de teletrabajo en cada uno de los mercados europeos de un solo vistazo puede ser esta donut plot. Si bien el cerebro humano y la visión no está preparado con una elevada facilidad de comparar áreas, sí que nos permitirá ver muchos perfiles de paises y poder comprender la estructura de su mercado laboral en cuanto a la adopción del remote working.
list_countries <- c("AT","BE","CH","CY","CZ",
"DE","DK","ES","EU15","EU27_2020","FI",
"FR","IS","IT","LU","MK",
"NL","NO","PL","PT","SK")
ggplot(df_european_data_filtered %>%
filter(TIME_PERIOD=="2020" & (country %in% list_countries )) %>%
group_by(country) %>%
mutate(ymax=cumsum(remote_perc),
ymin=if_else(row_number()==1,0,lag(ymax)),
labelPosition=(ymax+ymin)/2,
label=paste0(remote_perc, " %"),
frequenc=if_else(frequenc=="NVR","NUNCA",
if_else(frequenc=="SMT", "OCASIONAL", "SIEMPRE"))) %>%
rename(freq=frequenc),
aes(ymax=ymax, ymin=ymin, xmax=4, xmin=3, fill=freq)) +
geom_rect() +
geom_text(x=1.5,
aes(y=labelPosition, label=label, color=freq),
size=2.2,
check_overlap = T)+
scale_fill_brewer(palette=3) + # color del rosco
scale_color_brewer(palette=3) + # color de las etiquetas
facet_wrap(~country) +
coord_polar(theta="y") +
theme_void() +
xlim(c(-1, 4)) +
labs(title="Composición teletrabajo por país",
subtitle=" ",
caption = "Fuente: Eurostat")
Evolución temporal del trabajo remoto
Para dar contexto, podemos ver la evolución temporal del porcentaje de trabajadores que en algún grado disfrutan de trabajo en remoto. Vemos que aquí también hay grupos de paises. En algunos de estos paises se aprecia una pendiente muy pronunciada, mientras que en otro grupo de ellos no han registrado una subida tan acelerada el último año.
df_european_data_filtered %>%
filter(frequenc == "NVR" & (country %in% list_countries[list_countries != "CY"])) %>%
mutate( remote_perc = if_else( frequenc == "NVR",round(1-remote_perc/100,3),round(remote_perc/100,3))) %>%
ggplot(aes(TIME_PERIOD, remote_perc, colour=remote_perc, group=country)) +
geom_line() +
facet_wrap(~country) +
scale_colour_gradient(low = "yellow", high = "red", na.value = NA)+
scale_y_continuous(labels=scales::percent)
3. Correlación Trabajo Remoto ~ PIB país
Como reflexión final, parece evidente que atendiendo al PIB país, el porcentaje de teletrabajadores que al menos trabajan de manera ocasional en remoto en base al grueso de los empleados del mercado laboral tiene una correlación positiva grande.
La composición del tejido industrial y del tipo de empresas de cada uno de los paises, unido a las diferentes políticas y gobierno que hay en ellos, parecen los factores que determinan la gran heterogeneidad entre Estados.
En el siguiente artículo profundizaremos sobre esta relación entre el PIB y el modelo de trabajo remoto, disertando sobre casusas y efectos.
Versión en inglés del artículo en UbiWork. Work remotely from Spain & Portugal
¡Comparte el post! Aquí: