열의 문자열을 분리하고 문자의 수를 계산합니다.

Question

나는 dim : 47,685 x 10,541과 함께 매우 큰 파일을 가지고 있습니다. 이 파일에서, 다음과 같은 두 번째 열의 각 행의 문자 사이에 공백이 없습니다 :

파일 # 1

Row1 01205201207502102102….. 

Row2 20101020100210201022….. 

Row3 21050210210001120120….. 

내가 그 파일에 대한 통계를 수행 할 될 수있다 일부 열이나 행을 삭제하십시오. 따라서, R을 사용하여,이 같은 얻을 수있는 두 번째 열에서 각 두 문자 사이에 하나 개의 공간을 추가 할 :

파일 # 2

Row1 0 1 2 0 5 2 0 1 2 0 7 5 0 2 1 0 2 1 0 2….. 

Row2 2 0 1 0 1 0 2 0 1 0 0 2 1 0 2 0 1 0 2 2….. 

Row3 2 1 0 0 0 2 1 0 2 1 0 0 0 1 1 2 0 1 2 0….. 

을 그리고 편집을 마친 후 다음, 제거 두 번째 열의 문자 사이의 공백은 최종 형식이 File # 1과 같습니다.

가장 빠르고 좋은 방법은 무엇입니까?

Answer 1

또한 열 수를 주소 지정합니다. (귀하의 의견에)

여기에 tidyr과 stringr을 사용하는 해결책이 있습니다. 그러나 이것은 문자열의 길이가 column2와 같다고 간주합니다. 이 솔루션을 사용하면 행 방향 및 열 방향 계산이 가능합니다. 이것은 매우 기본적인 단계적 방식으로 이루어지며, 몇 줄의 코드로도 동일하게 달성 될 수 있습니다.

library(stringr) 
library(tidyr) 

data<-data.frame(Column.1 = c("01205", "20705", "27057"), 
        stringsAsFactors = FALSE) 

count<-str_count(data$Column.1) # Get the length of the string in column 2 
index<-1:count[1] # Generate an index based on the length 

# Count the number of 5 and 7 in each string by row and add it as new column 
data$Row.count_5 <- str_count(data$Column.1, "5") 
data$Row.count_7 <- str_count(data$Column.1, "7") 

new.data <- separate(data, Column.1, into = paste("V", 1:count[1], sep = ""), sep = index) 
new.data$'NA' <- NULL 
new.data 

Column_count_5 <- apply(new.data[1:5],2,FUN=function(x) sum(x == 5)) 
Column_count_7 <- apply(new.data[1:5],2,FUN=function(x) sum(x == 7)) 
column_count <- as.data.frame(t(data.frame(Column_count_5,Column_count_7))) 

library(plyr) 
Final.df<- rbind.fill(new.data,column_count) 
rownames(Final.df)<-c("Row1","Row2","Row3", "Column.count_5","Column.count_7") 
Final.df 

출력

   V1 V2 V3 V4 V5 Row.count_5 Row.count_7 
Row1   0 1 2 0 5   1   0 
Row2   2 0 7 0 5   1   1 
Row3   2 7 0 5 7   1   2 
Column.count_5 0 0 0 1 2   NA   NA 
Column.count_7 0 1 1 0 1   NA   NA 

---

샘플 데이터

data<-data.frame(Column.1 = c("01205", "20705", "27057"), 
        stringsAsFactors = FALSE)