단일 열의 내용을 R에서 두 개의 개별 열로 나누는 방법?

Question

내 dataframe의 열이 있습니다

Col1   Col2 
20151102 
19920311 
20130204 
      >=70 
      60-69 
      20-29 

어떻게이 결과를 얻을 수 있습니다 :

Colname 
20151102 
19920311 
20130204 
>=70 
60-69 
20-29 

내가 좋아하는 두 개의 컬럼에이 열을 분할하려면?

Answer 1

0

:

df[,c("Col1", "Col2")] <- "" 

isnum <- suppressWarnings(!is.na(as.numeric(df$colname))) 

df$Col1[isnum] <- df$colname[isnum] 
df$Col2[!isnum] <- df$colname[!isnum] 

df <- df[,!(names(df) %in% "colname")] 

데이터 :

df = data.frame(colname=c("20151102","19920311","20130204",">=70","60-69","20-29"), stringsAsFactors=FALSE) 

Answer 2

가능한 한 가지 해결책은 extract을 tidyr에서 사용하는 것입니다. 내가 선택한 구분 기호 (점)가 처음 data.frame에 나타나서는 안됩니다.

library(magrittr) 
library(tidyr) 

df$colname = df$colname %>% 
      grepl("[>=|-]+", .) %>% 
      ifelse(paste0(".", df$colname), paste0(df$colname, ".")) 

extract(df, colname, c("col1","col2"), "(.*)\\.(.*)") 
#  col1 col2 
#1 222222  
#2 1111111  
#3   >=70 
#4   60-69 
#5   20-29 

데이터 : 여기

df = data.frame(colname=c("222222","1111111",">=70","60-69","20-29")) 

Answer 3

은 하나의 문장 솔루션입니다. read.pattern은 괄호로 묶인 일반 표현식 부분에서 두 필드 유형을 따로 캡처합니다. 합니다 (Colname 열이 클래스 "character" 이미 경우 format 생략 할 수있다 또한, 상기 첫 번째 컬럼의 숫자를 가질 것이 요구된다면 다음 colClasses 인수를 생략.).

library(gsubfn) 
read.pattern(text = format(DF$Colname), pattern = "(^\\d+$)|(.*)", 
        col.names = c("Col1", "Col2"), colClasses = "character") 

을주는 :

 col1  col2 
1 20151102   
2 19920311   
3 20130204   
4   >=70  
5   60-69 
6   20-29 

참고

(^\d+$)|(.*) 

: 여기 사용할 정규식의 시각화 모든 패키지의 필요없이

Debuggex Demo