#Crear vectores simples (heterogeneos en tipo)

# Tipos de plantas (etiquetas cualitativas)
plantas <- c("tomate", "lechuga", "fresa")

# Altura en cm de cada una
alturas <- c(35, 22, 18)

# Si recibieron riego hoy
riego <- c(TRUE, TRUE, FALSE)


#Convertir el vector de plantas en un factor
plantas_factor <- as.factor(plantas)
plantas_factor

#Crear un data frame con toda la informacion
huerto_df <- data.frame(
  planta = plantas_factor,
  altura_cm = alturas,
  riego = riego
)

huerto_df

#Crear una lista con el data frame y elementos adicionales
temperatura_media <- 19.5

lista_huerto <- list(
  datos = huerto_df,
  temp_dia = temperatura_media
)
lista_huerto

#acceder al dataframe dentro de la lista
lista_huerto$datos
lista_huerto[1]

#acceder dentro de la lista a la columna altura_cm del dataframe 
lista_huerto$datos$altura_cm
lista_huerto[[1]]$altura_cm
lista_huerto$datos[2]