長い文字列をdata.frameに変換します。

Question

これは問題の質問ですが、私はこれに夢中です。私は、FTP Severからダウンロードしたbars.listという文字ベクトルを持っています。ベクトルは次のようになります。

"\"\",\"times\",\"open\",\"high\",\"low\",\"close\",\"numEvents\",\"volume\"\r\n\"1\",2015-05-18 06:50:00,23.98,23.98,23.5,23.77,421,0\r\n\"2\",2015-05-18 07:50:00,23.77,23.9,23.34,23.6,720,0\r\n\"3\",2015-05-18 08:50:00,23.6,23.6,23.32,23.42,720,0\r\n\"4\",2015-05-18 09:50:00,23.44,23.91,23.43,23.66,720,0\r\n\"5\",2015-05-18 10:50:00,23.67,24.06,23.59,24.02,720,0\r\n\"6\",2015-05-18 11:50:00,24.02,24.04,23.32,23.33,720,0\r\n\"7\",2015-05-18 12:50:00,23.33,23.42,22.74,22.81,720,0\r\n\"8\",2015-05-18 13:50:00,22.79,22.92,22.49,22.69,720,0\r\n\"9\",2015-05-18 14:50:00,22.69,22.7,22.14,22.14,481,0\r\n\"10\",2015-05-19 06:50:00,21.09,21.49,20.82,21.47,421,0\r\n\"11\",2015-05-19 07:50:00,21.48,21.68,21.46,21.51,720,0\r\n\"12\",2015-05-19 08:50:00,21.51,21.93,21.45,21.92,720,0\r\n\"13\",2015-05-19 09:50:00,21.92,21.92,21.55,21.55,720,0\r\n\" 

私はRは、いくつかの接続がオブジェクトとして開くことができないことを私に伝え、なぜそれが私には明らかではない。このベクトルは、使用可能な形式に変換しておく必要がありますが

> read.table(bars.list, header = TRUE, sep = ",", quote = "", dec = ".") 
Error in file(file, "rt") : cannot open the connection 
In addition: Warning message: 
In file(file, "rt") : 
    cannot open file '"","times","open","high","low","close","numEvents","volume" 
"1",2015-05-18 06:50:00,23.98,23.98,23.5,23.77,421,0 
"2",2015-05-18 07:50:00,23.77,23.9,23.34,23.6,720,0 
"3",2015-05-18 08:50:00,23.6,23.6,23.32,23.42,720,0 
"4",2015-05-18 09:50:00,23.44,23.91,23.43,23.66,720,0 

関数の引数として既に貼り付けられています。出力Rは、私が必要とするものに既に近い警告看板で私を示しています...

Answer 1

ここには2つのオプションがあります。最初のコードは現在のコードを修正し、2番目のコードはより簡単で効率的な代替コードを探します。

オプション1：read.table()の最初の引数はfileです。あなたはファイルからではなくベクトルから読み込んでいるので、text = bars.listでtext引数を使用する必要があります。

また、我々はgsub()最初にすべての引用符を取り除くことができ、デフォルトがある read.csv()代わりのread.table()header = TRUEのでsep = ","その後、使用しています。私このため

read.csv(text = gsub("\"", "", bars.list), row.names = 1) 
#     times open high low close numEvents volume 
# 1 2015-05-18 06:50:00 23.98 23.98 23.50 23.77  421  0 
# 2 2015-05-18 07:50:00 23.77 23.90 23.34 23.60  720  0 
# 3 2015-05-18 08:50:00 23.60 23.60 23.32 23.42  720  0 
# 4 2015-05-18 09:50:00 23.44 23.91 23.43 23.66  720  0 
# 5 2015-05-18 10:50:00 23.67 24.06 23.59 24.02  720  0 
# 6 2015-05-18 11:50:00 24.02 24.04 23.32 23.33  720  0 
# 7 2015-05-18 12:50:00 23.33 23.42 22.74 22.81  720  0 
# 8 2015-05-18 13:50:00 22.79 22.92 22.49 22.69  720  0 
# 9 2015-05-18 14:50:00 22.69 22.70 22.14 22.14  481  0 
# 10 2015-05-19 06:50:00 21.09 21.49 20.82 21.47  421  0 
# 11 2015-05-19 07:50:00 21.48 21.68 21.46 21.51  720  0 
# 12 2015-05-19 08:50:00 21.51 21.93 21.45 21.92  720  0 
# 13 2015-05-19 09:50:00 21.92 21.92 21.55 21.55  720  0 

read.csv()でquote引数を使用するよりも優れていました。

オプション2：data.tableパッケージからfread()はあまりにもうまく動作します。それは速く、コードはより洗練されています。 gsub()を使用する必要はありません。 bars.listを直接入力して最初の列を削除することができます。今

data.table::fread(bars.list, drop = 1) 

、あなたは最終\"の引用のためにこの方法で警告が表示されます。あなたはそれと一緒に暮らすこともできますし、最後の引用符を取り除くことで警告なしの結果を得ることもできます。

data.table::fread(sub("\"$", "", bars.list), drop = 1) 

データ：

bars.list <- "\"\",\"times\",\"open\",\"high\",\"low\",\"close\",\"numEvents\",\"volume\"\r\n\"1\",2015-05-18 06:50:00,23.98,23.98,23.5,23.77,421,0\r\n\"2\",2015-05-18 07:50:00,23.77,23.9,23.34,23.6,720,0\r\n\"3\",2015-05-18 08:50:00,23.6,23.6,23.32,23.42,720,0\r\n\"4\",2015-05-18 09:50:00,23.44,23.91,23.43,23.66,720,0\r\n\"5\",2015-05-18 10:50:00,23.67,24.06,23.59,24.02,720,0\r\n\"6\",2015-05-18 11:50:00,24.02,24.04,23.32,23.33,720,0\r\n\"7\",2015-05-18 12:50:00,23.33,23.42,22.74,22.81,720,0\r\n\"8\",2015-05-18 13:50:00,22.79,22.92,22.49,22.69,720,0\r\n\"9\",2015-05-18 14:50:00,22.69,22.7,22.14,22.14,481,0\r\n\"10\",2015-05-19 06:50:00,21.09,21.49,20.82,21.47,421,0\r\n\"11\",2015-05-19 07:50:00,21.48,21.68,21.46,21.51,720,0\r\n\"12\",2015-05-19 08:50:00,21.51,21.93,21.45,21.92,720,0\r\n\"13\",2015-05-19 09:50:00,21.92,21.92,21.55,21.55,720,0\r\n\""