r - 数字を導出するためのR関数はありますか?

Question

過去に解決策を見たことがありますが、どこを忘れましたか: x=1234 を数字 (1,2,3,4) に変換する R 関数はありますか?

Answer 1

a <- c("1234")
res <- strsplit(a,"")
res
#[[1]]
#[1] "1" "2" "3" "4"

aが数値ベクトルの場合は、最初に文字列としてキャストする必要があることに注意してください。必要に応じて、後で結果を数値に再キャストできます。res次のコマンドは、最初に返されたリスト形式のままである限り、これを行います。

lapply(res,as.numeric)
#[[1]]
#[1] 1 2 3 4

res入力文字列ごとに 1 つの項目を含むリストが含まれ、各文字がベクトル内の独自の要素に割り当てられます。この場合、入力文字列は 1 つしかないため、出力にはリスト項目 (ベクトルを含む) が 1 つだけあります。

paste()逆の操作は、次の関数で実行できます。

a<-c(5,2,8,0)
paste(a,collapse="")

あなたはでまとめることができpasteますas.numeric()

Answer 2

ここに別の可能性があります：

x <- 1234
as.numeric(sapply(sequence(nchar(x)), function(y) substr(x, y, y)))
# [1] 1 2 3 4

nchar「文字列」の長さが何文字かを示します。をラップすると、sequenceに必要な位置が生成されsubstrます。開始位置と終了位置に基づいて、抽出前にsubstr入力を自動的に変換します。character