如何从文本中读取数字

Question

input                                                output
 car number and model     400708   

                              how to read just numeric form    

输入输出 车号和型号 400708

                              how to read just numeric form     from the above data                              

输入输出 车号和型号 400708

                              how to read just numeric form     from the above data                                                                                                                                                                                                                                            

Answer 1

我们可以使用sub提取

df1$output <- as.numeric(sub(".*\\s+", "", df1$input))

---

或者如果这是基于位置，使用子字符串

substring(df1$input, nchar(df1$input)-5)

Answer 2

如果您想确保始终提取该 6 位代码，您可以使用一种方法来自动执行此操作，即使用正则表达式来执行此操作。

require(stringr)
input <- "S/O kk kumar sharma ropar rajasthan India 400708"
x<- str_extract(input, "\\d{6}$")

"" 告诉正则表达式您正在对字符串进行操作 \\d 说只取数字
[6} 说只取六位数
$ 说从字符串后面取它们

如果您的地址总是以这种方式出现，这是最有效的实施方式。