Información Personal

Nombre: Daniel Alejandro Barrientos Anariba Número de Cuenta: 20191000537

# Cargar las librerías necesarias
library(tree)
library(ggplot2)
# Cargar los datos de tree
data(trees)
# Filtrar los datos según las especificaciones
Arboles <- subset(trees, Height >= 70 & Height <= 80 & Girth < 13)
# Crear el gráfico
ggplot(trees, aes(x = Girth, y = Height)) +
  geom_point(shape = 15, color = "black") +
  geom_point(data = Arboles, aes(x = Girth, y = Height, color = "Filtrado"), shape = 15) +
  labs(title = "Altura y Ancho de Árboles Cherry Negros",
       x = "Diámetro (pulgadas)",
       y = "Altura (pies)",
       color = "Diámetro vs Altura") +
  scale_color_manual(values = c("Filtrado" = "green")) +
  theme_minimal()