tarea 3

#informe tarea 3

df <- read.csv("most_valuable_teams (1).csv")
# Cargar archivo csv
datos <- read.csv("most_valuable_teams (1).csv")

# Crear histograma
hist(datos$Age, main="Club", xlab="Age", ylab="Competition")

# Crear diagrama de cajas
boxplot(datos[, c("Age", "Squad_size")], 
        main="Distribuciones de mis variables", 
        names=c( "Age", "Squad_size"), 
        ylab="Valores")

install.packages("plotly")

## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.2'
## (as 'lib' is unspecified)

# Cargar datos desde un archivo CSV
datos <- read.csv("most_valuable_teams (1).csv")

# Crear un gráfico de dispersión con los datos cargados
plot(datos$Age, datos$Squad_size , main = "Título del gráfico", xlab = "Etiqueta del eje x", ylab = "Etiqueta del eje y")