是否有用於導出數字的R函數？

Question

我已經看到了過去的解決方案，但忘記了在哪裏：是否有R函數將x = 1234轉換爲數字（1,2,3,4），反之亦然？

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將包含每個輸入串的一個項目與在載體中分配給它自己的元件的每個字符的列表。在這種情況下，只有一個輸入字符串，因此輸出中只有一個列表項（其中包含一個矢量）。

反向操作可與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。