양식의 데이터를 가져오고 싶습니다
before = data.frame(attr = c(1,30,4,6), type=c('foo_and_bar','foo_and_bar_2'))
attr type
1 1 foo_and_bar
2 30 foo_and_bar_2
3 4 foo_and_bar
4 6 foo_and_bar_2
위에서 split()
” type
” 열을 사용 하여 다음과 같은 것을 얻으십시오.
attr type_1 type_2
1 1 foo bar
2 30 foo bar_2
3 4 foo bar
4 6 foo bar_2
나는 어떤 형태의 apply
일을 포함하는 믿을 수 없을만큼 복잡한 것을 생각해 냈지만 그 이후로 잘못 배치했습니다. 가장 좋은 방법이 되기에는 너무 복잡해 보였습니다. strsplit
아래와 같이 사용할 수 있지만 데이터 프레임에서 2 열로 다시 가져 오는 방법을 명확하지 않습니다.
> strsplit(as.character(before$type),'_and_')
[[1]]
[1] "foo" "bar"
[[2]]
[1] "foo" "bar_2"
[[3]]
[1] "foo" "bar"
[[4]]
[1] "foo" "bar_2"
포인터 주셔서 감사합니다. 나는 아직 R 목록을 완전히 이해하지 못했습니다.
답변
사용하다 stringr::str_split_fixed
library(stringr)
str_split_fixed(before$type, "_and_", 2)
답변
또 다른 옵션은 새로운 tidyr 패키지를 사용하는 것입니다.
library(dplyr)
library(tidyr)
before <- data.frame(
attr = c(1, 30 ,4 ,6 ),
type = c('foo_and_bar', 'foo_and_bar_2')
)
before %>%
separate(type, c("foo", "bar"), "_and_")
## attr foo bar
## 1 1 foo bar
## 2 30 foo bar_2
## 3 4 foo bar
## 4 6 foo bar_2
답변
5 년 후 필수 data.table
솔루션 추가
library(data.table) ## v 1.9.6+
setDT(before)[, paste0("type", 1:2) := tstrsplit(type, "_and_")]
before
# attr type type1 type2
# 1: 1 foo_and_bar foo bar
# 2: 30 foo_and_bar_2 foo bar_2
# 3: 4 foo_and_bar foo bar
# 4: 6 foo_and_bar_2 foo bar_2
우리는 또한 모두 결과 열이 올바른 유형이있을 것이라는 점을 확인 할 수 및 추가하여 성능을 개선 type.convert
하고 fixed
(이후 인수 "_and_"
정말 정규식되지 않습니다)
setDT(before)[, paste0("type", 1:2) := tstrsplit(type, "_and_", type.convert = TRUE, fixed = TRUE)]
답변
또 다른 접근법 : rbind
on out
:
before <- data.frame(attr = c(1,30,4,6), type=c('foo_and_bar','foo_and_bar_2'))
out <- strsplit(as.character(before$type),'_and_')
do.call(rbind, out)
[,1] [,2]
[1,] "foo" "bar"
[2,] "foo" "bar_2"
[3,] "foo" "bar"
[4,] "foo" "bar_2"
그리고 결합 :
data.frame(before$attr, do.call(rbind, out))
답변
“[“를 사용하여 sapply를 사용하면 해당 목록에서 첫 번째 또는 두 번째 항목을 추출 할 수 있습니다.
before$type_1 <- sapply(strsplit(as.character(before$type),'_and_'), "[", 1)
before$type_2 <- sapply(strsplit(as.character(before$type),'_and_'), "[", 2)
before$type <- NULL
다음은 gsub 방법입니다.
before$type_1 <- gsub("_and_.+$", "", before$type)
before$type_2 <- gsub("^.+_and_", "", before$type)
before$type <- NULL
답변
다음은 aniko 솔루션과 동일한 라인을 따라 하나의 라이너이지만 hadley의 stringr 패키지를 사용합니다.
do.call(rbind, str_split(before$type, '_and_'))
답변
옵션에 추가하려면 다음 splitstackshape::cSplit
과 같이 내 기능을 사용할 수도 있습니다 .
library(splitstackshape)
cSplit(before, "type", "_and_")
# attr type_1 type_2
# 1: 1 foo bar
# 2: 30 foo bar_2
# 3: 4 foo bar
# 4: 6 foo bar_2