r - Rを使用して数字を数字に抽出する方法は?

Question

番号があるとします: 4321

それを数字に抽出したい：4、3、2、1

どうすればいいですか？

Answer 1

楽しみのために、ここにばかげた方法があります。

digspl<-function(x){
    x<-trunc(x) # justin case
    mj<-trunc(log10(x))
    y <- trunc(x/10^mj)
    for(j in 1:mj) {
 y[j+1]<- trunc((x-y[j]*10^(mj-j+1))/(10^(mj-j)))
    x<-  x - y[j]*10^(mj-j+1)
    }
    return(y)
}

Answer 2

楽しみのために、ここに別の方法があります：

x <- 4321
read.fwf(textConnection(as.character(x)), rep(1, nchar(x)))
#   V1 V2 V3 V4 
# 1  4  3  2  1

私が考えることができる唯一の利点は、入力をさまざまな幅に展開できることですが、部分文字列でもそれを行うことができると思います。