从 data.frame 的列中的字符串中检索数字
Retrieve numbers from a string in the columns of a data.frame
我有来自特定文件格式的这 4 列:
=1 =1 =1 =1
4G 4B 4d 2g
4E 8cL 4e .
. 8BJ . .
4F# 4A 4d 4dd
=2 =2 =2 =2
4G 4G 2d 4.b
4D 4F# . .
. . . 8a
4E 4G 4B 4g
我想把它转换成下面的样子data.frame:
1 1 1 1
4 4 4 2
4 8 4 .
. 8 . .
4 4 4 4
2 2 2 2
4 4 2 4
4 4 . .
. . . 8
4 4 4 4
我想有一个图书馆可以做这类事情。我已经尝试为此创建一个函数,但无法正常工作。任何贡献都会得到回报。
我们可以使用 readr
包中的 parse_number
。
library(readr)
library(dplyr)
df %>%
mutate_all(parse_number)
# V1 V2 V3 V4
#1 1 1 1 1
#2 4 4 4 2
#3 4 8 4 NA
#4 NA 8 NA NA
#5 4 4 4 4
#6 2 2 2 2
#7 4 4 2 4
#8 4 4 NA NA
#9 NA NA NA 8
#10 4 4 4 4
我们也可以使用lapply
将函数应用到所有列
df[] <- lapply(df, parse_number)
我有来自特定文件格式的这 4 列:
=1 =1 =1 =1
4G 4B 4d 2g
4E 8cL 4e .
. 8BJ . .
4F# 4A 4d 4dd
=2 =2 =2 =2
4G 4G 2d 4.b
4D 4F# . .
. . . 8a
4E 4G 4B 4g
我想把它转换成下面的样子data.frame:
1 1 1 1
4 4 4 2
4 8 4 .
. 8 . .
4 4 4 4
2 2 2 2
4 4 2 4
4 4 . .
. . . 8
4 4 4 4
我想有一个图书馆可以做这类事情。我已经尝试为此创建一个函数,但无法正常工作。任何贡献都会得到回报。
我们可以使用 readr
包中的 parse_number
。
library(readr)
library(dplyr)
df %>%
mutate_all(parse_number)
# V1 V2 V3 V4
#1 1 1 1 1
#2 4 4 4 2
#3 4 8 4 NA
#4 NA 8 NA NA
#5 4 4 4 4
#6 2 2 2 2
#7 4 4 2 4
#8 4 4 NA NA
#9 NA NA NA 8
#10 4 4 4 4
我们也可以使用lapply
将函数应用到所有列
df[] <- lapply(df, parse_number)