true 
library(readxl)
BDSummer22_1_ <- read_excel("C:/Users/USUARIO/Downloads/BDSummer22 (1).xlsx")
attach(BDSummer22_1_)

A continuación presentaremos un histograma de la Edad:

hist(Edad,col="#15489e", xlim=c (10,60), ylim=c(0,400), xlab= "Edad (Años)", ylab= "Cantidad de empleados", main="")

library(ggplot2)
ggplot(BDSummer22_1_, aes(y = Edad)) +
  geom_boxplot(fill = "green", color = "black") +
  labs(title = "Diagrama de Caja de Edades", y = "Edad")

library(ggplot2)
ggplot(BDSummer22_1_, aes(x = Edad, y = ValorJugador)) +
  geom_point(color = "red") +
  labs(title = "Gráfico de Dispersión de Edad vs. Ingresos", x = "Edad", y = "Ingresos")