Rで長い文字ベクトルをトリムする高速な方法

Question

私は約500.000行の大きなデータセットを持っています。それぞれは文字列です。私は固定サイズにすべての行をトリムしたいと思います。

私はこれが見つかりました：それは時間がかかりすぎるしかし

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

を。より速い方法がありますか？

Answer 1

data.tableとは関係ありません。ただstrtrim()がかなり遅いです。

中国語/日本語/韓国語以外の文字などの1文字の文字であれば、はるかに高速な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