通过分隔符将列分成多列
问题描述:
我有一个data.frame,列中有“进攻”。每次进攻由文章(艺术),一个段落(ABS)和第(齐夫)的:通过分隔符将列分成多列
df<-data.frame(offence=c("Art. 110 Abs. 3 StGB","Art. 10 Abs. 1 StGB", "Art. 122 SVG", "Art. 1 Ziff. 2 UWG"))
> df
offence
1 Art. 110 Abs. 3 StGB
2 Art. 10 Abs. 1 StGB
3 Art. 122 SVG
4 Art. 1 Ziff. 2 UWG
但我需要把它以这样的形式:
Art Ziff Abs Law
1 110 NA 3 StGB
2 10 NA 1 StGB
3 122 NA NA SVG
4 1 2 NA UWG
是什么获得这个结果的最好方法是什么? lapply?
谢谢!
答
可以使用str_extract
从stringr
:
library(stringr)
library(dplyr)
df$offence %>%
{data.frame(Art = str_extract(., "(?<=Art[.]\\s)\\d+"),
Ziff = str_extract(., "(?<=Ziff[.]\\s)\\d+"),
Abs = str_extract(., "(?<=Abs[.]\\s)\\d+"),
Law = str_extract(., "\\w+$"))}
结果:
Art Ziff Abs Law
1 110 <NA> 3 StGB
2 10 <NA> 1 StGB
3 122 <NA> <NA> SVG
4 1 2 <NA> UWG
答
将其转换为DCF形式(即关键字:值),使用gsub
,然后在使用read.dcf
读取它。最后将read.dcf
生成的矩阵转换为数据框并将任意数量的列转换为数字。没有包被使用。
s <- gsub("(\\S+)[.] (\\d+)", "\\1: \\2\n", df[[1]]) # convert to keyword: value
s <- sub(" (\\D+)$", "Law: \\1\n\n", s) # handle Law column
us <- trimws(unlist(strsplit(s, "\n"))) # split into separate components
DF <- as.data.frame(read.dcf(textConnection(us)), stringsAsFactors = FALSE)
DF[] <- lapply(DF, type.convert)
捐赠:
Art Abs Law Ziff
1 110 3 StGB NA
2 10 1 StGB NA
3 122 NA SVG NA
4 1 NA UWG 2
大,非常感谢你! –