求如何用R提取字符串数字并进行后续运算

有一个txt文档，其里面内容如下：
abcde
aaa666
太阳
月亮
NO1:5678
NO2:123456
88899
3344
6677

如何用R语言提取txt中的特定字段NO1:5678，NO2:NO2:123456，提取里面的数字，然后提取出来的数字5678和123456进行后续的R语言计算，NO1*NO2，并求出结果，多谢

你说的是这个么？

1. grep("NO",x,value=TRUE)
   
2. [1] "NO1:5678"   "NO2:123456"

复制代码

分成进行，对每一行进行是否包含数值的判断，提取出包含数值的行；然后对这些行进行整理，删除，整理出只含有数值的矩阵，对这个矩阵进行数值化运算。理论上应该可以做到

1. library(readr)
   
2. 
   
3. x <- c('a123','h23b','No1234')
   
4. y <- parse_number(x)

复制代码

要给我币啊

1. x <- c("abcde","aaa666","太阳","月亮","NO1:5678","NO2:123456","88899","3344","6677")
   
2. library(stringr)
   
3. ## str_locate用来计算NO1:出现的位置
   
4. str_locate(x,":[0-9]+")[,1]
   
5. ## 用substring函数来提取
   
6. y <- substring(x,str_locate(x,":[0-9]+")[,1]+1,)
   
7. ## 再用as.numeric()来数值化
   
8. as.numeric(y)

复制代码

然后，你可以做乘法运算了

jiangbeilu 发表于 2016-12-2 22:04
然后，你可以做乘法运算了

有没有直接提取NO字段，读取后面的数字，如果两个数据不在一起，这个脚本就不好用啦