[英]Split column by multiple delimiters, keeping delimiters
如何使用%, - 和+作为可能的分隔符将字符列拆分为3列,并将分隔符保留在新列中?
示例数据:
data <- data.table(x=c("92.1%+100-200","90.4%-1000+200", "92.8%-200+100", "99.2%-500-200","90.1%+500-200"))
示例所需数据:
data.desired <- data.table(x1=c("92.1%", "90.4%", "92.8%","99.2%","90.1%")
, x2=c("+100","-1000","-200","-500","+500")
, x3=c("-200","+200","+100","-200","-200"))
很高兴为这个问题提供一个好的答案和一些帮助!
我们可以separate
使用tidyr
进行拆分,并使用正向tidyr
来保留分隔符:
data %>% separate(x, c("x1", "x2", "x3"), sep = "(?=\\+|-)")
# x1 x2 x3
# 1: 92.1% +100 -200
# 2: 90.4% -1000 +200
# 3: 92.8% -200 +100
# 4: 99.2% -500 -200
# 5: 90.1% +500 -200
也就是说,请注意简单地用\\\\+|-
分割,我们会得到
data %>% separate(x, c("x1", "x2", "x3"), sep = "\\+|-")
# x1 x2 x3
# 1: 92.1% 100 200
# 2: 90.4% 1000 200
# 3: 92.8% 200 100
# 4: 99.2% 500 200
# 5: 90.1% 500 200
使用(?=\\\\+|-)
拆分为“无”,以后我们有+
或-
(不匹配)。
在data.table
,等效的是tstrsplit
:
data[, c("x1","x2","x3") := tstrsplit(x, "(?<=.)(?=[+-])", perl=TRUE) ]
data
# x x1 x2 x3
#1: 92.1%+100-200 92.1% +100 -200
#2: 90.4%-1000+200 90.4% -1000 +200
#3: 92.8%-200+100 92.8% -200 +100
#4: 99.2%-500-200 99.2% -500 -200
#5: 90.1%+500-200 90.1% +500 -200
这是使用base R
的选项
cbind(data, read.csv(text = gsub("(?=[+-])", ",", data$x, perl = TRUE),
header = FALSE, stringsAsFactors = FALSE, col.names = c('x1', 'x2', 'x3')))
# x x1 x2 x3
#1: 92.1%+100-200 92.1% 100 -200
#2: 90.4%-1000+200 90.4% -1000 200
#3: 92.8%-200+100 92.8% -200 100
#4: 99.2%-500-200 99.2% -500 -200
#5: 90.1%+500-200 90.1% 500 -200
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.