library(tree)
altura<- c(71, 73, 75, 77, 79)
diametro<- c(2, 4, 6, 8, 10)
arboles<- data.frame(altura, diametro)
plot(x= diametro, y= altura, main = "Altura y Ancho de Árboles Cherry Negros", xlab = "pulgadas"
     , ylab = "pies", col= "green" )
legend("topleft",legend =c("Diametro vs Altura"), lty = 4)