R - 在 if 循环中输入数字序列仅遵循一个条件 [重复]

Question

这个问题在这里已经有了答案：

如何添加前导零？ (8 个回答)

去年关闭。

我正在制作一个 function ，它将前导零放在数字上，使其成为一个 3 位字符串，并为每个字符串添加.csv。 这是我的代码

filename <- function(id) {
  
  if (id<10) {
    file_name=paste("00",id,".csv", sep="")
  }
  else if (id<100) {
    file_name=paste("0",id,".csv", sep="")
  }
  else  {
    file_name=paste(id,".csv", sep="")
    }
  file_name
}

当我输入文件名（1:12）时，以下是 output

the condition has length > 1 and only the first element will be used [1] "001.csv"  "002.csv"  "003.csv"  "004.csv"  "005.csv"  "006.csv"  "007.csv"  "008.csv"  "009.csv"  "0010.csv"
[11] "0011.csv" "0012.csv"

基本上我的问题是，一旦 id 达到 10，它仍然遵循第一个 if 条件。 当涉及到 id=10 及更高时，假定的 output 应该是 010.csv 等等。 如何修复我的代码？

Answer 1

问题是您的 function 未矢量化，即 if 条件仅使用 1:12 (= 1) 的第一个元素来检查条件。 使用stringr::str_pad你可以达到你想要的结果，如下所示：

paste0(stringr::str_pad(1:12, width = 3, pad = "0"), ".csv")

Answer 2

导入字符串library(stringr)

定义所有文件名

filename<-seq(1:12)

写一个 function Y 返回 3 位数名称

Y<-function(id){
  paste(stringr::str_pad(id, width=3, pad="0"),".csv", sep="")
  
}

使用 apply 来调用它

lapply(filename,Y)