JsonデータをRのデータフレームに変換したいと思います。これまでに行ったことは次のとおりです。
library("rjson")
result <- fromJSON(file ="mypath/data.json")
json_data_frame <- as.data.frame(result)
ただし、次のようなエラーが発生します。
Data.frame(company_id = "12345678"、country_name = "China" 、:引数のエラーは行数が異なることを意味します:1、2、0
次のコードも試しました。
library("rjson")
result <- fromJSON(file ="mypath/data.json")
final_data <- do.call(rbind, result)
そして、このエラーが発生します:
警告メッセージ:In(function(。。。、deparse.level = 1):結果の列数がベクトル長の倍数ではありません(arg 3)
ここで何が起こっているのか、どうすれば解決できるのかわかりません。これについて助けをいただければ幸いです。
これが私のjsonデータの一部です:
{"business_id": "1234567"、 "Country_name": "China"、 "hours":{"Monday":{"close": "02:00"、 "open": "11:00"}、 "Tuesday ":{" close ":" 02:00 "、" open ":" 11:00 "}、" Friday ":{" close ":" 02:00 "、" open ":" 11:00 "}、 "Wednesday":{"close": "02:00"、 "open": "11:00"}、 "Thursday":{"close": "02:00"、 "open": "11:00" }、 "Sunday":{"close": "02:00"、 "open": "12:00"}、 "Saturday":{"close": "02:00"、 "open": "12: 00 "}}、" open ":true、" category ":[" Bars "、" Nightlife "、" Restaurants "]、" city ":" Beijing "、" review_count ":5、" name ":" Chen's Bar "、"近所 ":["ウエストエンド "]、"属性 ":{"テイクアウト ":true、" Wi-Fi ":"無料 "、"お勧め ":{"デザート ":false、"深夜":false、"昼食 ":false、"夕食 ":false、"朝食 ":false、"ブランチ ":false}、"ダンスに最適 ":false、"ノイズレベル ":"大声で "、"予約を取ります " :false、 "Delivery":false、 "Ambience":{"romantic":false、 "intimate":false、 "classy":false、 "hipster":false、 "divey":false、 "touristy":false、 "trendy":false、 "upscale":false、 "casual":false}、 「ハッピーアワー」:true、「駐車場」:{「ガレージ」:false、「ストリート」:false、「検証済み」:false、「ロット」:false、「係員」:false}、「テレビあり」:true、 「屋外席」:false、「服装」:「カジュアル」、「アルコール」:「full_bar」、「ウェイターサービス」:true、「クレジットカードを受け入れる」:true、「子供向け」:false、「グループ向け」 ":true、" Caters ":true、" Price Range ":1}、" type ":" business "}
library(jsonlite)
wine_json <- '{"name":"Chateau Migraine", "year":1997, "alcohol_pct":12.4, "color":"red", "awarded":false}'
wine <- fromJSON(wine_json)
str(wine)