示例数据：

quux <- data.frame(VERS_chr = c("20220901.000","20220901.002","20220901.000","20220901.002"),
                   VERS_num = c(20220901.000,20220901.002,20220901.000,20220901.002))

如果数据中is.character(quux$VERSION)为真，则

dplyr::filter(quux, grepl("\\.000$", VERS_chr))
#       VERS_chr VERS_num
# 1 20220901.000 20220901
# 2 20220901.000 20220901

说明：

• "\\.000$"匹配字符串（$）末尾的文本句点.（由于它是正则表达式保留符号，因此需要转义）后跟三个文本零000。有关正则表达式的更多信息，请参见https://stackoverflow.com/a/22944075/3358272。

如果为false（并且不是factor），则

dplyr::filter(quux, abs(VERS_num %% 1) < 1e-3)
#       VERS_chr VERS_num
# 1 20220901.000 20220901
# 2 20220901.000 20220901

说明：

• abs(.) < 1e-3可以防御高精度的相等性测试，因为浮点数的限制（通常在计算机中）并不总是将非常接近零的数字视为零。请参阅Why are these numbers not equal?，https://cran.r-project.org/doc/FAQ/R-FAQ.html#Why-doesn_0027t-R-think-these-numbers-are-equal_003f。
• . %% 1是模数运算符，将数字缩减到其小数部分。