r - 将数字转换为特殊格式

Question

在我的数据处理中，我需要执行以下操作:

    #convert '7-25' to '0007 0025'
    #pad 0's to make each four-digit number 
    digits.formatter <- function ('7-25'){.......?}

我不知道如何在 R 中做到这一点。有人可以帮忙吗？

Answer 1

在基 R 中，在 - 处拆分字符串(或字符串向量) ，将其部分转换为数字，使用 sprintf 格式化部分，然后将它们重新粘贴在一起。

sapply(strsplit(c("7-25", "20-13"), "-"), function(x)
    paste(sprintf("%04d", as.numeric(x)), collapse = " "))
#[1] "0007 0025" "0020 0013"