informe 1
Juan Sierra
2025-03-07
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
##
##
## Graficos 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="yellow")## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
ggplot(iris, aes(x=Sepal.Width))+
geom_histogram(fill="green")## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
ggplot(iris, aes(x=Petal.Length))+
geom_histogram(fill="peru")## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
ggplot(iris, aes(x=Petal.Width))+
geom_histogram(fill="grey")## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
Diagramas de cajas
ggplot(iris, aes(y=Sepal.Length))+
geom_boxplot(fill="cyan")
ggplot(iris, aes(y=Sepal.Width))+
geom_boxplot(fill="red")
ggplot(iris, aes(y=Petal.Length))+
geom_boxplot(fill="purple")
ggplot(iris, aes(y=Petal.Width))+
geom_boxplot(fill="pink")
Diagramas de caja por grupo
ggplot(iris,aes(y=Sepal.Length,x=Species,
fill = Species))+
geom_boxplot()
scale_fill_brewer(palette="dark")## Warning: Unknown palette: "dark"## <ggproto object: Class ScaleDiscrete, Scale, gg>
## aesthetics: fill
## axis_order: function
## break_info: function
## break_positions: function
## breaks: waiver
## call: call
## clone: function
## dimension: function
## drop: TRUE
## expand: waiver
## get_breaks: function
## get_breaks_minor: function
## get_labels: function
## get_limits: function
## get_transformation: function
## guide: legend
## is_discrete: function
## is_empty: function
## labels: waiver
## limits: NULL
## make_sec_title: function
## make_title: function
## map: function
## map_df: function
## n.breaks.cache: NULL
## na.translate: TRUE
## na.value: NA
## name: waiver
## palette: function
## palette.cache: NULL
## position: left
## range: environment
## rescale: function
## reset: function
## train: function
## train_df: function
## transform: function
## transform_df: function
## super: <ggproto object: Class ScaleDiscrete, Scale, gg>ggplot(iris,aes(y=Sepal.Width,x=Species,
fill = Species))+
geom_boxplot()
scale_fill_brewer(palette="dark2")## Warning: Unknown palette: "dark2"## <ggproto object: Class ScaleDiscrete, Scale, gg>
## aesthetics: fill
## axis_order: function
## break_info: function
## break_positions: function
## breaks: waiver
## call: call
## clone: function
## dimension: function
## drop: TRUE
## expand: waiver
## get_breaks: function
## get_breaks_minor: function
## get_labels: function
## get_limits: function
## get_transformation: function
## guide: legend
## is_discrete: function
## is_empty: function
## labels: waiver
## limits: NULL
## make_sec_title: function
## make_title: function
## map: function
## map_df: function
## n.breaks.cache: NULL
## na.translate: TRUE
## na.value: NA
## name: waiver
## palette: function
## palette.cache: NULL
## position: left
## range: environment
## rescale: function
## reset: function
## train: function
## train_df: function
## transform: function
## transform_df: function
## super: <ggproto object: Class ScaleDiscrete, Scale, gg>ggplot(iris,aes(y=Petal.Length,x=Species,
fill = Species))+
geom_boxplot()
scale_fill_brewer(palette="dark")## Warning: Unknown palette: "dark"## <ggproto object: Class ScaleDiscrete, Scale, gg>
## aesthetics: fill
## axis_order: function
## break_info: function
## break_positions: function
## breaks: waiver
## call: call
## clone: function
## dimension: function
## drop: TRUE
## expand: waiver
## get_breaks: function
## get_breaks_minor: function
## get_labels: function
## get_limits: function
## get_transformation: function
## guide: legend
## is_discrete: function
## is_empty: function
## labels: waiver
## limits: NULL
## make_sec_title: function
## make_title: function
## map: function
## map_df: function
## n.breaks.cache: NULL
## na.translate: TRUE
## na.value: NA
## name: waiver
## palette: function
## palette.cache: NULL
## position: left
## range: environment
## rescale: function
## reset: function
## train: function
## train_df: function
## transform: function
## transform_df: function
## super: <ggproto object: Class ScaleDiscrete, Scale, gg>ggplot(iris,aes(y=Petal.Width,x=Species,
fill = Species))+
geom_boxplot()
scale_fill_brewer(palette="dark2")## Warning: Unknown palette: "dark2"## <ggproto object: Class ScaleDiscrete, Scale, gg>
## aesthetics: fill
## axis_order: function
## break_info: function
## break_positions: function
## breaks: waiver
## call: call
## clone: function
## dimension: function
## drop: TRUE
## expand: waiver
## get_breaks: function
## get_breaks_minor: function
## get_labels: function
## get_limits: function
## get_transformation: function
## guide: legend
## is_discrete: function
## is_empty: function
## labels: waiver
## limits: NULL
## make_sec_title: function
## make_title: function
## map: function
## map_df: function
## n.breaks.cache: NULL
## na.translate: TRUE
## na.value: NA
## name: waiver
## palette: function
## palette.cache: NULL
## position: left
## range: environment
## rescale: function
## reset: function
## train: function
## train_df: function
## transform: function
## transform_df: function
## super: <ggproto object: Class ScaleDiscrete, Scale, gg>Coclusiones
Se observa que la especie Virginica presenta caracteristicas mas grandes y la setosa mas pequela
la especie setosa presenta mas datos atipicos
imagen
