rsimon

Cargamos la librería ggplot2

library(ggplot2)

Crear un conjunto de datos ficticio

set.seed(123) datos <- data.frame( + Tiempo_Competicion = rnorm(100, mean = 200, sd = 20) # Tiempo en minutos + )

Crear un histograma del tiempo de competición

ggplot(datos, aes(x = Tiempo_Competicion)) + + geom_histogram(binwidth = 10, fill = “blue”, color = “black”, alpha = 0.7) + + labs(title = “Histograma del Tiempo en Competición”, + x = “Tiempo en Competición (minutos)”, + y = “Frecuencia”) + + theme_minimal()

Crear un diagrama de caja del tiempo de competición

ggplot(datos, aes(y = Tiempo_Competicion)) + + geom_boxplot(fill = “orange”, color = “black”, alpha = 0.7) + + labs(title = “Diagrama de Caja del Tiempo en Competición”, + y = “Tiempo en Competición (minutos)”) + + theme_minimal()

Crear un conjunto de datos ficticio con Peso y Tiempo

set.seed(123) datos <- data.frame( + Peso = rnorm(100, mean = 70, sd = 10), # Peso en kg + Tiempo_Competicion = rnorm(100, mean = 200, sd = 20) # Tiempo en minutos + )

Crear un gráfico de dispersión entre el peso y el tiempo de competición

ggplot(datos, aes(x = Peso, y = Tiempo_Competicion)) + + geom_point(color = “purple”, alpha = 0.7) + + labs(title = “Gráfico de Dispersión entre Peso y Tiempo de Competición”, + x = “Peso (kg)”, + y = “Tiempo en Competición (minutos)”) + + theme_minimal()

Crear un conjunto de datos ficticio con VO2max y Tiempo

set.seed(123) datos <- data.frame( + VO2max = rnorm(100, mean = 55, sd = 7), # Capacidad aeróbica en ml/kg/min + Tiempo_Competicion = rnorm(100, mean = 200, sd = 20) # Tiempo en minutos + )

Crear un gráfico de dispersión entre VO2max y tiempo de competición

ggplot(datos, aes(x = VO2max, y = Tiempo_Competicion)) + + geom_point(color = “green”, alpha = 0.7) + + labs(title = “Gráfico de Dispersión entre VO2max y Tiempo de Competición”, + x = “Capacidad Aeróbica (VO2max en ml/kg/min)”, + y = “Tiempo en Competición (minutos)”) + + theme_minimal()

Crear un conjunto de datos ficticio con Tipo de Competición

set.seed(123) datos <- data.frame( + Tipo_Competicion = sample(c(“Ruta”, “Montaña”, “Pista”), 100, replace = TRUE) # Tipo de competición + )

Crear un gráfico de barras del tipo de competición

ggplot(datos, aes(x = Tipo_Competicion)) + + geom_bar(fill = “skyblue”, color = “black”, alpha = 0.7) + + labs(title = “Distribución del Tipo de Competición”, + x = “Tipo de Competición”, + y = “Frecuencia”) + + theme_minimal()

Crear un conjunto de datos ficticio con Peso, Tiempo, y Tipo de Competición

set.seed(123) datos <- data.frame( + Peso = rnorm(100, mean = 70, sd = 10), # Peso en kg + Tiempo_Competicion = rnorm(100, mean = 200, sd = 20), # Tiempo en minutos + Tipo_Competicion = sample(c(“Ruta”, “Montaña”, “Pista”), 100, replace = TRUE) # Tipo de competición + )

Crear un gráfico de dispersión con color por tipo de competición

ggplot(datos, aes(x = Peso, y = Tiempo_Competicion, color = Tipo_Competicion)) + + geom_point() + + labs(title = “Relación entre Peso y Tiempo de Competición”, + x = “Peso (kg)”, + y = “Tiempo en Competición (minutos)”) + + theme_minimal()

Ver los datos generados

View(datos)