Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
f_crearHistograma <- function( p_data, p_columnas )
{
# Iterar sobre columnas y normalizar
my_data <- mapply( FUN = f_normalizar
, USE.NAMES = T
, SIMPLIFY = T
, p_data[ , p_columnas ]
)
my_data <- as.data.frame.matrix( x = my_data )
# Crear resumen de numeros
my_summ <- lapply( FUN = f_computos
, X = my_data
)
my_summ <- do.call( what = rbind, args = my_summ )
my_summ$Atributo <- row.names( x = my_summ )
row.names( x = my_summ ) <- NULL
# Transformar Datasets
mltd <- f_transformar(p_data = my_data, p_summ = my_summ)
# Crear grafica
grafica <- f_generarGrafica( mltd )
list( grafica = grafica
, datos = my_data
, resumen = my_summ
)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment