Dataframes Ejercicios

# EJERCICIO 1
# Definir los vectores de altura
area1 <- c(7.5, 12, 14.5)
area2 <- c(12.5, 10.5, 13, 9, 18.5)
area3 <- c(11, 8, 7.5, 9.5, 19, 14)
area4 <- c(12.5, 16, 9.5, 10)

# Obtener la longitud máxima
longitud_maxima <- max(length(area1), length(area2), length(area3), length(area4))

# Llenar los vectores más cortos con NA hasta tener la misma longitud
area1 <- c(area1, rep(NA, longitud_maxima - length(area1)))
area2 <- c(area2, rep(NA, longitud_maxima - length(area2)))
area3 <- c(area3, rep(NA, longitud_maxima - length(area3)))
area4 <- c(area4, rep(NA, longitud_maxima - length(area4)))

# Crear el data frame
tabla_alturas <- data.frame(Area1 = area1,
                            Area2 = area2,
                            Area3 = area3,
                            Area4 = area4)

# Imprimir el data frame
tabla_alturas

##   Area1 Area2 Area3 Area4
## 1   7.5  12.5  11.0  12.5
## 2  12.0  10.5   8.0  16.0
## 3  14.5  13.0   7.5   9.5
## 4    NA   9.0   9.5  10.0
## 5    NA  18.5  19.0    NA
## 6    NA    NA  14.0    NA

##B)Vectores de altura de los árboles en cada área de terreno

# Crear una lista con los vectores
lista_arboles <- list(Area1 = area1, Area2 = area2, Area3 = area3, Area4 = area4)

# Mostrar la lista
lista_arboles

## $Area1
## [1]  7.5 12.0 14.5   NA   NA   NA
## 
## $Area2
## [1] 12.5 10.5 13.0  9.0 18.5   NA
## 
## $Area3
## [1] 11.0  8.0  7.5  9.5 19.0 14.0
## 
## $Area4
## [1] 12.5 16.0  9.5 10.0   NA   NA

###C) Vectores de altura de los árboles en cada área de terreno###

# Función para determinar si la altura del primer árbol es mayor que la del último árbol
comparar_alturas <- function(area) {
  primer_arbol <- area[1]
  ultimo_arbol <- area[length(area)]
  return(primer_arbol > ultimo_arbol)
}

# Determinar si la altura del primer árbol es mayor que la del último árbol para cada área de terreno
resultado_area1 <- comparar_alturas(area1)
resultado_area2 <- comparar_alturas(area2)
resultado_area3 <- comparar_alturas(area3)
resultado_area4 <- comparar_alturas(area4)

# Mostrar los resultados
cat("Área 1:", resultado_area1, "\n")

## Área 1: NA

cat("Área 2:", resultado_area2, "\n")

## Área 2: NA

cat("Área 3:", resultado_area3, "\n")

## Área 3: FALSE

cat("Área 4:", resultado_area4, "\n")

## Área 4: NA

#### D)Vectores de altura de los árboles en cada área de terreno

# Obtener el logaritmo decimal de la altura del tercer árbol en el área de terreno 3
tercer_arbol_area3 <- area3[3]
log_decimal <- log10(tercer_arbol_area3)

# Mostrar el resultado
cat("El logaritmo decimal de la altura del tercer árbol en el área de terreno 3 es:", log_decimal, "\n")

## El logaritmo decimal de la altura del tercer árbol en el área de terreno 3 es: 0.8750613

#### E) Vectores de altura de los árboles en cada área de terreno

# Obtener la suma de las alturas de los 3 primeros árboles en el área de terreno 4
suma_alturas <- sum(area4[1:3])

# Mostrar el resultado
cat("La suma de las alturas de los 3 primeros árboles en el área de terreno 4 es:", suma_alturas, "\n")

## La suma de las alturas de los 3 primeros árboles en el área de terreno 4 es: 38

##### F) Vectores de altura de los árboles en cada área de terreno

# Calcular la altura media de los árboles en el área de terreno 1
altura_media <- mean(area1)

# Mostrar el resultado
cat("La altura media de los árboles en el área de terreno 1 es:", altura_media, "\n")

## La altura media de los árboles en el área de terreno 1 es: NA