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的教学内容。还好发现的早。
