有没有办法将字母延伸超过26个字符,例如AA,AB,AC ......？

Question

我大部分时间都使用LETTER来表达我的因素,但今天我试图超过26个字符:

LETTERS[1:32]

期待有一个自动递归分解AA,AB,AC ...但是很失望.这仅仅是LETTERS的限制还是有办法获得我正在寻找的另一个功能？

Answer 1

702会不够？

LETTERS702 <- c(LETTERS, sapply(LETTERS, function(x) paste0(x, LETTERS)))

如果没有,18,278怎么样？

MOAR_LETTERS <- function(n=2) {
  n <- as.integer(n[1L])
  if(!is.finite(n) || n < 2)
    stop("'n' must be a length-1 integer >= 2")

  res <- vector("list", n)
  res[[1]] <- LETTERS
  for(i in 2:n)
    res[[i]] <- c(sapply(res[[i-1L]], function(y) paste0(y, LETTERS)))

  unlist(res)
}
ml <- MOAR_LETTERS(3)
str(ml)
# chr [1:18278] "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" ...

Answer 2

此解决方案使用递归.用法有点不同意义MORELETTERS上不是一个长矢量,你必须存储,并可能随着输入变大而扩展.相反,它是一个将您的数字转换为新基数的函数.

extend <- function(alphabet) function(i) {
   base10toA <- function(n, A) {
      stopifnot(n >= 0L)
      N <- length(A)
      j <- n %/% N 
      if (j == 0L) A[n + 1L] else paste0(Recall(j - 1L, A), A[n %% N + 1L])
   }   
   vapply(i-1L, base10toA, character(1L), alphabet)
}
MORELETTERS <- extend(LETTERS)         

MORELETTERS(1:1000)
# [1] "A" "B" ... "ALL"
MORELETTERS(c(1, 26, 27, 1000, 1e6, .Machine$integer.max))
# [1] "A"       "Z"       "AA"      "ALL"     "BDWGN"   "FXSHRXW"

Answer 3

excel样式列名的另一种解决方案,通用于任意数量的字母

#' Excel Style Column Names
#'
#' @param n maximum number of letters in column name
excel_style_colnames <- function(n){
  unlist(Reduce(
    function(x, y) as.vector(outer(x, y, 'paste0')),
    lapply(1:n, function(x) LETTERS),
    accumulate = TRUE
  ))
}

Answer 4

你可以像这样制作你想要的东西:

LETTERS2<-c(LETTERS[1:26], paste0("A",LETTERS[1:26]))

Answer 5

还有一个选择:

l2 = c(LETTERS, sort(do.call("paste0", expand.grid(LETTERS, LETTERS[1:3]))))

调整LETTERS内部的两个实例expand.grid以获得您想要的字母对数.

Answer 6

在eipi10的方法的变体使用(正确排序)data.table:

library(data.table)
BIG_LETTERS <- c(LETTERS,
                 do.call("paste0",CJ(LETTERS,LETTERS)),
                 do.call("paste0",CJ(LETTERS,LETTERS,LETTERS)))

Answer 7

用于生成Excel样式列名的函数,即

# A, B, ..., Z, AA, AB, ..., AZ, BA, BB, ..., ..., ZZ, AAA, ...

letterwrap <- function(n, depth = 1) {
    args <- lapply(1:depth, FUN = function(x) return(LETTERS))
    x <- do.call(expand.grid, args = list(args, stringsAsFactors = F))
    x <- x[, rev(names(x)), drop = F]
    x <- do.call(paste0, x)
    if (n <= length(x)) return(x[1:n])
    return(c(x, letterwrap(n - length(x), depth = depth + 1)))
}

letterwrap(26^2 + 52) # through AAZ

## This will take a few seconds:
# x <- letterwrap(1e6)

它可能不是最快的,但它无限延伸并且可以很好地预测.花了大约20秒才产生100万,BDWGN.

(有关更多详细信息,请参阅此处:https://stackoverflow.com/a/21689613/903061)

Answer 8

聚会有点晚了，但我也想玩。

您还可以使用sub, andsprintf代替paste0并获得长度为 702 的向量。

c(LETTERS, sapply(LETTERS, sub, pattern = " ", x = sprintf("%2s", LETTERS)))