使用R jsonlite包将JSON转换为CSV
使用R jsonlite包将JSON转换为CSV
提问于 2016-03-20 21:08:59
我可以使用jsonlite包R将以下JSON文件转换为CSV( dataframe )，但我面临的问题是dataframe中的一列是列表。有什么方法可以克服这个问题吗？
library(jsonlite)
jsonfile <- fromJSON(jsonfile, flatten=TRUE,simplifyDataFrame=TRUE)
jsondataframe <- data.frame(jsonfile)示例JSON文件如下所示
{
"SSE": {
"-xmlns": "urn:com:ssn:schema:export:v2.0:SSNExportFormat.xsd",
"-Version": "2.0",
"-DocumentID": "aebjjjjd-59de-4405-ac0b-50e33b0b4f4b-1",
"-JobID": "3354",
"-ExportID": "aeb5bf7d-59de-4405-er0b-50e33b0b4f4b",
"-RunID": "20430452",
"-CreationTime": "2015-12-21T13:55:00.807-05:00",
"-StartTime": "2015-12-21T09:55:00.000- 05:00",
"-EndTime": "2015-12-21T13:55:00.000-05:00",
"IRD": {
"-NumberINTVs": "3",
"-EndTime": "2015-12-21T12:00:00.000-05:00",
"-StartTime": "2015- 12-21T09:00:00.000-05:00",
"-INTVLength": "60",
"INTV": [
{
"-GatewayCollectedTime": "2015-12-21T12:05:02.257-05:00",
"-INTVSequenceNumber": "47112",
"-BlockSequenceNumber": "0",
"-EndTime": "2015-12-21T10:00:00.000-05:00",
"INTVStatus": "SERV_HST",
"RD": [
{
"-U": "kWh",
"-BEV": "0.0379",
"-Val": "0",
"-RV": "0",
"-port": "1"
},
{
"-U": "kWh",
"-BEV": "0.0379",
"-Val": "0",
"-RV": "0",
"-port": "2"
},
{
"-U": "Vrms",
"-BEV": "231.0000",
"-Val": "231.0000",
"-RV": "231",
"-port": "3"
}
]
},
{
"-GatewayCollectedTime": "2015-12-21T12:05:02.257-05:00",
"-INTVSequenceNumber": "47113",
"-BlockSequenceNumber": "0",
"-EndTime": "2015-12-21T11:00:00.000-05:00",
"INTVStatus": "SERV_HST",
"RD": [
{
"-U": "kWh",
"-BEV": "0.0379",
"-Val": "0",
"-RV": "0",
"-port": "1"
},
{
"-U": "kWh",
"-BEV": "0.0379",
"-Val": "0",
"-RV": "0",
"-port": "2"
},
{
"-U": "Vrms",
"-BEV": "231.0000",
"-Val": "231.0000",
"-RV": "231",
"-port": "3"
}
]
},
{
"-GatewayCollectedTime": "2015-12-21T12:05:02.257-05:00",
"-INTVSequenceNumber": "47114",
"-BlockSequenceNumber": "0",
"-EndTime": "2015-12- 21T12:00:00.000-05:00",
"INTVStatus": "SERV_HST",
"RD": [
{
"-U": "kWh",
"-BEV": "0.0379",
"-Val": "0",
"-RV": "0",
"-port": "1"
},
{
"-U": "kWh",
"-BEV": "0.0379",
"-Val": "0",
"-RV": "0",
"-port": "2"
},
{
"-U": "Vrms",
"-BEV": "231.0000",
"-Val": "231.0000",
"-RV": "231",
"-port": "3"
}
]
}
]
}
}
}回答 1
Stack Overflow用户
发布于 2016-03-20 21:20:06
这项任务经常被问到，并且经常引起问题。但是，在您的示例中，取消列出应该很容易，因为jsondataframe$SSE.IRD.INTV.RD是一个具有相同lengths的列表：
df <- cbind(jsondataframe[, -ncol(jsondataframe)],
do.call(cbind, jsondataframe$SSE.IRD.INTV.RD))
str(df)
# 'data.frame': 3 obs. of 33 variables:
# $ SSE..xmlns : Factor w/ 1 level "urn:com:ssn:schema:export:v2.0:SSNExportFormat.xsd": 1 1 1
# ...
# $ SSE.IRD.INTV..EndTime : chr "2015-12-21T10:00:00.000-05:00" "2015-12-21T11:00:00.000-05:00" "2015-12- 21T12:00:00.000-05:00"
# $ SSE.IRD.INTV.INTVStatus : chr "SERV_HST" "SERV_HST" "SERV_HST"
# $ -U : chr "kWh" "kWh" "Vrms"
# $ -BEV : chr "0.0379" "0.0379" "231.0000"
# $ -Val : chr "0" "0" "231.0000"
# $ -RV : chr "0" "0" "231"
# $ -port : chr "1" "2" "3"
# $ -U : chr "kWh" "kWh" "Vrms"
# $ -BEV : chr "0.0379" "0.0379" "231.0000"
# $ -Val : chr "0" "0" "231.0000"
# $ -RV : chr "0" "0" "231"
# $ -port : chr "1" "2" "3"
# $ -U : chr "kWh" "kWh" "Vrms"
# $ -BEV : chr "0.0379" "0.0379" "231.0000"
# $ -Val : chr "0" "0" "231.0000"
# $ -RV : chr "0" "0" "231"
# $ -port : chr "1" "2" "3"
write.csv(df, tf <- tempfile(fileext = ".csv"), row.names = FALSE)
head( read.csv(tf, check.names = FALSE) )
# SSE..xmlns SSE..Version SSE..DocumentID SSE..JobID
# 1 urn:com:ssn:schema:export:v2.0:SSNExportFormat.xsd 2 aebjjjjd-59de-4405-ac0b-50e33b0b4f4b-1 3354
# 2 urn:com:ssn:schema:export:v2.0:SSNExportFormat.xsd 2 aebjjjjd-59de-4405-ac0b-50e33b0b4f4b-1 3354
# 3 urn:com:ssn:schema:export:v2.0:SSNExportFormat.xsd 2 aebjjjjd-59de-4405-ac0b-50e33b0b4f4b-1 3354
# SSE..ExportID SSE..RunID SSE..CreationTime SSE..StartTime
# 1 aeb5bf7d-59de-4405-er0b-50e33b0b4f4b 20430452 2015-12-21T13:55:00.807-05:00 2015-12-21T09:55:00.000- 05:00
# 2 aeb5bf7d-59de-4405-er0b-50e33b0b4f4b 20430452 2015-12-21T13:55:00.807-05:00 2015-12-21T09:55:00.000- 05:00
# 3 aeb5bf7d-59de-4405-er0b-50e33b0b4f4b 20430452 2015-12-21T13:55:00.807-05:00 2015-12-21T09:55:00.000- 05:00
# SSE..EndTime SSE.IRD..NumberINTVs SSE.IRD..EndTime SSE.IRD..StartTime
# 1 2015-12-21T13:55:00.000-05:00 3 2015-12-21T12:00:00.000-05:00 2015- 12-21T09:00:00.000-05:00
# 2 2015-12-21T13:55:00.000-05:00 3 2015-12-21T12:00:00.000-05:00 2015- 12-21T09:00:00.000-05:00
# 3 2015-12-21T13:55:00.000-05:00 3 2015-12-21T12:00:00.000-05:00 2015- 12-21T09:00:00.000-05:00
# SSE.IRD..INTVLength SSE.IRD.INTV..GatewayCollectedTime SSE.IRD.INTV..INTVSequenceNumber SSE.IRD.INTV..BlockSequenceNumber
# 1 60 2015-12-21T12:05:02.257-05:00 47112 0
# 2 60 2015-12-21T12:05:02.257-05:00 47113 0
# 3 60 2015-12-21T12:05:02.257-05:00 47114 0
# SSE.IRD.INTV..EndTime SSE.IRD.INTV.INTVStatus -U -BEV -Val -RV -port -U -BEV -Val -RV -port -U
# 1 2015-12-21T10:00:00.000-05:00 SERV_HST kWh 0.0379 0 0 1 kWh 0.0379 0 0 1 kWh
# 2 2015-12-21T11:00:00.000-05:00 SERV_HST kWh 0.0379 0 0 2 kWh 0.0379 0 0 2 kWh
# 3 2015-12- 21T12:00:00.000-05:00 SERV_HST Vrms 231.0000 231 231 3 Vrms 231.0000 231 231 3 Vrms
# -BEV -Val -RV -port
# 1 0.0379 0 0 1
# 2 0.0379 0 0 2
# 3 231.0000 231 231 3页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/36114086
复制相关文章
相似问题
腾讯云开发者
