Tarea#3 MM-116 Leonel Maradiaga No. Cuenta 20191004278

rm(list=ls())
data("trees")
trees

##    Girth Height Volume
## 1    8.3     70   10.3
## 2    8.6     65   10.3
## 3    8.8     63   10.2
## 4   10.5     72   16.4
## 5   10.7     81   18.8
## 6   10.8     83   19.7
## 7   11.0     66   15.6
## 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
## 14  11.7     69   21.3
## 15  12.0     75   19.1
## 16  12.9     74   22.2
## 17  12.9     85   33.8
## 18  13.3     86   27.4
## 19  13.7     71   25.7
## 20  13.8     64   24.9
## 21  14.0     78   34.5
## 22  14.2     80   31.7
## 23  14.5     74   36.3
## 24  16.0     72   38.3
## 25  16.3     77   42.6
## 26  17.3     81   55.4
## 27  17.5     82   55.7
## 28  17.9     80   58.3
## 29  18.0     80   51.5
## 30  18.0     80   51.0
## 31  20.6     87   77.0

Data1<-as.data.frame(trees)
Data1

##    Girth Height Volume
## 1    8.3     70   10.3
## 2    8.6     65   10.3
## 3    8.8     63   10.2
## 4   10.5     72   16.4
## 5   10.7     81   18.8
## 6   10.8     83   19.7
## 7   11.0     66   15.6
## 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
## 14  11.7     69   21.3
## 15  12.0     75   19.1
## 16  12.9     74   22.2
## 17  12.9     85   33.8
## 18  13.3     86   27.4
## 19  13.7     71   25.7
## 20  13.8     64   24.9
## 21  14.0     78   34.5
## 22  14.2     80   31.7
## 23  14.5     74   36.3
## 24  16.0     72   38.3
## 25  16.3     77   42.6
## 26  17.3     81   55.4
## 27  17.5     82   55.7
## 28  17.9     80   58.3
## 29  18.0     80   51.5
## 30  18.0     80   51.0
## 31  20.6     87   77.0

names(Data1)

## [1] "Girth"  "Height" "Volume"

Arboles<-Data1[Data1$Girth<13 & Data1$Height>=70 & Data1$Height<=80,]
Arboles<-Arboles[, c("Girth", "Height")]
Arboles

##    Girth Height
## 1    8.3     70
## 4   10.5     72
## 8   11.0     75
## 9   11.1     80
## 10  11.2     75
## 11  11.3     79
## 12  11.4     76
## 13  11.4     76
## 15  12.0     75
## 16  12.9     74

plot(Data1$Girth, Data1$Height,type="p",main="Altura y Ancho de Arboles Cherry Negros", xlab="Diametro (Pulgadas)", ylab="Altura (Pies)", col="black", pch=0,cex=1.5,xlim=c(7,21),ylim=c(60,100))
legend("topleft",legend=c("Diametro vs Altura", "Arboles no cumplen restricciones", "Arboles cumplen restricciones"), pch=c(20,0,0), col=c("black","black","green"))
points(Arboles$Girth, Arboles$Height, type="p", col="green", pch=0,cex=1.5, lwd=2)