将整数分解为R中的两个整数

Question

我想将任何整数分解为两个整数并将结果保存在R中。例如，28应保存为1 X 28, 28 X 1, 2 X 14, 14 X 2, 4 X 7, 7 X 4。

Answer 1

我们可以尝试

 v1 <- 28
 x1 <- seq_len(v1)
 v2 <- combn(x1[v1%%x1==0], 2)
 v3 <- v2[,apply(v2, 2, FUN = prod) ==28]
 apply(cbind(v3, apply(v3, 2, rev)), 2, paste, collapse="*")
 #[1] "1*28" "2*14" "4*7"  "28*1" "14*2" "7*4"