Boxplot de especies longitud del petalo
ggplot(iris)+aes(Species,Petal.Length)+geom_boxplot(fill="#00ff5f")
Boxplot de especies ancho del sepalo
ggplot(iris)+aes(Species,Sepal.Length)+geom_boxplot(fill="#00ff9f")
Relacion entre Longitud y Ancho del Petalo
La grafica nos muestra que la especie setosa tiene una longitud del petalo mas corta y un ancho de petalo un poco mas bajo, la relacion entre el ancho de su petalo y la longitud de su petalo se muestra mas consistente en las especies Versicolor y Virginica.
ggplot(iris, aes(x = Petal.Length, y = Petal.Width)) +
geom_point(aes(color = Species), size = 3) +
labs(x = "Longitud del Petalo", y = "Ancho del Petalo", title = "Relacion entre Longitud y a\
ncho del Petalo") +
theme_minimal()
Relacion entre ancho del Sepalo y ancho del Petalo
La grafica nos muestra que los puntos estan dispersos, no se observa una relacion lineal entre las variables.Los valores para la especie Setosa indican un ancho de sepalo mas bajo y un ancho de petalos reducido permitiendo que sea mas facil diferenciarla.Las especies Versicolor y Virginica no muestran patrones claros, lo que sugiere que el ancho del sepalo y del petalo no son caracteristicas suficentemente determinantes para poder distinguirlas. Los puntos no siguen una linea recta ni curva, reforzando que no existe correlacion entre estas dos variables.
ggplot(iris, aes(x = Sepal.Width, y = Petal.Width)) +
geom_point(aes(color = Species), size = 3) +
labs(x = "Ancho del Sepalo", y = "Ancho del Petalo", title = "Relacion entre ancho del Sepal\
o y ancho del Petalo") +
theme_minimal()
Relacion entre longitud del Petalo y longitud del Sepalo
La grafica nos muestra que la longitud del petalo y la longitud del sepalo están positivamente correlacionadas, especialmente para Versicolor y Virginica. Sin embargo, Setosa se diferencia al tener tamaños mucho más pequeños en comparación con las otras especies. La linea de ajuste nos permite ver la relacion positiva, y su pendiente indica que a medida que el sépalo se alarga, también lo hace el pétalo.
ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
geom_point(aes(color = Species), size = 3) +
geom_smooth(method = "lm", se = FALSE, color = "black") + # Línea de ajuste
labs(x = "Longitud del Sepalo", y = "Longitud del Petalo", title = "Relacion con Linea de Aj\
uste") +
theme_minimal()
## `geom_smooth()` using formula = 'y ~ x'
Quitamos la columna especies
iris4 <- iris4[, -5]
Calculo de la Matriz de Distancias Euclidianas
distancias <- dist(iris4,method = "euclidean")
Calcula el dendograma de la matriz de distancias
(dendograma <- hclust(distancias, method = "ward.D2"))
Gráfica del Dendograma
plot(dendograma)
rect.hclust(dendograma, k=3, border = "blue")
Crear las etiquetas del cluster
(clusterespecies <- cutree(dendograma, k=3))
Creo el dataframe con los cluster
iris5 <- data.frame(iris4,clusterespecies)
head(iris5)
Graficar los clusters librerias
library(ggplot2)
library(GGally)