arboles de cherry

# Cargar el dataset de árboles
data(trees)

# Filtrar los datos de acuerdo con los criterios especificados
arboles <- subset(trees, Height >= 70 & Height <= 80 & Girth < 13)

# Ver el resultado
print(arboles)

##    Girth Height Volume
## 1    8.3     70   10.3
## 4   10.5     72   16.4
## 8   11.0     75   18.2
## 9   11.1     80   22.6
## 10  11.2     75   19.9
## 11  11.3     79   24.2
## 12  11.4     76   21.0
## 13  11.4     76   21.4
## 15  12.0     75   19.1
## 16  12.9     74   22.2

# Cargar las bibliotecas necesarias
library(ggplot2)

# Cargar el dataset de árboles
data(trees)

# Filtrar los datos de acuerdo con los criterios especificados
arboles <- subset(trees, Height >= 70 & Height <= 80 & Girth < 13)

# Crear una columna para indicar si los puntos cumplen con los filtros
trees$Filter <- ifelse(trees$Height >= 70 & trees$Height <= 80 & trees$Girth < 13, "Cumple", "No cumple")

# Crear el gráfico
p <- ggplot(trees, aes(x = Girth, y = Height)) +
  geom_point(aes(color = Filter), shape = 22, size = 3) +
  scale_color_manual(values = c("Cumple" = "green", "No cumple" = "black"), name = "Diámetro vs Altura") +
  labs(title = "Altura y Ancho de Árboles Cherry Negros",
       x = "Diámetro (pulgadas)",
       y = "Altura (pies)") +
  theme_minimal()

# Mostrar el gráfico
print(p)