R에서 긴 문자 벡터를 더 빨리자를 수있는 방법

Question

나는 약 500.000 행의 큰 데이터 세트를 가지고있다. 각각은 문자열입니다. 모든 행을 고정 크기로 트림하고 싶습니다.

내가 발견이 :

너무 오래 걸립니다 그러나

dt$rev <- strtrim(dt$rev, width=max_len) 

. 더 빠른 방법이 있습니까?

Answer 1

이 내용은 데이터 테이블과 아무런 관련이 없습니다. 단지 strtrim()이 상당히 느립니다.

너비가 한자 (예 : 중국어/일본어/한국어가 아닌 문자)로 운영되는 경우 훨씬 더 빠른 substr()을 사용할 수 있습니다.

## Make a long character vector with 5 million elements 
x <- rep(state.name, 1e5) 

## Speed comparison 
system.time(substr(x, 1, 3)) 
# user system elapsed 
# 0.43 0.00 0.44 
system.time(strtrim(x, 3)) 
# user system elapsed 
# 44.63 0.03 44.85 

## Confirm that both methods return the same output 
identical(substr(state.name,1,3), strtrim(state.name,3)) 
# [1] TRUE