CODEWITHSUNDEEP
rjsonlite
sree
sree

Reputation:

Converting to JSON (key,value) pair using R

My data frame contains data as follows:

Tester   W1  W2  W3   A   P  WD(%)   TS(Hrs.)   AT(Hrs.)    SU(%) 
a        60  40  102 202 150  100     120         120       100
b        30  38   46 114 150  76      135         120       100
c        25  30   52 107 150  71      120         120       100

By using the package jsonlite I have converted to json format:

{
 "Tester": [ "a", "b", "c" ],
 "W1": [ 60, 30, 25],
 "W2": [ 40, 38, 30 ],
 "W3": [ 102, 46, 52 ],
 "A": [ 202, 114, 107 ],
 "P": [ 150, 150, 150 ],
 "WD...": [ 100, 76, 71 ],
 "TS.Hrs..": [ 120, 135, 120 ],
 "AT.Hrs..": [ 120, 120, 120 ],
 "SU...": [ 100, 100, 100 ] 
}

But my requirement is to get the JSON format like:

[ {
    "Tester":"a"
    "W1": 60,
    "w2": 40
    "w3": 102,
    "A": 202
    "P": 150,
    "WD(%)":100,
    "TS (Hrs.) ": 120,
    "AT (Hrs.)": 120,
    "SU(%)": 100
}]

Can someone please help me?

Upvotes: 2

Views: 2731

Answers (1)

Aleksandr Blekh
Aleksandr Blekh

Reputation: 2482

The output that you're seeing is produced by jsonlite, when a data set is a list:

library(jsonlite)
toJSON(as.list(head(iris)))

{"Sepal.Length":[5.1,4.9,4.7,4.6,5,5.4],"Sepal.Width":[3.5,3,3.2,3.1,3.6,3.9],"Petal.Length":[1.4,1.4,1.3,1.5,1.4,1.7],"Petal.Width":[0.2,0.2,0.2,0.2,0.2,0.4],"Species":["setosa","setosa","setosa","setosa","setosa","setosa"]}

Make sure that your data set is indeed a data frame and you will see the expected output:

library(jsonlite)
toJSON(head(iris), pretty = TRUE)

[
    {
        "Sepal.Length": 5.1,
        "Sepal.Width": 3.5,
        "Petal.Length": 1.4,
        "Petal.Width": 0.2,
        "Species": "setosa"
    },
    {
        "Sepal.Length": 4.9,
        "Sepal.Width": 3,
        "Petal.Length": 1.4,
        "Petal.Width": 0.2,
        "Species": "setosa"
    },
    {
        "Sepal.Length": 4.7,
        "Sepal.Width": 3.2,
        "Petal.Length": 1.3,
        "Petal.Width": 0.2,
        "Species": "setosa"
    },
    {
        "Sepal.Length": 4.6,
        "Sepal.Width": 3.1,
        "Petal.Length": 1.5,
        "Petal.Width": 0.2,
        "Species": "setosa"
    },
    {
        "Sepal.Length": 5,
        "Sepal.Width": 3.6,
        "Petal.Length": 1.4,
        "Petal.Width": 0.2,
        "Species": "setosa"
    },
    {
        "Sepal.Length": 5.4,
        "Sepal.Width": 3.9,
        "Petal.Length": 1.7,
        "Petal.Width": 0.4,
        "Species": "setosa"
    }
]

Upvotes: 6

Related Questions