'sep'引数を指定したread.tableコマンドのエラー

Question

テキストファイルから次の表を読み込もうとしています。ここに私のテキストファイルがどのように見えるかです：

12 333 5 
1 1234 14 
20988 432 
145677 34 
78 954 34 
9087 4 51 

trial1 <- read.table("readtabletrial.txt",sep=c(1,3,5,7),col.names=c("t1","t2","t3","t4")) 

を次のように私のRコマンドである私は、コマンドを実行したとき、私は

• を得る無効「9月'引数

私のtxtファイルにある空白は問題になると思います。しかし、彼らは構造の一部なので、私はそれらを消去することはできません。では、次のようなテーブルを作成するにはどうすればいいですか：

12 3 33 5 
1 12 34 14 
20 98 8 432 
14 56 77 34 
78 9 54 34 
90 87 4 51 

低品質の例についてはお詫び申し上げます。しかし、私は同様のタイプのかなり大きなデータセットを扱っています。私はそのデータから再現可能な例を生成することはできませんし、 "txt"ファイルとRデータをRに保存して自分の質問に使用できるようにする方法がわかりません。あなたの出力から

Answer 1

、あなたがread.fwfを試すことができますので、あなたの列は、一定の幅で区切られているようです：

con = textConnection("12 333 5 
+ 1 1234 14 
+ 20988 432 
+ 145677 34 
+ 78 954 34 
+ 9087 4 51") 

read.fwf(con, widths = c(2,2,2,3)) 
    V1 V2 V3 V4 
1 12 3 33 5 
2 1 12 34 14 
3 20 98 8 432 
4 14 56 77 34 
5 78 9 54 34 
6 90 87 4 51