使用行名和列名將R數據幀轉換為JSON

Question

考慮以下簡單的R數據幀：

shape1 <- c('red','triangle')
shape2 <- c('blue','circle')
df <- data.frame(shape1,shape2)
rownames(df) <- c('Prop1','Prop2')

我想將其轉換為以下JSON：

{
"shape1": {"Prop1":"red","Prop2":"triangle"},
"shape2": {"Prop1":"blue","Prop2":"circle"}
}

任何想法如何去做？

Answer 1

在這些情況下，有時候從JSON向后進行工作並找出所需的R結構，然后將其返回給您，會更容易。

## start with the desired json
js <- '{"shape1": {"Prop1":"red","Prop2":"triangle"},
"shape2": {"Prop1":"blue","Prop2":"circle"}}'

## convert it into an R object (in this case, it's a list)
lst <- jsonlite::fromJSON(js)
lst
# $shape1
# $shape1$Prop1
# [1] "red"
# 
# $shape1$Prop2
# [1] "triangle"
# 
# 
# $shape2
# $shape2$Prop1
# [1] "blue"
# 
# $shape2$Prop2
# [1] "circle"

所以，現在lst是你需要得到您想要的JSON結構

jsonlite::toJSON(lst, pretty = T)
# {
#   "shape1": {
#       "Prop1": ["red"],
#       "Prop2": ["triangle"]
#   },
#   "shape2": {
#       "Prop1": ["blue"],
#       "Prop2": ["circle"]
#   }
# }