如何在保留零的数量的同时将数字转换为字符？

Question

我的数据框包含具有固定小数位数的数字（五）

data <- data_frame(number = c(1.43010, 1.43011, 1.43012 ,1.43013))
# A tibble: 4 × 1
   number
    <dbl>
1 2.43010
2 2.43011
3 2.43012
4 2.43013

我需要做的是提取每个number的最后两个字符。但是这样做：

mutate(data, extract = str_sub(as.character(number),-2,-1))
# A tibble: 4 × 2
   number extract
    <dbl>   <chr>
1 1.43010      01
2 1.43011      11
3 1.43012      12
4 1.43013      13

失败，因为2.43010中的零点在转换过程中消失了。

我可以在这做什么？ 谢谢！