TareaIV Ernesto Muñoz

“Mi equipo preferido”

“Mi boxplot”

boxplot(Sepal.Length~Species, data =iris_, main='boxplot', xlab="Species",ylab="Sepal.Length")

el boxpot que sale de la data de iris_ evidencia que la especie virginica es la que posee la mayor longitud en su sepal entre las tres especies observadas con un dato atipico (cercano a otra especie), de igual forma, la especie setosa es la que posee menor longitud en su sepal entre las tres especies observadas. claro esta, que la especie versicolor se encuentra con una longitud de sepal entre las dos otras especies ya menciondas.

“Mi count”

iris_ %>% count(Species)

##      Species  n
## 1     setosa 50
## 2 versicolor 50
## 3  virginica 50

“Mi summary”

iris_ %>% summarize(Petal.Length) %>% summarize(Promedio_Petal.Length = mean(Petal.Length),maximo_Petal.Length =max(Petal.Length),minimo_Petal.Length=min(Petal.Length),mediana_Petal.Length=median(Petal.Length))

##   Promedio_Petal.Length maximo_Petal.Length minimo_Petal.Length
## 1                 3.758                 6.9                   1
##   mediana_Petal.Length
## 1                 4.35

“Mi transformacion”

iris_ %>% mutate(Petal.Length_mod = if_else(Petal.Length<=1.6,"corto",if_else(Petal.Length<= 4.4,"mediano",if_else(Petal.Length<=5.1,"largo","muy largo"))))%>% count(Petal.Length_mod)

##   Petal.Length_mod  n
## 1            corto 44
## 2            largo 37
## 3          mediano 35
## 4        muy largo 34

“Mi ggplot”

ggplot(iris_,aes(x=Sepal.Width, y=Sepal.Length, colour=Species)) + geom_point(aes(shape= Species))+ xlab("Sepal Width (cm)") + ylab("Sepal Length (cm)") + ggtitle("Grafico hermoso") + theme (plot.title = element_text(size = 6,hjust= 0.5,face="bold", color="red")) + theme(legend.position = "top") + annotate("text",x=2.2, y=7.5,color ="blue",label="Sepal Length 
vs Sepal Width")