['dating', 'renewable energy', 'data mining', 'dragons', 'commitment']
M'agradaria tenir un script en R que generi un mapa de calor que mostri la correlació entre diferents factors que poden influir en el compromís dels empleats en una empresa.
```R
# Instal·lar i carregar les llibreries necessàries
install.packages(c("ggplot2", "reshape2"))
library(ggplot2)
library(reshape2)

# Dades d'exemple (substituir per dades reals)
factors <- data.frame(
  Satisfaccio_laboral = c(0.8, 0.6, 0.7, 0.9, 0.5),
  Oportunitats_creixement = c(0.7, 0.9, 0.6, 0.8, 0.7),
  Reconeixement = c(0.6, 0.5, 0.8, 0.7, 0.9),
  Cultura_empresa = c(0.9, 0.8, 0.7, 0.6, 0.8)
)
rownames(factors) <- c("Empleat 1", "Empleat 2", "Empleat 3", "Empleat 4", "Empleat 5")

# Calcular la matriu de correlació
correlacio <- cor(factors)

# Transformar la matriu de correlació a un format llarg
correlacio_long <- melt(correlacio)

# Crear el mapa de calor
ggplot(data = correlacio_long, aes(x = Var1, y = Var2, fill = value)) +
  geom_tile() +
  scale_fill_gradient2(low = "blue", high = "red", mid = "white", midpoint = 0, limit = c(-1,1), space = "Lab", name="Correlació") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))
```