Factorización de enteros con grid
Vi esto y me dije: yo también quiero. Así que dicho y hecho:
Por si acaso, cada diagrama representa la descomposición en números primos de un número del 1 al 100.
El código (que no he adecentado lo que suelo) es un pequeño ejercicio con el paquete grid y unos elementos de recursividad (como en Grid, Scala y arbolitos fractales):
library(grid) library(gmp) plot.factors <- function(n, new.plot = TRUE){ if(new.plot) grid.newpage() divisors <- sort(as.