R 用密文字母代替字母
我一直在使用R的gsub2函数来创建密文:R 用密文字母代替字母,r,R,我一直在使用R的gsub2函数来创建密文: from<-c('s','l','k','u','m','i','x','j','o','p','n','q','b','v','w','z','f','y','t','g','h','a','e','d','c','r') to<-c('z','e','b','r','a','s','c','d','f','g','h','i','j','k','l','m','n','o','p','q','t','u','v','w','x','
from<-c('s','l','k','u','m','i','x','j','o','p','n','q','b','v','w','z','f','y','t','g','h','a','e','d','c','r')
to<-c('z','e','b','r','a','s','c','d','f','g','h','i','j','k','l','m','n','o','p','q','t','u','v','w','x','y')
fromf->n和s->z->n),这会弄乱我的密文,几乎无法解码。谁能指出我犯的错误吗?谢谢 一种方法是使用命名向量作为编码密码。创建这样一个命名向量的简单方法是使用setNames
:
cipher <- setNames(to, from)
cipher
s l k u m i x j o p n q b v w z f y t g h a e d c r
"z" "e" "b" "r" "a" "s" "c" "d" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "t" "u" "v" "w" "x" "y"
您还可以使用chartr
,如(流行:12 ups)对您所引用问题的回答中所述:
cipher <- function(x)
chartr( "slkumixjopnqbvwzfytghaedcr", "zebrascdfghijklmnopqtuvwxy", x )
密码
cipher <- function(x)
chartr( "slkumixjopnqbvwzfytghaedcr", "zebrascdfghijklmnopqtuvwxy", x )