string - 在 R 中实现 ROT-13

Question

我想要一个函数，当传递一个只包含字母的字符串时，将字符串中的每个字母通过字母表旋转 X 个字符，其中 X 是函数的参数。著名的例子是当 X=13 时，称为 ROT-13

函数 <- ROTx(str,x) {
??
}

这是我期望 R 向导只需几行就可以完成的事情，而我最终会得到 10 行或更多行。

Answer 1

见 ?chartr (示例部分):

rot <- function(ch, k = 13) {
   p0 <- function(...) paste(c(...), collapse="")
   A <- c(letters, LETTERS, " '")
   I <- seq_len(k)
   chartr(p0(A), p0(c(A[-I], A[I])), ch)
}

或在这里 http://rosettacode.org/wiki/Rot-13#R :

rot13 <- function(x)
{
  old <- paste(letters, LETTERS, collapse="", sep="")
  new <- paste(substr(old, 27, 52), substr(old, 1, 26), sep="")
  chartr(old, new, x)
}