→ celestialgod: 可以考慮直接lapply + bind_rows會比較有效率 10/29 00:02
→ pp61022: 謝謝! 這種方式也可以跑的出來! 10/29 11:49
※ 引述《pp61022 (fight)》之銘言：
library(dplyr)
library(jsonlite)
content <- readLines("roam_prescription_based_prediction.jsonl")
line1.cms <- fromJSON(readlines[1])$cms_prescription_count %>% as.data.frame
mydata <- line1.cms
for (i in 2:length(content)) {
mydata <- bind_rows(mydata, fromJSON(content[i])$cms_prescription_count
%>% as.data.frame)
}
這會parse出其中一個data frame
另一個類似方法操作吧...
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 68.52.13.65
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1477665658.A.930.html
※ 編輯: abc2090614 (68.52.13.65), 10/28/2016 22:41:37