相关疑难解决方法(0)

我有一组看起来像这样的数据:

anim <- c(25499,25500,25501,25502,25503,25504)
sex  <- c(1,2,2,1,2,1)
wt   <- c(0.8,1.2,1.0,2.0,1.8,1.4)
data <- data.frame(anim,sex,wt)

data
   anim sex  wt anim2
1 25499   1 0.8     2
2 25500   2 1.2     2
3 25501   2 1.0     2
4 25502   1 2.0     2
5 25503   2 1.8     2
6 25504   1 1.4     2

我希望在每个动物ID之前添加零:

data
   anim sex  wt anim2
1 025499   1 0.8     2
2 025500   2 1.2     2
3 025501   2 1.0     2
4 025502   1 2.0     2
5 025503   2 1.8     2
6 …

以下代码

a <- seq(1,101,25)
b <- paste("name", 1:length(a), sep = "_")

产生这个输出:

"name_1"  "name_26"  "name_51"  "name_76"  "name_101"

我希望所有值的宽度相同,这意味着我可以用这样的零填充值:

"name_001"  "name_026"  "name_051"  "name_076"  "name_101"

我该如何处理？

_{(这个问题是关系到这一个.)}