假设如果我们有一个数字1.000633，我想计算小数点后的零数，直到小数中的第一个非零数字，答案应该为3.对于0.002，答案应该是2。
使用regexpr及其match.length参数
attr(regexpr("(?<=\\.)0+",x,perl = TRUE),"match.length")
attr(regexpr("(?<=\\.)0+",x,perl = TRUE),"match.length")
