我有一个mydata.txt / .json文件，其中包含如下数据：
[{"num":1,"name":"Swab Summer: Transformation At the United States Coast Guard Academy","link":"http:\/\/www.amazon.com\/dp\/0982168594\/ref=wl_it_dp_v_nS_ttl\/176-1400914-4673658?_encoding=UTF8&colid=1GM97SGAP8NLI&coliid=I1ELS7DSQ6QV5C","old-price":"N\/A","new-price":"","date-added":"January 10, 2014","priority":"","rating":"N\/A","total-ratings":"","comment":"","picture":"http:\/\/ecx.images-amazon.com\/images\/I\/51MtOOm493L._SL500_SL135_.jpg","page":1}]
[{"num":1,"name":"Vibomex","link":"http:\/\/www.amazon.com\/dp\/B00BR1CUFY\/ref=wl_it_dp_v_S_ttl\/175-5687209-2417046?_encoding=UTF8&colid=C0XVZ38E5WD9&coliid=I1EPDGRY73N5Q2","old-price":"N\/A","new-price":"","date-added":"July 20, 2014","priority":"","rating":"N\/A","total-ratings":"","comment":"","picture":"http:\/\/ecx.images-amazon.com\/images\/I\/31GBqOHskyL._SL500_SL135_.jpg","page":1}]
基本上，多个json文件。这是两行。现在，当我尝试将数据导入R并将其设为数据框时，它仅读取与第一行相对应的行。下面是我的代码：
library(rjson)
json_file <- fromJSON(file="mydata.txt")
json_file <- lapply(json_file, function(x) {
x[sapply(x, is.null)] <- NA
unlist(x)
})
do.call("rbind", json_file)
任何人都可以帮助我阅读R或python中单个数据框中与mydata.txt / json的每一行相对应的行。任何帮助表示赞赏！
这是使用包装中fromJSON提供的一种方法jsonlite：
do.call(rbind, lapply(readLines('mydata.json'), jsonlite::fromJSON))
# num name link
# 1 1 Swab Summer: Transformation At the United States Coast Guard Academy http://www.amazon.com/dp/0982168594/ref=wl_it_dp_v_nS_ttl/176-1400914-4673658?_encoding=UTF8&colid=1GM97SGAP8NLI&coliid=I1ELS7DSQ6QV5C
# 2 1 Vibomex http://www.amazon.com/dp/B00BR1CUFY/ref=wl_it_dp_v_S_ttl/175-5687209-2417046?_encoding=UTF8&colid=C0XVZ38E5WD9&coliid=I1EPDGRY73N5Q2
# old-price new-price date-added priority rating total-ratings comment picture page
# 1 N/A January 10, 2014 N/A http://ecx.images-amazon.com/images/I/51MtOOm493L._SL500_SL135_.jpg 1
# 2 N/A July 20, 2014 N/A http://ecx.images-amazon.com/images/I/31GBqOHskyL._SL500_SL135_.jpg 1
如果列名称的集合在json文件中有所不同，则可以使用：
library(dplyr)
rbind_all(lapply(readLines('mydata.json'), jsonlite::fromJSON))
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句