첫 번째 공백에서 문자열 분할

Question

문자열 문자열 (사람 이름)을 두 개의 열 (벡터)로 분할하고 싶습니다. 문제는 어떤 사람들에게는 '두 단어'라는 성이 있다는 것입니다. 이름과 성을 두 개의 열로 나누고 싶습니다. 나는 밑줄을 긋고 아래 코드를 사용하여 이름을 쓰지만 성은 나를 벗어난다. (포드는 함께 보존되어야하는 Pantera L의 "성"을 가지고있는 아이디어를 얻기 위해 아래의 샘플 세트에서 obs 29를보십시오)

내가 지금까지 시도한 바는 무엇입니까?

x<-rownames(mtcars) 
unlist(strsplit(x, " .*")) 

내가 좋아하는보고를하고 싶은 것 : 당신이 패턴 및 그룹 매칭을 할 수 있다면

  MANUF  MAKE 
27   Porsche  914-2 
28   Lotus  Europa 
29   Ford  Pantera L 
30   Ferrari  Dino 
31   Maserati Bora 
32   Volvo  142E 

Answer 1

정규 표현식 rexp은 문자열의 시작 부분에있는 단어, 선택적 공백, 그리고 나머지 문자열과 일치합니다. 괄호는 하위 참조 \\1 및 \\2으로 액세스되는 하위 표현식입니다. 나를 위해

rexp <- "^(\\w+)\\s?(.*)$" 
y <- data.frame(MANUF=sub(rexp,"\\1",x), MAKE=sub(rexp,"\\2",x)) 
tail(y) 
#  MANUF  MAKE 
# 27 Porsche  914-2 
# 28 Lotus Europa 
# 29  Ford Pantera L 
# 30 Ferrari  Dino 
# 31 Maserati  Bora 
# 32 Volvo  142E 

Answer 2

, 나는 (안된) 이런 식으로 뭔가를 시도 할 것 :

\s+(.*)\s+(.*) 

Answer 3

[^\s]+을 검색하면 효과가 있다고 생각합니다. 테스트되지 않았습니다.

Answer 4

는 reshape2 패키지 해들리의 colsplit 기능은 이러한 목적에 가장 직관적이다. Joshua의 방식은 정규식 (즉, 정규 표현식을 사용할 수있는 곳이라면 어디에서나 사용될 수있다)과 유연하다 (명세를 바꾸고 싶다면);

library(reshape2) 
y <- colsplit(x," ",c("MANUF","MAKE")) 
tail(y) 
#  MANUF  MAKE 
#27 Porsche  914-2 
#28 Lotus Europa 
#29  Ford Pantera L 
#30 Ferrari  Dino 
#31 Maserati  Bora 
#32 Volvo  142E 

Answer 5

그러나 그 일을하는 또 다른 방법 :하지만 colsplit 기능이 특정 설정에 완벽하게 적합 분할을 처리 할 stringr에서

str_split,하지만 같은 (다른 형태의리스트를 돌려줍니다 strsplit). 올바른 양식으로 조작하는 것은 간단합니다. 해들리는 str_split_fixed으로, 코멘트에 언급 한 바와 같이

library(stringr) 
split_x <- str_split(x, " ", 2) 
(y <- data.frame(
    MANUF = sapply(split_x, head, n = 1), 
    MAKE = sapply(split_x, tail, n = 1) 
)) 

---

또는.

1)를 strsplit :

y <- as.data.frame(str_split_fixed(x, " ", 2)) 
colnames(y) <- c("MANUF", "MAKE") 
y 

Answer 6

여기서 두 가지 방법이다. 이 접근법은 R의 핵심에있는 함수 만 사용하며 복잡한 정규식은 사용하지 않습니다. 세미콜론 제 공간을 장착 2 열의 행렬로 다음, strsplit 세미콜론 온 rbind을 (sub 및 하지gsub 사용)

mat <- do.call("rbind", strsplit(sub(" ", ";", x), ";")) 
colnames(mat) <- c("MANUF", "MAKE") 

2) strapply gsubfn 패키지 여기서으로는 하나이다 gsubfn 패키지에서 strapply을 사용하는 - 라이너. 정규 표현식의 두 개의 괄호로 묶은 부분은 각각 원하는 첫 번째와 두 번째 열을 캡처하고 함수 (수식 표기법에 지정 - 이는 function(x, y) c(MANUF = x, MAKE = y)을 지정하는 것과 동일 함)를 가져 와서 이름을 추가합니다.simplify=rbind 인수는 이전 솔루션 에서처럼 행렬로 변환하는 데 사용됩니다.

library(gsubfn) 
mat <- strapply(x, "(\\S+)\\s+(.*)", ~ c(MANUF = x, MAKE = y), simplify = rbind) 

참고 : "character" 행렬 mat가 반환 어느 경우. "character" 컬럼의 데이터 프레임을 원하는 경우 다음이 추가 : "factor" 열이 원하는 경우

DF <- as.data.frame(mat, stringsAsFactors = FALSE) 

가 stringsAsFactors 인수를 생략합니다.