目录

一、实现代码：

二、运行结果：

三、str_extract()函数介绍材料

---

一、实现代码：

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()函数介绍材料

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

 

参考：在R中移除包含NA的行 | 诸子百家 (uteric.github.io)