在R中實現ROT-13

Question

我想要一個函數，當傳遞一個只包含字母的字符串時，通過X字符在字符串中旋轉字符串中的每個字母，其中X是該函數的一個參數。這樣做的著名實例是當X = 13，這是所謂ROT-13

功能< - 型ROTX（STR中，x）{ ?? }

這是一種我期望R嚮導可以在幾行內完成的事情，而我最終會有10個或更多。

Answer 1

rotX <- function(ch,x) 
{ #rotate each letter of a string ch by x letters thru the alphabet, as long as x<=13 
    old <- paste(letters, LETTERS, collapse="", sep="") 
    new <- paste(substr(old, 2*x+1, 26*2), substr(old, 1, 26), sep="") 
    chartr(old, new, ch) 
} 

這兩個固定的我在註釋中提到的問題。

Answer 2

見?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) 
}