在r中添加前导零

Question

我的数据集包含应该为5位数字的代码。但是，有一些4位数字。我想在这些值前面加上4位数字添加前导零。我使用了以下代码：

labos$postal1 <- sprintf("%05d", labos$postal)

此命令在所有值（包括5位数字）之前添加零。

帮我将零添加到4位数字的值上。