library(ggplot2)
library(plotly)
data("iris")
head(iris)
##   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1          5.1         3.5          1.4         0.2  setosa
## 2          4.9         3.0          1.4         0.2  setosa
## 3          4.7         3.2          1.3         0.2  setosa
## 4          4.6         3.1          1.5         0.2  setosa
## 5          5.0         3.6          1.4         0.2  setosa
## 6          5.4         3.9          1.7         0.4  setosa
g1= ggplot(data=iris, aes(x= Sepal.Length))
g1+ geom_histogram()+theme_bw()

Con este grafico se puede concluir que el largo de los sepalos de la mayoria de las plantas es, en promedio, de 6.5 cm. Pues alrededor de 12 plantas tiene su sepalo de ese tamaño. Además, muy pocas plantas tienen cepalos de largo entre 7 u ocho centimetros, o menos de cinco centimetros.

g2= ggplot(data=iris, aes(x= Sepal.Length, y= Sepal.Width))
g2+ geom_point()+theme_bw()

A partir de este gráfico se puede concluir que no hay una relación, al menos no una clarao directa, entre el ancho y el largo del sepalo. Aunque al principio parecía que a medida que aumentaba el largo del cepalo de una flor, también lo hacía el ancho. Más adelante se ve que otras flores con un cepalo considerablemente largo, no es ancho. Esto puede ser debido que hay tres tipos de flores presentes en la base de datos, y pueden tener caracteristicas diferentes.

g3= ggplot(data=iris, aes(x= Sepal.Length, y= Sepal.Width, color= Species))
g3+ geom_point()+theme_bw()

En este grafico es posible identificar el largo y ancho del cepalo de las flores en función de la especie de flor que son. Se nota que la especie setosa se caracteriza por tener cepalos más anchos que las otras dos especies. Pero, en contraparte, no son muy largas, a diferencia de la especie virginica, que sí posee cepalos largos, aunqe no tan anchos. La especie versicolor, por su parte, tiene un largo y anchos de cepalos promedio, en medio de las otras dos especies.

g4= ggplot(data=iris, aes(x= Sepal.Length, y= Sepal.Width, color= Species))
g4+ geom_point()+theme_bw()+geom_smooth(method= "lm")

Al hacer la diferenciación de especies en la grafica, se hace más visible el comportamiento de las flores en función dek ancho y largo de los cepalos. De esta manera es posible concluir que, independientemente de las caracteristicas intrinsecas de cada una de las flores, para todas se cumple que a medida que aumenta el largo del cepalo, también lo hace el ancho, pero en diferentes ritmos para cada una de ellas.

g5= ggplot(data=iris, aes(x= Species , y= Sepal.Length, fill= Species))
g5+ geom_boxplot()+theme_bw()

Como se había predicho anteriormente, la especie con los cepalos más largos es la virginica. Mientras que las más cortas son las de la setosa. Por suparte, la versicolor tiene unos cepalos de altura promedio entre las otras dos especies.