正则表达式 – 从字符串中提取n小数

我已经浏览了一半的stackoverflow来寻找这个,但似乎没有什么完全匹配,抱歉,如果错了.

我有一个格式的字符串：

fname< - ''FS1_SCN0.83_axg3.csv' 我想提取第二个数字,恰好是一个小数,但也可以是一个整数,得到的结果为0.83(如果是整数则为3).我最近的是这个：

gsub("[^0-9.]","\\2",fname)

在fname(10.833.)中生成所有数字和小数点,但作为整个字符串.

在此先感谢,p.

解决方法

要获得第二个数字,

regmatches(x,regexpr("^\\D*\\d+\\D*\\K\\d+(?:\\.\\d+)?",x,perl=TRUE))

Demo

要么

sub("^\\D*\\d+\\D*(\\d+(?:\\.\\d+)?).*","\\1",perl=TRUE)

例：

> x <-'FS1_SCN0.83_axg3.csv'
> regmatches(x,perl=TRUE))
[1] "0.83"
> sub("^\\D*\\d+\\D*(\\d+(?:\\.\\d+)?).*",perl=TRUE)
[1] "0.83"

对于更一般的情况,

regmatches(x,regexpr("^\\D*\\d+(?:\\.\\d+)?\\D*\\K\\d+(?:\\.\\d+)?",perl=TRUE))
sub("^\\D*\\d+(?:\\.\\d+)?\\D*(\\d+(?:\\.\\d+)?).*",perl=TRUE)

要么

只需指定索引号即可获得所需的数字.

> regmatches(fname,gregexpr("\\d+(?:\\.\\d+)?",fname))[[1]][2]
[1] "0.83"