JSON 파일을 '비표준 형식'으로 구문 분석하십시오.

Question

'JSON'파일을 R의 데이터 프레임으로 변환하려고하는데 많은 성공을 거두지 못하고 있습니다.

나는 RJSON과 RJSONIO를 사용해 보았지만 두 가지 모두 내 데이터 형식에 대해 동일한 이의가 있으며 첫 번째 집합 {} 사이의 값만 반환하는 것으로 보입니다. 당신이 볼 수 있듯이} {사이에 쉼표가 없습니다 - 그것은 내가 ++ 메모장에서 열면 보이는 정확히

{"response time":"1075","_p":"99ae8e5f1eb64091c019e57ff0e686d3","_t":1397514301} 
{"_n":"searcher","version":"v4","mobile":"No","_p":"1797370","_t":1397514315} 
{"month":"April","_n":"shown availability","availability":"unavailable","_t":1397514320} 

이것은 : 여기 내 데이터의 예입니다.

목표는 각 {}이있는 행을 각 유형에 대한 열과 함께 표로 변환하는 것입니다. "_p", "_n", "_t"등. 내 데이터의 들쭉날쭉 한 특성을 처리하기 위해 plyr을 사용할 수 있음을 알고 있습니다.

이 문제에 접근하는 방법에 대한 도움을 주시면 감사하겠습니다.

Answer 1

text <- '{"response time":"1075","_p":"99ae8e5f1eb64091c019e57ff0e686d3","_t":1397514301} 
{"_n":"searcher","version":"v4","mobile":"No","_p":"1797370","_t":1397514315} 
{"month":"April","_n":"shown availability","availability":"unavailable","_t":1397514320}' 


library(rjson) 
json.text <- readLines(textConnection(text)) 
# parse JSON into named list 
json  <- lapply(json.text,fromJSON) 
library(plyr) 
result <- do.call(rbind.fill,lapply(json,as.data.frame,optional=T)) 
result 
# response time        _p   _t     _n version mobile month availability 
# 1   1075 99ae8e5f1eb64091c019e57ff0e686d3 1397514301    <NA> <NA> <NA> <NA>   <NA> 
# 2   <NA>       1797370 1397514315   searcher  v4  No <NA>   <NA> 
# 3   <NA>        <NA> 1397514320 shown availability <NA> <NA> April unavailable 

주 :

1. 귀하의 JSON 마지막에, 부정한다 : ,"trip "_t":1397514320} 구문 분석하지 않습니다. 따라서 이것이 실제 텍스트 파일이라면 무엇을해야할지 모르겠습니다. 이 예에서는 "trip을 제거하고 마지막 변수는 "_t"으로 남겨 둡니다.
2. optional=T 또는 as.data.frame(...)이 필요합니다. 특히 _으로 시작하는 열 앞에 X을 추가하여 열 이름을 "수정"하려고합니다.

편집 코멘트 스레드에 대한 응답. 파일이 잘 형성 JSON해야 않습니다 그러나

json  <- lapply(json.text,fromJSON,unexpected.escape="keep") 

주 - 더 } 누락 : 당신의 JSON은 백 슬래시 문자가있는 경우

, 당신은 같이 fromJSON(...)에 호출에서 unexpected.escape=... 매개 변수를 설정 할 수 없다 등등. 그렇지 않으면 fromJSON(...)이 실패합니다.