Caricamento librerie

library(dplyr)
library(ggplot2)

Parte 1: Dati

Lanciata nel 1994, EURES è una rete di cooperazione europea dei servizi per l’impiego, concepita per facilitare la libera circolazione dei lavoratori. La rete ha sempre lavorato duramente per permettere ai cittadini europei di godere delle stesse opportunità, nonostante le barriere linguistiche, le differenze culturali, le sfide burocratiche, le diverse leggi sul lavoro nonché il mancato riconoscimento dei certificati scolastici tra le varie regioni dell’Europa.

Nel portale a cui si accede da qui : https://ec.europa.eu/eures/portal/jv-se/home?lang=it&pageCode=find_a_job è possibile cercare lavoro per Luogo, Settore o Professione o digitando nell’apposita casella di ricerca il tipo di lavoro che si cerca.

In questo report si tracciano grafici e si fanno statistiche sulle offerte di lavoro aggiornate al 2 novembre 2023.

Caricamento dati:

offerte_di_lavoro <- read.csv("offerte_di_lavoro.csv")

Parte 2 : Esplorazione dati

Totale generale dei posti di lavoro vacanti per categoria:

offerte_di_lavoro %>%
  group_by(Category) %>%
  summarise(total=sum(Value))
## # A tibble: 3 × 2
##   Category      total
##   <chr>         <int>
## 1 Luogo       2928551
## 2 Professioni  885229
## 3 Settore     2301139

Numero posti di lavoro vacanti per Stato

offerte_di_lavoro %>%
  filter(Category=="Luogo") %>%
  mutate(Entity= reorder(Entity,Value))  %>%
  ggplot(aes(Entity,Value))+
  geom_bar(stat = "identity", fill="red", colour="white")+
  geom_text(aes(label=Value), hjust=0, size=2)+
  coord_flip()+
  ylim(0,1000000)+
  ggtitle("Numero di posti di lavoro vacanti", subtitle = "per Stato aggiornati al 2/11/2023")

Numero posti di lavoro vacanti per Settore

offerte_di_lavoro %>%
  filter(Category=="Settore") %>%
  mutate(Entity= reorder(Entity,Value))  %>%
  ggplot(aes(Entity,Value))+
  geom_bar(stat = "identity", fill="blue", colour="white")+
  geom_text(aes(label=Value), hjust=0, size=2)+
  coord_flip()+
  ylim(0,1000000)+
  ggtitle("Numero di posti di lavoro vacanti", subtitle = "per Settore aggiornati al 2/11/2023")

Numero posti di lavoro vacanti per Professioni

offerte_di_lavoro %>%
  filter(Category=="Professioni") %>%
  mutate(Entity= reorder(Entity,Value))  %>%
  ggplot(aes(Entity,Value))+
  geom_bar(stat = "identity", fill="orange", colour="white")+
  geom_text(aes(label=Value), hjust=0, size=2)+
  coord_flip()+
  ylim(0,130000)+
  ggtitle("Numero di posti di lavoro vacanti", subtitle = "per Professione aggiornati al 2/11/2023")