# Crear vectores
nombres <- c("Ana", "Luis", "Carlos", "Marta")
edades <- c(23, 25, 30, 22)
puntuaciones <- c(85.5, 90.3, 78.9, 88.1)

# Crear data frame
df <- data.frame(Nombre = nombres, Edad = edades, Puntuacion = puntuaciones)

# Mostrar el data frame
print(df)

# Importar data frame desde un archivo CSV
df <- read.csv("ruta/al/archivo.csv")

# Mostrar las primeras filas del data frame
head(df)

# Ver la estructura del data frame
str(df)

# Resumen estadístico de las columnas numéricas
summary(df)

# Acceder a una columna por nombre
df$Nombre

# Acceder a una columna por índice
df[, 1]

# Acceder a una fila por índice
df[1, ]

# Acceder a un elemento específico
df[1, "Edad"]

# Añadir una nueva columna
df$Genero <- c("F", "M", "M", "F")

# Eliminar una columna
df$Genero <- NULL

# Filtrar filas basadas en una condición
df_filtrado <- df[df$Edad > 24, ]

# Ordenar por una columna
df_ordenado <- df[order(df$Edad), ]

# Crear vectores
nombres <- c("Ana", "Luis", "Carlos", "Marta", "Jorge")
edades <- c(23, 25, 30, 22, 28)
ciudades <- c("Madrid", "Barcelona", "Valencia", "Sevilla", "Bilbao")

# Crear data frame
df <- data.frame(Nombre = nombres, Edad = edades, Ciudad = ciudades)

# Mostrar la estructura y el resumen
str(df)
summary(df)

# Añadir columna Puntuacion
df$Puntuacion <- c(85.5, 90.3, 78.9, 88.1, 92.0)

# Filtrar filas
df_filtrado <- df[df$Edad > 24, ]

# Ordenar por Puntuacion
df_ordenado <- df[order(df$Puntuacion), ]

# Mostrar el data frame ordenado
print(df_ordenado)