目录
- install.packages("stringr")
- library(stringr)
- # 创建一个包含正负小数的向量
- vec <- c("1.5", "-2.7", "3.8", "-4.2", "5.0", "missing value")
-
- # 使用正则表达式提取正负小数
- Result <- str_extract(vec, "-?\\d.*\\d")
- print(str_extract(vec, "-?\\d.*\\d"))
-
- print(na.omit(Result))
- Res <- na.omit(Result)
- sum(as.numeric(Res))
-
- #or
- Result_1 <- as.numeric(Result)
- Result_2 <- Result_1[!is.na(Result_1)]
- Result_2
- sum(Result_2)

关于str_extract()函数的介绍可以参考下面的书籍:
