f_crearHistograma.R

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
      )
  
}