2016-12-15 120 views
-9

我的數據是一串使用read.table拉入R的數字。這裏是數據:如何在字符串中的每個字符之間插入空格?

20402000224222032203233430020222024422320202234232443443004440404332402220404233302004204202004033420200022204334434044422322400200244044322202200234200424402002224303430023432202220343420323200300022320004223040024342244424040322424340240044220302432400203033300042423340222323200020034043004 

如何在每個數字之間插入一個空格,所以輸出看起來更像這樣?

2 0 4 0 2 0 0 0 etc... 

回答

4

可以按如下方式通過gsub做到這一點:

txt <- readLines("path/to/my-txt-file.csv") 
trimws(gsub("", " ", txt)) 

出於測試目的,只需使用:

txt <- "20402000224222032203233430020222024422320202234232443443004440404332402220404233302004204202004033420200022204334434044422322400200244044322202200234200424402002224303430023432202220343420323200300022320004223040024342244424040322424340240044220302432400203033300042423340222323200020034043004" 

導致:

"2 0 4 0 2 0 0 0 2 2 4 2 2 2 0 3 2 2 0 3 2 3 3 4 3 0 0 2 0 2 2 2 0 2 4 4 2 2 3 2 0 2 0 2 2 3 4 2 3 2 4 4 3 4 4 3 0 0 4 4 4 0 4 0 4 3 3 2 4 0 2 2 2 0 4 0 4 2 3 3 3 0 2 0 0 4 2 0 4 2 0 2 0 0 4 0 3 3 4 2 0 2 0 0 0 2 2 2 0 4 3 3 4 4 3 4 0 4 4 4 2 2 3 2 2 4 0 0 2 0 0 2 4 4 0 4 4 3 2 2 2 0 2 2 0 0 2 3 4 2 0 0 4 2 4 4 0 2 0 0 2 2 2 4 3 0 3 4 3 0 0 2 3 4 3 2 2 0 2 2 2 0 3 4 3 4 2 0 3 2 3 2 0 0 3 0 0 0 2 2 3 2 0 0 0 4 2 2 3 0 4 0 0 2 4 3 4 2 2 4 4 4 2 4 0 4 0 3 2 2 4 2 4 3 4 0 2 4 0 0 4 4 2 2 0 3 0 2 4 3 2 4 0 0 2 0 3 0 3 3 3 0 0 0 4 2 4 2 3 3 4 0 2 2 2 3 2 3 2 0 0 0 2 0 0 3 4 0 4 3 0 0 4" 
+1

或者,在'readLines'後:'txt_string < - strsplit(txt,「」)' –

1

這隻刀片字符之間的空格rs但不在開頭或結尾:

gsub("(.)\\B", "\\1 ", "abcdef") 
## [1] "a b c d e f" 
相關問題