從資料幀創建多級.json檔案

我有一個資料框，我想將其轉換為 .json 檔案。.json 檔案有 4 個級別，其中包含資訊，美化后應該是這樣的：

 {
    "message": {
        "message_reference": "Something",
        "message_receiver": "Something",
        "client_name": "Something",
        "debtor_name": "Something",
        "booking_reference": "B123456",
        "invoice_reference": "I123456",
        "transport_direction": "E"
    },
    "container": {
        "shippingcompany_name": "billy",
        "container_isotype": "40DV"
    },
    "inland": {
        "destination_name": "companyB",
        "loading_discharge": "L"
    },
    "delivery": {
        "terminal_code": "123",
        "terminal_name": "123RTM"
    }
}

我將包含所有資訊的原始資料幀拆分為 4 個單獨的資料幀，并制作了 4 個 .json 檔案，這些檔案存盤在一個新的資料幀中

dfTEST <- data.frame("message_reference" = character(1),
                     "message_reciever" = character(1),
                     "client_name" = character(1),
                     "debtor_name" = character(1),
                     "booking_reference" = character(1),
                     "invoice_reference"  = character(1),
                     "transport_direction" = character(1),
                     "shipingcompany_name" = character(1),
                     "container_isotype" = character(1),
                     "destination_name" = character(1),
                     "loading_dishcarge" = character(1),
                     "terminal_code" = character(1),
                     "terminal_name" = character(1))


dfTEST$message_reference <- "Something"
dfTEST$message_reciever <- "Something"
dfTEST$client_name <- "Something"
dfTEST$debtor_name <- "Something"
dfTEST$booking_reference <- "B123456"
dfTEST$invoice_reference <- "I123456"
dfTEST$transport_direction <- "E"
dfTEST$shipingcompany_name <- "billy"
dfTEST$container_isotype <- "40DV"
dfTEST$destination_name <- "Company B"
dfTEST$loading_dishcarge <- "L"
dfTEST$terminal_code <- "123"
dfTEST$terminal_name <- "123RTM"

dfMESSAGE <- dfTEST[c(1,2,3,4,5,6,7)]
dfCONTAINER <- dfTEST[c(8,9)]
dfINLAND <- dfTEST[c(10,11)]
dfDEL <- dfTEST[c(12,13)]

jsMESSAGE <- gsub("\\[|\\]", "", toJSON(dfMESSAGE))
jsCONTAINER <- gsub("\\[|\\]", "", toJSON(dfCONTAINER))
jsINLAND <- gsub("\\[|\\]", "", toJSON(dfINLAND))
jsDEL <- gsub("\\[|\\]", "", toJSON(dfDEL))


dfTOT <- data.frame(message = character(1),
                    container = character(1),
                    inland = character(1),
                    delivery = character(1))

dfTOT$message <- jsMESSAGE
dfTOT$container <- jsCONTAINER
dfTOT$inland <- jsINLAND
dfTOT$delivery <- jsDEL

當我將新資料幀轉換為 json 檔案時，它看起來幾乎相同，但是單獨的 json 檔案在它們周圍加上引號，這使得最終的 json 檔案損壞；

jsTOT <- gsub("\\[|\\]", "", toJSON(dfTOT))
jsTOT <- gsub(pattern = ('\\\\'), replacement = '', x = jsTOT)

生成的 jsTOT 看起來像第一行，而它應該看起來像第二行；

{"message":"{"message_reference":"MESSAGEREFERENCE123","message_reciever":"VanBerkelLogistics","client_name":"Modality Software solutions","debtor_name":"Modality Software solutions"}","container":"{"booking_reference":"B123456","invoice_reference":"I123456"}","inland":"{"transport_direction":"E","shipingcompany_name":"MAERSK"}","delivery":"{"container_isotype":"40DV","destination_name":"Friesland Campina Nutrifeed"}"}

{"message":{"message_reference":"MESSAGEREFERENCE123","message_reciever":"VanBerkelLogistics","client_name":"Modality Software solutions","debtor_name":"Modality Software solutions"},"container":{"booking_reference":"B123456","invoice_reference":"I123456"},"inland":{"transport_direction":"E","shipingcompany_name":"MAERSK"},"delivery":{"container_isotype":"40DV","destination_name":"Friesland Campina Nutrifeed"}}

所以基本上我的問題是；如何洗掉 .json 檔案中的引號？也許我應該以其他方式構建它，但我不知道如何做到這一點。我使用 jsonlite 包，我也嘗試過 rjson 包，但這不起作用。任何朝著好的方向提供的幫助將不勝感激。

uj5u.com熱心網友回復：

不要提前轉換為 JSON。我建議你dfTOT應該list改為：

newTOT <- list(message = dfMESSAGE,
                    container = dfCONTAINER,
                    inland = dfINLAND,
                    delivery = dfDEL)
toJSON(newTOT)
# {"message":[{"message_reference":"Something","message_reciever":"Something","client_name":"Something","debtor_name":"Something","booking_reference":"B123456","invoice_reference":"I123456","transport_direction":"E"}],"container":[{"shipingcompany_name":"billy","container_isotype":"40DV"}],"inland":[{"destination_name":"Company B","loading_dishcarge":"L"}],"delivery":[{"terminal_code":"123","terminal_name":"123RTM"}]} 

標籤：r json

上一篇：蘋果健康時間序列as.xtsas.POSIXlt.character(x,tz,...)中的錯誤：字串不是標準的明確格式

下一篇：在R中優化，限制優化引數的總和和型別