在数字 <= 9 前面放一个 0(对于 r 中的循环仅在最后一个实例上工作)

Question

我写这篇文章是为了找到"1:"到"9:"的任何实例，并将其替换为"01:"到"09:"，同时保留"10:"或更大的完整。下面是一个示例脚本:

region = c("18:1-100","16:1-100","X:1-100","2:1-100","4:1-100")
to.replace=grep("^[[:digit:]]:", region)
replacement=grep("^[[:digit:]]:", region, value=T)
replacement=paste(0,replacement,sep="")
for (i in length(to.replace)){
  region[to.replace[i]]=replacement[i]
}

它只适用于"region"中的最后一次出现，因此我认为我的for循环有问题，我只是不知道是什么。

Answer 1

将for循环替换为:

region[to.replace] <- replacement

Answer 2

您可以使用lapply…

region = c("18:1-100","16:1-100","X:1-100","2:1-100","4:1-100")
lapply( region , function(x){ r <- grepl("^[[:digit:]]:", x) ; ifelse( r , paste0( 0 , grep("^[[:digit:]]:", x , value=T) ) , x ) } )