R은 고르지 않은 공백 수를 가진 고르지 않은 문자열을 분할합니다.

Question

여러 개의 공백으로 고르지 않은 문자열을 분할하려고합니다. 그러나 분할 될 공간의 수는 항상 동일한 수는 아닙니다.

"abc   20" 
"csd 10" 
"eds  10  30" 

나는 다음과 같은 얻기 위해 노력하고있어이 작업을 수행하는 방법에

"abc" " " "20" 
"csd" "10" " " 
"eds" "10" "30" 

어떤 생각? 고정 된 수의 공백을 기반으로하는 분할은 약간 다를 수 있으므로 가능하지 않습니다. 나는 정확하게 하나의 공간으로 나뉘어 지거나 또는 문자 나 숫자가 뒤 따르는 것에 대해 생각하고 있었지만, 어떻게해야하는지 전혀 모른다.

Answer 1

1) read.fwf 시도 read.fwf. 필요에 따라 너비를 조정하십시오.

s <- c("abc   20", "csd 10", "eds  10  30") # test data 
read.fwf(textConnection(s), widths = c(3, 7, 7)) 

주는 :

V1 V2 V3 
1 abc NA 20 
2 csd 10 NA 
3 eds 10 30 

2) kmeans이 방법은 시작 열을 발견 g 필드 (2, 3) 및 클러스터들을 두 그룹으로 kmeans을 사용. 그것은 필드 1이 항상 존재한다고 가정합니다. 그 이유는 질문에있는 것처럼 보입니다. 한 줄에 두 개의 필드가있는 경우 가장 가까운 그룹 센터에 두 번째 필드를 할당합니다.

km <- kmeans(unlist(gregexpr(" \\S", s)), 2) 
centers <- sort(km$centers) 
g <- gregexpr(" \\S", s) 
spl <- strsplit(s, " +") 
f <- function(s, g) { 
    if (length(s) == 2) paste0(s[1], strrep(",", which.min(abs(g - centers))), s[2]) 
    else paste(s, collapse = ",") 
} 
read.table(text = mapply(f, spl, g), sep = ",", fill = TRUE, as.is = TRUE) 

제공 :

V1 V2 V3 
1 abc NA 20 
2 csd 10 NA 
3 eds 10 30