次のjsonファイルがあります。
{
"observations": [
{
"type": "ob_type_1",
"data": {
"dynamic": {
"sensor": [
{
"timestamp": 552625694285098,
"a": 1.4921862,
"b": 8.613739
},
{
"timestamp": 552625699285098,
"a": 0.6907272,
"b": 7.6243353
}
]
},
"static": {
"class1": "abc",
"class2": "xyz"
}
}
}
]
}
rjson を使用してインポートします。
library(rjson)
raw_json <- fromJSON(file=json_file)
再現するには、次を使用してください。
raw_json <- structure(list(observations = list(structure(list(type = "ob_type_1",
data = structure(list(dynamic = structure(list(sensor = list(
structure(list(timestamp = 552625694285098, a = 1.4921862,
b = 8.613739), .Names = c("timestamp", "a", "b")),
structure(list(timestamp = 552625699285098, a = 0.6907272,
b = 7.6243353), .Names = c("timestamp", "a", "b")))), .Names = "sensor"),
static = structure(list(class1 = "abc", class2 = "xyz"), .Names = c("class1",
"class2"))), .Names = c("dynamic", "static"))), .Names = c("type",
"data")))), .Names = "observations")
次に、reshape2 を使用して溶かします。
library(reshape2)
reshape_json <- melt(raw_json)
ただし、値の列には、「class1」と「class2」に対して「1」と「2」が表示されます。これらを「abc」と「xyz」にしたいと思います。どうすればこれを達成できますか？過去にjsonliteを試したことがありますが、jsonファイルにネストされた配列がある場合、正しい出力を得るのに苦労しました。
value L7 L6 L5 L4 L3 L2 L1
1 ob_type_1 <NA> NA <NA> <NA> type 1 observations
2 552625694285098 timestamp 1 sensor dynamic data 1 observations
3 1.4921862 a 1 sensor dynamic data 1 observations
4 8.613739 b 1 sensor dynamic data 1 observations
5 552625699285098 timestamp 2 sensor dynamic data 1 observations
6 0.6907272 a 2 sensor dynamic data 1 observations
7 7.6243353 b 2 sensor dynamic data 1 observations
8 1 <NA> NA class1 static data 1 observations
9 2 <NA> NA class2 static data 1 observations