所见非所得，差点掉坑里

0.发现问题

我在数据分析过程中有一个需求，要数出一个数字里面有多少个0。比如：

rm(list = ls())
x = 0.08
library(stringr)
str_count(x,"0")

## [1] 2

但今天用起来时发现了问题：

load("b.Rdata")
head(b)

## # A tibble: 6 × 3
##   site                       cor nlogp
##   <chr>                    <dbl> <dbl>
## 1 autonomic_ganglia      -0.183  0.304
## 2 biliary_tract           0.721  1.36 
## 3 bone                    0.341  1.05 
## 4 breast                  0.312  1.74 
## 5 central_nervous_system -0.0478 0.152
## 6 endometrium             0.516  2.31

x = min(b$nlogp);x

## [1] 0.00351331

str_count(x,"0")

## [1] 7

眼睛看到3个0，函数数出7个0？然后我就怀疑函数瓦特了。

愣了一下，反应过来了，是我瓦特了。x并不是只有这么几位的，只是没全部显示。

x

## [1] 0.00351331

as.character(x)

## [1] "0.00351331036060037"

所以。。。擦亮眼睛。我差点因为这个搞出来有bug的教学内容。还好发现的早。