Como crear grupos de manera facil basandose en el orden

library( Hmisc )
funApply <- function( x) { cut2(x, g= 5) %>% as.factor %>% as.numeric}
x <- apply( X = data.frame(mtcars) , MARGIN = 2,FUN = funApply)

Como ver las depencias de una función

Con el paquete codetools tenemos una serie de funciones para desarrollo rapido. Y ya que en R no se pueden hacer diagramas de uml automáticos que yo sepa. Son bastante utiles.


codetools::findGlobals

Por ejemplo podemos ver aquí como funciona:

codetools::findGlobals( fun = shapiro.test, merge = FALSE)
#
# $functions
# [1] "-"              ".Call"          "["              "{"              "/"          
# [6] "<"              "<-"             "=="             ">"              "||"          
# [11] "c"              "class<-"        "complete.cases" "deparse"        "if"          
# [16] "is.na"          "is.numeric"     "length"         "list"           "return"      
# [21] "sort"           "stop"           "stopifnot"      "substitute"  
#
# $variables
# [1] "C_SWilk"

Pequeño arreglo en la entrada anterior.

Al final enconté la solución en la extraña representación. Los ejes estaban alrevés.
Aquí os dejo los nuevos scripts y como queadarían bien representadas las solucioens.
En el resto de scripts bastaría cambiar lo siguiente :
  annotation_custom(grob = image_1, # Image
                    xmin= 0, # Coordinates to represent the image
                    xmax= 1000,
                    ymin= 0,
                    ymax= 700 # Ahora ya ajustará bien
                   
  ) +

---

En este script solo hay que fijarse en las dos últimas lineas donde hago el cambio de coordenas para que ajuste correctamente en las gráficas.

---

---

---

---