-1

私はこのデータフレームを持っています:

dput(ヘッド(dat))

structure(list(out = c(5, 0, 0, 0, 0, 0), Date = c(1423825200000, 
1423825500000, 1423825800000, 1423826100000, 1423826400000, 1423826700000
)), .Names = c("out", "Date"), row.names = c(NA, 6L), class = "data.frame")

これをjson形式に変換する必要があります。

私はこれを試しました：

dList <- unname(apply(dat[,1:2], 1, function(y) unname(as.list(y))))
df1<-toJSON(list( data = dList))

私はこのようなものを得る：

{"data":[[[5],[1423825200000]],[[0],[1423825500000]],[[0],[1423825800000]],[[0],[1423826100000]],[[0],[1423826400000]],[[0],[1423826700000]],[[0],[1.423827e+12]],[[0],[1423827300000]],[[0],[1423827600000]],[[0],[1423827900000]]}

私はこれが必要です：

 [[5, 1423825200000.0], [0, 1423825500000.0], [0, 1423825800000.0], [0, 1423826100000.0], [0, 1423826400000.0], [0, 1423826700000.0], [0, 1423827000000.0], [0, 1423827300000.0], [0, 1423827600000.0], [0, 1423827900000.0]]

Rでこれを行う方法についてのアイデア

4

1 に答える 1

1

dat行列に変換して実行するjsonlite::toJSON

jsonlite::toJSON(as.matrix(dat))
# [[5,1423825200000],[0,1423825500000],[0,1423825800000],[0,1423826100000],[0,1423826400000],[0,1423826700000]]
于 2015-02-20T18:43:26.253 に答える