通过分隔符将列分成多列

我有一个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？

谢谢！

来源

2017-10-05 D. Studer

可以使用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

来源

2017-10-05 14:45:48 useR

大，非常感谢你！ –

将其转换为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

来源

2017-10-05 15:08:56

通过分隔符将列分成多列

回答

相关问题