从字符串中提取第一个数字

Question

我有一个字符串thisLine，其中包含由空格分隔的11个数字。我想获得第一个数字。我尝试了命令：

grep('\\d*\\.\\d*',thisLine,value=TRUE)

它返回整个字符串，而不是第一个数字。我如何只返回第一个数字？

Answer 1

我确信有很多可能性，这里有一些我会考虑的事情：

thisLine <- paste(runif(11), collapse = " ")
thisLine
# [1] "0.841216114815325 0.861485596280545 0.973681036382914 0.683699210174382 0.95226536039263 0.368689567316324 0.173984130611643 0.497511914698407 0.870743532432243 0.45606177020818 0.222731305286288"

sub("\\s+.*", "", thisLine)              # assumes no leading space
sub("\\s*(\\S+?)\\s.*", "\\1", thisLine) # handles leading spaces
strsplit(thisLine, " ")[[1]][1]          # more flexible if you want 2nd, 3rd, ...

全部给予

# [1] "0.841216114815325"

Answer 2

您可以使用str_first_number()包中的strex函数很好地完成此操作。

pacman::p_load(strex)
johnsmith <- "John Smith, 34 years of age, 6ft tall, 85kg."
str_first_number(johnsmith, n = 1)
#> [1] 34
str_nth_number(johnsmith, n = 1)  # first number
#> [1] 34
str_nth_number(johnsmith, n = 2)  # second number
#> [1] 6
str_nth_number(johnsmith, n = -1)  # last number
#> [1] 85
str_last_number(johnsmith)
#> [1] 85

由reprex package（v0.2.0）创建于2018-09-03。