Informe 1 iris

data(iris)

summary(iris)

##   Sepal.Length    Sepal.Width     Petal.Length    Petal.Width   
##  Min.   :4.300   Min.   :2.000   Min.   :1.000   Min.   :0.100  
##  1st Qu.:5.100   1st Qu.:2.800   1st Qu.:1.600   1st Qu.:0.300  
##  Median :5.800   Median :3.000   Median :4.350   Median :1.300  
##  Mean   :5.843   Mean   :3.057   Mean   :3.758   Mean   :1.199  
##  3rd Qu.:6.400   3rd Qu.:3.300   3rd Qu.:5.100   3rd Qu.:1.800  
##  Max.   :7.900   Max.   :4.400   Max.   :6.900   Max.   :2.500  
##        Species  
##  setosa    :50  
##  versicolor:50  
##  virginica :50  
##                 
##                 
## 

Gráficos cuantitativos

En la siguiente figura se observa el histograma de la variable longitud del sepalo.

library(ggplot2)
ggplot(iris, aes(x=Sepal.Length))+
  geom_histogram(fill="royalblue")

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

ggplot(iris, aes( x= Sepal.Width))+
  geom_histogram(fill="purple")

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

ggplot(iris, aes( x= Petal.Length))+
  geom_histogram(fill="skyblue")

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

ggplot(iris, aes( x= Petal.Width))+
  geom_histogram(fill="pink")

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

##Diagrama de cajas

ggplot(iris,aes(y=Sepal.Length))+
         geom_boxplot(fill="red")

ggplot(iris,aes(y=Sepal.Width))+
         geom_boxplot(fill="orange")

ggplot(iris,aes(y=Petal.Length))+
         geom_boxplot(fill="yellow")

ggplot(iris,aes(y=Petal.Width))+
         geom_boxplot(fill="gold")

Diagrama de cajas por grupo

ggplot(iris, aes( y= Sepal.Length, x=Species,
                  fill=Species))+
  labs(title = "Longitud de sepalo por especie", x=" Especie", y= " Longitud")+
  geom_boxplot()+
  scale_fill_brewer(palette="dark")

## Warning: Unknown palette: "dark"

ggplot(iris, aes( y= Sepal.Width, x=Species,
                  fill=Species))+
  labs(title = "Anchura de sepalo por especie", x=" Especie", y= " Anchura")+
  geom_boxplot()+
  scale_fill_brewer(palette="dark2")

## Warning: Unknown palette: "dark2"

ggplot(iris, aes( y= Petal.Length, x=Species,
                  fill=Species))+
  labs(title = "Longitud de petalos por especie", x=" Especie", y= " Longitud")+
  geom_boxplot()+
  scale_fill_brewer(palette= "bupu")

## Warning: Unknown palette: "bupu"

ggplot(iris, aes( y= Petal.Width, x=Species,
                  fill=Species))+
  labs(title = "Anchura de petalo por especie", x=" Especie", y= " Anchura")+
  geom_boxplot()+
  scale_fill_brewer(palette="dark")

## Warning: Unknown palette: "dark"

Conclusiónes

• Se observa que la especie Virginica presenta caracteristicas mas grandes y la setosa mas pequeñas

• La especie Setosa presenta más datos atípicos

Imagen