R文字列を分割して数値ベクトルに変換する

Question

次のjsonを変換してデータフレームに入れたいと思います。これはほとんど動作しますが、as.data.frame（）はすべてを1つの行に置きます。

require(rjson) 
require(RCurl) 

y = getURI(url1) 
y 
[1] "[{\"close\":5.45836392962902,\"highest\":5.45837200714172,\"lowest\":5.45836392962902,\"open\":5.45837200714172,\"start_time\":\"2012-01-29T18:29:24-08:00\"},{\"close\":5.45837200714172,\"highest\":5.45837200714172,\"lowest\":5.45834791002201,\"open\":5.45835598753471,\"start_time\":\"2012-01-29T18:28:24-08:00\"}]" 

x = fromJSON(y) 
> str(x) 
List of 2 
$ :List of 5 
    ..$ close  : num 5.46 
    ..$ highest : num 5.46 
    ..$ lowest : num 5.46 
    ..$ open  : num 5.46 
    ..$ start_time: chr "2012-01-29T18:29:24-08:00" 
$ :List of 5 
    ..$ close  : num 5.46 
    ..$ highest : num 5.46 
    ..$ lowest : num 5.46 
    ..$ open  : num 5.46 
    ..$ start_time: chr "2012-01-29T18:28:24-08:00" 

as.data.frame(x) 
    close highest lowest  open    start_time close.1 highest.1 lowest.1 open.1    start_time.1 
1 5.458364 5.458372 5.458364 5.458372 2012-01-29T18:29:24-08:00 5.458372 5.458372 5.458348 5.458356 2012-01-29T18:28:24-08:00 

代わりに1行にある。私はそれらを2列にしたい。

close highest lowest  open    start_time 
1 5.458364 5.458372 5.458364 5.458372 2012-01-29T18:29:24-08:00 
2 5.458372 5.458372 5.458348 5.458356 2012-01-29T18:28:24-08:00 

これが機能するには、as.data.tableに指定できるものはありますか？

EDIT：

do.call(rbind,lapply(x,as.data.frame)) 

上記データフレームにそれを強制することができたが、タイムスタンプ列は二つの要因を有しています。私は

x$start_time = as.POSIXct(x$start_time) 
x$start_time 
[1] "2012-01-29 CST" "2012-01-29 CST" 

を得る。しかし、それは時間のデータを失うPOSIX形式を変換しようとすると、この次の部分は、独自の質問here

y = do.call(rbind,lapply(x,as.data.frame)) 
str(x) 
'data.frame': 2 obs. of 5 variables: 
$ close  : num 5.46 5.46 
$ highest : num 5.47 5.46 
$ lowest : num 5.46 5.46 
$ open  : num 5.46 5.46 
$ start_time: Factor w/ 2 levels "2012-01-29T21:48:24-05:00",..: 1 2 

を持っています。

Answer 1

あなたは試してみてください：私はこの方法を行う際に

do.call(rbind,lapply(x,as.data.frame))