R Notebook

m<-read.csv("Matriz12.csv")
library(ggplot2)
ggplot(data=m, aes(m$ESTATURA)) + geom_histogram(breaks=seq(1.5, 1.9, by = 0.1),col="red", fill="green")

ggplot(data=m, aes(m$ESTATURA)) + geom_histogram(breaks=seq(1.5, 1.9, by = 0.1),col="red", fill="green") + ggtitle("HISTOGRAMA DE ESTATURA") + xlab("ESTATURA")

ggplot(data=m, aes(m$ESTATURA)) + geom_histogram(breaks=seq(1.5, 1.9, by = 0.1),col="red", fill="green") + ggtitle("HISTOGRAMA DE ESTATURA") + xlab("ESTATURA") + labs(x="ESTATURA", y="FRECUENCIA")

ggplot(data=m, aes(m$ESTATURA)) + geom_histogram(breaks=seq(1.5, 1.9, by = 0.1),col="red", fill="green") + ggtitle("HISTOGRAMA DE ESTATURA") + xlab("ESTATURA") + labs(x="ESTATURA", y="FRECUENCIA") + geom_density(col="black") + ggtitle("HISTOGRAMA DE ESTATURA") + xlab("ESTATURA") + labs(x="ESTATURA", y="FRECUENCIA")

ggplot(data=m, aes(m$ESTATURA)) + geom_histogram(breaks=seq(1.5, 1.9, by = 0.1),col="red", fill="green") + ggtitle("HISTOGRAMA DE ESTATURA") + xlab("ESTATURA") + labs(x="ESTATURA", y="FRECUENCIA") + geom_density(col="black") + ggtitle("HISTOGRAMA DE ESTATURA") + xlab("ESTATURA") + labs(x="ESTATURA", y="FRECUENCIA") + geom_vline ( aes (xintercept = mean ( ESTATURA , na.rm = T )), col = "blue" , linetype = "dashed" , size = 1 )

ggplot(data=m, aes(m$ESTATURA)) + geom_histogram(breaks=seq(1.5, 1.9, by = 0.1),col="red", fill="green") + ggtitle("HISTOGRAMA DE ESTATURA") + xlab("ESTATURA") + labs(x="ESTATURA", y="FRECUENCIA") +  geom_vline ( aes (xintercept = mean ( ESTATURA , na.rm = T )), col = "blue" , linetype = "dashed" , size = 1 ) +  geom_density(col="black") + ggtitle("HISTOGRAMA DE ESTATURA") + xlab("ESTATURA") + labs(x="ESTATURA", y="FRECUENCIA")

NA