Question

假设我有一个号码：4321

我希望将其提取为数字：4,3,2,1

我该怎么做？

Answer 1

或者，使用strsplit：

x <- as.character(4321)
as.numeric(unlist(strsplit(x, "")))
[1] 4 3 2 1

Answer 2

使用substring提取每个索引处的字符，然后将其转换回整数：

x <- 4321
as.integer(substring(x, seq(nchar(x)), seq(nchar(x))))
[1] 4 3 2 1

Answer 3

对于真实的乐趣，这是一个荒谬的方法：

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 4

为了好玩，这里有另一种选择：

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

我能想到的唯一优势是可以将输入爆炸成不同的宽度，但我猜你也可以用子串来做。

Answer 5

使用模运算符的另一种解决方案：

get_digit <- function(x, d) {
    # digits from the right
    # i.e.: first digit is the ones, second is the tens, etc.
    (x %% 10^d) %/% (10^(d-1))
}

# for one number
get_all_digit <- function(x) {
    get_digit_x <- function(d) get_digit(x,d)
    sapply(nchar(x):1, get_digit_x) 
}

# for a vector of numbers
digits <- function(x) {
    out <- lapply(x, get_all_digit)
    names(out) <- x
    out
}

示例：

> digits(100:104)
$`100`
[1] 1 0 0

$`101`
[1] 1 0 1

$`102`
[1] 1 0 2

$`103`
[1] 1 0 3

$`104`
[1] 1 0 4

如何使用R将数字提取为数字？

5 个答案: