library(tree) data(trees) Arboles <- subset(trees, Height >= 70 & Height <= 80 & Girth < 13) print(Arboles) library(ggplot2) trees\(filter <- ifelse(trees\)Height >= 70 & trees\(Height <= 80 & trees\)Girth < 13, “Cumple”, “No Cumple”) ggplot(trees, aes(x = Girth, y = Height, color = filter)) + geom_point(shape = 22, size = 3) + # Puntos cuadrados scale_color_manual(values = c(“Cumple” = “green”, “No Cumple” = “black”)) + labs( title = “Altura y Ancho de Árboles Cherry Negros”, x = “Diámetro (pulgadas)”, y = “Altura (pies)”, color = “Diametro vs Altura” ) +