He creado la siguiente función.
estadisticos<-function (x) {
media<-mean(x, na.rm = T)
mediana<-median(x, na.rm = T)
desv.s<-sd(x, na.rm = T)
minimo<-min(x, na.rm = T)
maximo<-max(x, na.rm = T)
CV<-desv.s/media
tam<-sum(!is.na(x))
tab<-round(matrix(c(media,mediana,desv.s,minimo,maximo,CV,tam)),3)
row.names(tab)<-c("MEDIA","MEDIANA","DESV.STAND.","MÍNIMO","MÁXIMO", "COEF.VARIACIÓN","N")
tabla1
}
como se puede ver, con la función row.names()
he agregado los nombres a mi matriz tab
. Al usar la función con sólo un vector me resulta genial. Aparecen los nombres de las filas.
estadisticos(sample(1:1000,500, T))
[,1]
MEDIA 498.734
MEDIANA 508.000
DESV.STAND. 290.674
MÍNIMO 1.000
MÁXIMO 999.000
COEF.VARIACIÓN 0.583
N 500.000
Pero a la hora de usarlo con un apply
para obtener el resultado de varias columnas a la vez ya no me arroja los nombres de las filas.
df<-data.frame(t=sample(1:500,300,T),r=sample(1:100,300,T),u=sample(1:200,300,T))
apply(df, 2, estadisticos)
t r u
[1,] 249.333 50.473 105.710
[2,] 243.500 51.000 106.000
[3,] 141.354 27.406 57.541
[4,] 1.000 1.000 1.000
[5,] 500.000 100.000 200.000
[6,] 0.567 0.543 0.544
[7,] 300.000 300.000 300.000
Cómo podría especificar en la función para que los nombres de las filas se mantengan cuando uso un apply
o sapply
. No externamente, sino dentro de la función.
Muchas gracias de antemano