Cargar el conjunto de datos ‘trees’

data(trees)

Visualizar las primeras filas del conjunto de datos

head(trees)

Crear un data.frame a partir de los datos de ‘trees’ con el filtro especificado

arboles <- subset(trees, Height >= 70 & Height <= 80 & Girth < 13)

Crear el gráfico de dispersión

plot(trees\(Girth, trees\)Height, main = “Altura y Ancho de Árboles Cherry Negros”, xlab = “Diámetro (pulgadas)”, ylab = “Altura (pies)”, pch = 22, col = ifelse(trees\(Height >= 70 & trees\)Height <= 80 & trees$Girth < 13, “green”, “black”))

Añadir la leyenda fuera de la gráfica

legend(“topright”, inset = c(-0.2, 0), legend = c(“Cumplen el criterio”, “No cumplen el criterio”), col = c(“green”, “black”), pch = 22, title = “DIÁMETRO VS ALTURA”)