通过 R 计算数字组合

Question

I have following data.我有以下数据。 i want to first find out the most occurring digit on every place value.我想首先找出每个位值上出现次数最多的数字。 Obviously one place can have 10 possibilities from 0 to 9. Than i want an option where by i can choose 5 top occurrences or 6 or 7 or 8 top occurrences for eg if i choose 5 then the program should take the top 5 occurrences or if i choose 8 then program should leave out the least 2 occurring digits and take all others.显然，一个地方可以有 10 种可能性，从 0 到 9。比我想要一个选项，我可以选择 5 个最高出现次数或 6、7 或 8 个最高出现次数，例如，如果我选择 5，那么程序应该选择前 5 个出现次数，或者如果我选择 8 然后程序应该去掉最少出现的 2 个数字并取所有其他数字。

Data example:数据示例：

I want option of choosing 5, 6,7 or 8 top occurrences and 2 or 3 or 4number combination我想要选择 5、6、7 或 8 个最高出现次数和 2 个或 3 个或 4 个数字组合的选项

Expected results, 2 number combination basis top 8 occurrences and so on.预期结果，2 个数字组合基于前 8 次出现等。

Expected results, 3 number combination basis top 8 occurrences and so on.预期结果，3 个数字组合基于前 8 次出现等。

code i have tried我试过的代码

getwd()
setwd("C:/Users/aziq/Desktop")
library(xlsx)
x <- read.xlsx("numbers.xlsx","Sheet1")

    generate_combinations <- function(x, pos, n) {
      #select first pos characters from each string
      #split each character and create a matrix
      mat <- do.call(rbind, strsplit(substr(x, 1, pos), ''))
      #Find top n occurrence in each column of matrix
      tmp <- apply(mat, 2, function(x) tail(names(sort(table(x))), n))
      #Create all combinations of top occurrences.
      do.call(expand.grid, asplit(tmp, 2))
    }
    
    generate_combinations(x, 2, 8)
    nrow(generate_combinations(x, 2, 8))

Error it is showing它显示的错误

Error in asplit(tmp, 2) : dim(x) must have a positive length

Dput results:输出结果：

> dput(x)
structure(list(X076060 = c("693022", "585821", "980575", "438068", 
"766214", "051726", "060417", "822591", "015507", "635576", "180231", 
"212238", "417651", "631269", "720767", "348344", "532148", "748085", 
"474026", "380897", "512421", "749492", "423616", "950330", "930079", 
"097759", "638901", "319356", "683308", "818127", "880675", "256095", 
"639187", "339904", "945437", "799571", "466063", "428853", "397799", 
"782034", "462486", "739342", "879023", "419264", "793319", "603131", 
"315791", "351701", "151747", "365656", "982700", "348093", "793392", 
"946875", "912108", "070001", "780515", "222468", "345439", "234846", 
"227112", "757243", "341747", "480781", "906624", "868265", "388572", 
"947873", "898895", "452518", "738580", "217342", "849951", "437382", 
"247068", "743776", "562584", "636948", "049434", "139296", "688436", 
"443629")), class = "data.frame", row.names = c(NA, -82L))

Answer 1

We can write a function :我们可以写一个函数：

generate_combinations <- function(x, pos, n) {
  if(pos == 1) {
    return(data.frame(Var1 = names(sort(table(substr(x, 1, pos)),
                      = decreasing = TRUE)[1:n])))
  }
  #select first pos characters from each string
  #split each character and create a matrix
  mat <- do.call(rbind, strsplit(substr(x, 1, pos), ''))
  #Find top n occurrence in each column of matrix
  tmp <- apply(mat, 2, function(x) tail(names(sort(table(x))), n))
  #Create all combinations of top occurrences.
  do.call(expand.grid, asplit(tmp, 2))
}

generate_combinations(x, 2, 8)
#   Var1 Var2
#1     0    2
#2     2    2
#3     8    2
#4     6    2
#5     9    2
#6     3    2
#7     4    2
#8     7    2
#9     0    5
#10    2    5
#...
#...

nrow(generate_combinations(x, 2, 8))
#[1] 64
nrow(generate_combinations(x, 3, 8))
#[1] 512

data数据

x <- c("076060", "693022", "585821", "980575", "438068", "766214", 
"051726", "060417", "822591", "015507", "635576", "180231", "212238", 
"417651", "631269", "720767", "348344", "532148", "748085", "474026", 
"380897", "512421", "749492", "423616", "950330", "930079", "097759", 
"638901", "319356", "683308", "818127", "880675", "256095", "639187", 
"339904", "945437", "799571", "466063", "428853", "397799", "782034", 
"462486", "739342", "879023", "419264", "793319", "603131", "315791", 
"351701", "151747", "365656", "982700", "348093", "793392", "946875", 
"912108", "070001", "780515", "222468", "345439", "234846", "227112", 
"757243", "341747", "480781", "906624", "868265", "388572", "947873", 
"898895", "452518", "738580", "217342", "849951", "437382", "247068", 
"743776", "562584", "636948", "049434", "139296", "688436", "443629")

通过 R 计算数字组合

问题描述

1 个解决方案

解决方案1
1 已采纳 2020-11-19 04:28:05

通过 R 计算数字组合

问题描述

1 个解决方案

解决方案1 1 已采纳 2020-11-19 04:28:05

解决方案1
1 已采纳 2020-11-19 04:28:05